pgloader →
3.6.9-1 →
armhf → 2022-10-28 15:45:25
sbuild (Debian sbuild) 0.71.0 (24 Aug 2016) on bm-wb-03
+==============================================================================+
| pgloader 3.6.9-1 (armhf) Fri, 28 Oct 2022 14:44:31 +0000 |
+==============================================================================+
Package: pgloader
Version: 3.6.9-1
Source Version: 3.6.9-1
Distribution: bookworm-staging
Machine Architecture: armhf
Host Architecture: armhf
Build Architecture: armhf
I: NOTICE: Log filtering will replace 'var/lib/schroot/mount/bookworm-staging-armhf-sbuild-c2741680-12ad-4699-8008-d841d8b19a07' with '<<CHROOT>>'
+------------------------------------------------------------------------------+
| Update chroot |
+------------------------------------------------------------------------------+
Get:1 http://172.17.4.1/private bookworm-staging InRelease [11.3 kB]
Get:2 http://172.17.4.1/private bookworm-staging/main Sources [13.4 MB]
Get:3 http://172.17.4.1/private bookworm-staging/main armhf Packages [14.2 MB]
Fetched 27.6 MB in 28s (978 kB/s)
Reading package lists...
W: No sandbox user '_apt' on the system, can not drop privileges
W: http://172.17.4.1/private/dists/bookworm-staging/InRelease: Key is stored in legacy trusted.gpg keyring (/etc/apt/trusted.gpg), see the DEPRECATION section in apt-key(8) for details.
+------------------------------------------------------------------------------+
| Fetch source files |
+------------------------------------------------------------------------------+
Check APT
---------
Checking available source versions...
Download source files with APT
------------------------------
Reading package lists...
NOTICE: 'pgloader' packaging is maintained in the 'Git' version control system at:
https://github.com/dimitri/pgloader.git
Please use:
git clone https://github.com/dimitri/pgloader.git
to retrieve the latest (possibly unreleased) updates to the package.
Need to get 3735 kB of source archives.
Get:1 http://172.17.4.1/private bookworm-staging/main pgloader 3.6.9-1 (dsc) [2795 B]
Get:2 http://172.17.4.1/private bookworm-staging/main pgloader 3.6.9-1 (tar) [3723 kB]
Get:3 http://172.17.4.1/private bookworm-staging/main pgloader 3.6.9-1 (diff) [9332 B]
Fetched 3735 kB in 0s (8830 kB/s)
Download complete and in download only mode
I: NOTICE: Log filtering will replace 'build/pgloader-vgfDlV/pgloader-3.6.9' with '<<PKGBUILDDIR>>'
I: NOTICE: Log filtering will replace 'build/pgloader-vgfDlV' 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-wnoOI9/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-wnoOI9/gpg/pubring.kbx' created
gpg: /<<BUILDDIR>>/resolver-wnoOI9/gpg/trustdb.gpg: trustdb created
gpg: key 35506D9A48F77B2E: public key "Sbuild Signer (Sbuild Build Dependency Archive Key) <buildd-tools-devel@lists.alioth.debian.org>" imported
gpg: Total number processed: 1
gpg: imported: 1
gpg: key 35506D9A48F77B2E: "Sbuild Signer (Sbuild Build Dependency Archive Key) <buildd-tools-devel@lists.alioth.debian.org>" not changed
gpg: key 35506D9A48F77B2E: secret key imported
gpg: Total number processed: 1
gpg: unchanged: 1
gpg: secret keys read: 1
gpg: secret keys imported: 1
gpg: using "Sbuild Signer" as default secret key for signing
Ign:1 copy:/<<BUILDDIR>>/resolver-wnoOI9/apt_archive ./ InRelease
Get:2 copy:/<<BUILDDIR>>/resolver-wnoOI9/apt_archive ./ Release [957 B]
Get:3 copy:/<<BUILDDIR>>/resolver-wnoOI9/apt_archive ./ Release.gpg [370 B]
Get:4 copy:/<<BUILDDIR>>/resolver-wnoOI9/apt_archive ./ Sources [349 B]
Get:5 copy:/<<BUILDDIR>>/resolver-wnoOI9/apt_archive ./ Packages [432 B]
Fetched 2108 B in 1s (2594 B/s)
Reading package lists...
W: No sandbox user '_apt' on the system, can not drop privileges
Reading package lists...
Install core build dependencies (apt-based resolver)
----------------------------------------------------
Installing build dependencies
Reading package lists...
Building dependency tree...
Reading state information...
The following packages were automatically installed and are no longer required:
krb5-locales libldap-common libpam-cap netbase sensible-utils
Use 'apt autoremove' to remove them.
The following NEW packages will be installed:
sbuild-build-depends-core-dummy
0 upgraded, 1 newly installed, 0 to remove and 27 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-wnoOI9/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 (22.2 kB/s)
Selecting previously unselected package sbuild-build-depends-core-dummy.
(Reading database ... 12907 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-15-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-15-ip4r, python3-sphinx, python3-sphinx-rtd-theme, sbcl (>= 1.1.13), tzdata
dpkg-deb: building package 'sbuild-build-depends-pgloader-dummy' in '/<<BUILDDIR>>/resolver-wnoOI9/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-wnoOI9/apt_archive ./ InRelease
Get:2 copy:/<<BUILDDIR>>/resolver-wnoOI9/apt_archive ./ Release [963 B]
Get:3 copy:/<<BUILDDIR>>/resolver-wnoOI9/apt_archive ./ Release.gpg [370 B]
Get:4 copy:/<<BUILDDIR>>/resolver-wnoOI9/apt_archive ./ Sources [897 B]
Get:5 copy:/<<BUILDDIR>>/resolver-wnoOI9/apt_archive ./ Packages [960 B]
Fetched 3190 B in 1s (4363 B/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 libldap-common libpam-cap
Use 'apt autoremove' to remove them.
The following additional packages will be installed:
autoconf automake autopoint autotools-dev bsdextrautils buildapp
ca-certificates cl-abnf cl-alexandria cl-anaphora cl-asdf cl-asdf-finalizers
cl-asdf-system-connections cl-babel cl-base64 cl-bordeaux-threads cl-cffi
cl-chipz cl-chunga cl-closer-mop cl-closure-common cl-command-line-arguments
cl-containers cl-csv cl-cxml cl-db3 cl-drakma cl-dynamic-classes cl-esrap
cl-fad cl-flexi-streams cl-garbage-pools cl-global-vars cl-ieee-floats
cl-interpol cl-ironclad cl-iterate cl-ixf cl-kmrcl cl-local-time cl-log
cl-lparallel cl-markdown cl-md5 cl-metabang-bind cl-metatilities-base
cl-mssql cl-mustache cl-named-readtables cl-parse-number cl-plus-ssl
cl-postgres cl-postmodern cl-ppcre cl-puri cl-py-configparser cl-qmynd
cl-quri cl-rt cl-s-sql cl-simple-date cl-split-sequence cl-sqlite
cl-trivial-backtrace cl-trivial-features cl-trivial-garbage
cl-trivial-gray-streams cl-trivial-utf-8 cl-uax-15 cl-unicode cl-usocket
cl-utilities cl-uuid cl-yason cl-zs3 debhelper dh-autoreconf
dh-strip-nondeterminism 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 libffi8
libfile-stripnondeterminism-perl libglib2.0-0 libicu71 libjs-jquery
libjs-sphinxdoc libjs-underscore libjson-perl libllvm14 libmagic-mgc
libmagic1 libmd0 libmpdec3 libpipeline1 libpq5 libpython3-stdlib
libpython3.10-minimal libpython3.10-stdlib libsigsegv2 libsqlite3-dev
libsub-override-perl libsybdb5 libtool libuchardet0 libxml2 libxslt1.1
libz3-4 locales m4 man-db media-types openssl pkg-config po-debconf
postgresql-15 postgresql-15-ip4r postgresql-client-15
postgresql-client-common postgresql-common python-babel-localedata python3
python3-alabaster python3-babel python3-certifi python3-chardet
python3-charset-normalizer python3-distutils python3-docutils python3-idna
python3-imagesize python3-importlib-metadata python3-jinja2 python3-lib2to3
python3-markupsafe python3-minimal python3-more-itertools python3-packaging
python3-pkg-resources python3-pygments python3-pyparsing python3-requests
python3-roman python3-six python3-snowballstemmer python3-sphinx
python3-sphinx-rtd-theme python3-tz python3-urllib3 python3-zipp python3.10
python3.10-minimal sbcl sphinx-common sphinx-rtd-theme-common ssl-cert 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-15 python3-doc python3-tk python3-venv
docutils-doc fonts-linuxlibertine | ttf-linux-libertine texlive-lang-french
texlive-latex-base texlive-latex-recommended python-jinja2-doc
python3-setuptools python-pygments-doc ttf-bitstream-vera
python-pyparsing-doc python3-cryptography python3-openssl python3-socks
python-requests-doc python3-stemmer dvipng fonts-freefont-otf
imagemagick-6.q16 latexmk libjs-mathjax sphinx-doc tex-gyre
texlive-fonts-recommended texlive-latex-extra texlive-plain-generic
python3-brotli python3.10-venv python3.10-doc binfmt-support sbcl-doc
sbcl-source slime
Recommended packages:
cl-fiveam libjs-mathjax cl-ptester curl | wget | lynx libarchive-cpio-perl
libglib2.0-data shared-mime-info xdg-user-dirs javascript-common
libjson-xs-perl libltdl-dev libmail-sendmail-perl sysstat logrotate
libpaper-utils python3-pil 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 libglib2.0-0 libicu71 libjs-jquery
libjs-sphinxdoc libjs-underscore libjson-perl libllvm14 libmagic-mgc
libmagic1 libmd0 libmpdec3 libpipeline1 libpq5 libpython3-stdlib
libpython3.10-minimal libpython3.10-stdlib libsigsegv2 libsqlite3-dev
libsub-override-perl libsybdb5 libtool libuchardet0 libxml2 libxslt1.1
libz3-4 locales m4 man-db media-types openssl pkg-config po-debconf
postgresql-15 postgresql-15-ip4r postgresql-client-15
postgresql-client-common postgresql-common python-babel-localedata python3
python3-alabaster python3-babel python3-certifi python3-chardet
python3-charset-normalizer python3-distutils python3-docutils python3-idna
python3-imagesize python3-importlib-metadata python3-jinja2 python3-lib2to3
python3-markupsafe python3-minimal python3-more-itertools python3-packaging
python3-pkg-resources python3-pygments python3-pyparsing python3-requests
python3-roman python3-six python3-snowballstemmer python3-sphinx
python3-sphinx-rtd-theme python3-tz python3-urllib3 python3-zipp python3.10
python3.10-minimal sbcl sbuild-build-depends-pgloader-dummy sphinx-common
sphinx-rtd-theme-common ssl-cert ucf xml-core zlib1g-dev
The following packages will be upgraded:
libffi8
1 upgraded, 178 newly installed, 0 to remove and 26 not upgraded.
Need to get 114 MB of archives.
After this operation, 497 MB of additional disk space will be used.
Get:1 copy:/<<BUILDDIR>>/resolver-wnoOI9/apt_archive ./ sbuild-build-depends-pgloader-dummy 0.invalid.0 [1244 B]
Get:2 http://172.17.4.1/private bookworm-staging/main armhf fonts-lato all 2.0-2.1 [2696 kB]
Get:3 http://172.17.4.1/private bookworm-staging/main armhf libsigsegv2 armhf 2.14-1 [36.6 kB]
Get:4 http://172.17.4.1/private bookworm-staging/main armhf gawk armhf 1:5.1.0-1 [533 kB]
Get:5 http://172.17.4.1/private bookworm-staging/main armhf libjson-perl all 4.10000-1 [87.5 kB]
Get:6 http://172.17.4.1/private bookworm-staging/main armhf postgresql-client-common all 245 [34.5 kB]
Get:7 http://172.17.4.1/private bookworm-staging/main armhf openssl armhf 3.0.5-4 [1346 kB]
Get:8 http://172.17.4.1/private bookworm-staging/main armhf ssl-cert all 1.1.2 [21.1 kB]
Get:9 http://172.17.4.1/private bookworm-staging/main armhf ucf all 3.0043 [74.0 kB]
Get:10 http://172.17.4.1/private bookworm-staging/main armhf postgresql-common all 245 [174 kB]
Get:11 http://172.17.4.1/private bookworm-staging/main armhf libpython3.10-minimal armhf 3.10.7-2 [769 kB]
Get:12 http://172.17.4.1/private bookworm-staging/main armhf libexpat1 armhf 2.4.9-1 [83.3 kB]
Get:13 http://172.17.4.1/private bookworm-staging/main armhf python3.10-minimal armhf 3.10.7-2 [1477 kB]
Get:14 http://172.17.4.1/private bookworm-staging/main armhf python3-minimal armhf 3.10.6-1 [38.7 kB]
Get:15 http://172.17.4.1/private bookworm-staging/main armhf media-types all 8.0.0 [33.4 kB]
Get:16 http://172.17.4.1/private bookworm-staging/main armhf libffi8 armhf 3.4.4-1 [19.4 kB]
Get:17 http://172.17.4.1/private bookworm-staging/main armhf libmpdec3 armhf 2.5.1-2+rpi1 [73.5 kB]
Get:18 http://172.17.4.1/private bookworm-staging/main armhf libpython3.10-stdlib armhf 3.10.7-2 [1597 kB]
Get:19 http://172.17.4.1/private bookworm-staging/main armhf python3.10 armhf 3.10.7-2 [502 kB]
Get:20 http://172.17.4.1/private bookworm-staging/main armhf libpython3-stdlib armhf 3.10.6-1 [21.7 kB]
Get:21 http://172.17.4.1/private bookworm-staging/main armhf python3 armhf 3.10.6-1 [38.2 kB]
Get:22 http://172.17.4.1/private bookworm-staging/main armhf libuchardet0 armhf 0.0.7-1 [65.0 kB]
Get:23 http://172.17.4.1/private bookworm-staging/main armhf groff-base armhf 1.22.4-8 [793 kB]
Get:24 http://172.17.4.1/private bookworm-staging/main armhf bsdextrautils armhf 2.38.1-1.1 [78.2 kB]
Get:25 http://172.17.4.1/private bookworm-staging/main armhf libpipeline1 armhf 1.5.6-3 [34.3 kB]
Get:26 http://172.17.4.1/private bookworm-staging/main armhf man-db armhf 2.11.0-1 [1299 kB]
Get:27 http://172.17.4.1/private bookworm-staging/main armhf ca-certificates all 20211016 [156 kB]
Get:28 http://172.17.4.1/private bookworm-staging/main armhf libmagic-mgc armhf 1:5.41-4 [295 kB]
Get:29 http://172.17.4.1/private bookworm-staging/main armhf libmagic1 armhf 1:5.41-4 [120 kB]
Get:30 http://172.17.4.1/private bookworm-staging/main armhf file armhf 1:5.41-4 [65.8 kB]
Get:31 http://172.17.4.1/private bookworm-staging/main armhf gettext-base armhf 0.21-9 [171 kB]
Get:32 http://172.17.4.1/private bookworm-staging/main armhf libc-l10n all 2.35-2+rpi1 [670 kB]
Get:33 http://172.17.4.1/private bookworm-staging/main armhf locales all 2.35-2+rpi1 [3896 kB]
Get:34 http://172.17.4.1/private bookworm-staging/main armhf m4 armhf 1.4.19-1 [260 kB]
Get:35 http://172.17.4.1/private bookworm-staging/main armhf autoconf all 2.71-2 [343 kB]
Get:36 http://172.17.4.1/private bookworm-staging/main armhf autotools-dev all 20220109.1 [51.6 kB]
Get:37 http://172.17.4.1/private bookworm-staging/main armhf automake all 1:1.16.5-1.3 [823 kB]
Get:38 http://172.17.4.1/private bookworm-staging/main armhf autopoint all 0.21-9 [510 kB]
Get:39 http://172.17.4.1/private bookworm-staging/main armhf sbcl armhf 2:2.2.9-1 [8188 kB]
Get:40 http://172.17.4.1/private bookworm-staging/main armhf buildapp armhf 1.5.6-3 [7047 kB]
Get:41 http://172.17.4.1/private bookworm-staging/main armhf cl-alexandria all 20211025.gita67c3a6-1 [212 kB]
Get:42 http://172.17.4.1/private bookworm-staging/main armhf cl-esrap all 20211008.gitc99c33a-1 [54.0 kB]
Get:43 http://172.17.4.1/private bookworm-staging/main armhf cl-ppcre all 20220126.gitb4056c5-1 [113 kB]
Get:44 http://172.17.4.1/private bookworm-staging/main armhf cl-abnf all 20200229.gitba1fbb1-1 [11.4 kB]
Get:45 http://172.17.4.1/private bookworm-staging/main armhf cl-anaphora all 1:0.9.8-1 [8168 B]
Get:46 http://172.17.4.1/private bookworm-staging/main armhf cl-asdf all 2:3.3.6-1 [1290 kB]
Get:47 http://172.17.4.1/private bookworm-staging/main armhf cl-asdf-finalizers all 20170403-1.1 [9620 B]
Get:48 http://172.17.4.1/private bookworm-staging/main armhf cl-asdf-system-connections all 20170124-1.1 [5080 B]
Get:49 http://172.17.4.1/private bookworm-staging/main armhf cl-trivial-features all 20210228.gitf6e8dd7-2 [10.9 kB]
Get:50 http://172.17.4.1/private bookworm-staging/main armhf cl-trivial-gray-streams all 20210117.git2b3823e-1 [10.5 kB]
Get:51 http://172.17.4.1/private bookworm-staging/main armhf cl-babel all 20200719.gitf892d05-2 [125 kB]
Get:52 http://172.17.4.1/private bookworm-staging/main armhf cl-rt all 20090812.gita6a7503-1 [13.2 kB]
Get:53 http://172.17.4.1/private bookworm-staging/main armhf cl-kmrcl all 1.111-2 [46.7 kB]
Get:54 http://172.17.4.1/private bookworm-staging/main armhf cl-base64 all 3.4.0-1 [9936 B]
Get:55 http://172.17.4.1/private bookworm-staging/main armhf cl-bordeaux-threads all 0.8.8-5 [23.2 kB]
Get:56 http://172.17.4.1/private bookworm-staging/main armhf libglib2.0-0 armhf 2.74.0-3 [1211 kB]
Get:57 http://172.17.4.1/private bookworm-staging/main armhf pkg-config armhf 0.29.2-1 [61.5 kB]
Get:58 http://172.17.4.1/private bookworm-staging/main armhf libffi-dev armhf 3.4.4-1 [60.4 kB]
Get:59 http://172.17.4.1/private bookworm-staging/main armhf zlib1g-dev armhf 1:1.2.11.dfsg-4.1 [183 kB]
Get:60 http://172.17.4.1/private bookworm-staging/main armhf cl-cffi all 1:0.24.1-3 [1682 kB]
Get:61 http://172.17.4.1/private bookworm-staging/main armhf cl-chipz all 20220213.git82a17d3-1 [37.4 kB]
Get:62 http://172.17.4.1/private bookworm-staging/main armhf cl-chunga all 20220222.git7836609-1 [19.6 kB]
Get:63 http://172.17.4.1/private bookworm-staging/main armhf cl-closer-mop all 2:20220227.giteabdf6a-1 [25.8 kB]
Get:64 http://172.17.4.1/private bookworm-staging/main armhf cl-closure-common all 20101107-1.1 [25.2 kB]
Get:65 http://172.17.4.1/private bookworm-staging/main armhf cl-command-line-arguments all 20151218-1.1 [9544 B]
Get:66 http://172.17.4.1/private bookworm-staging/main armhf cl-metatilities-base all 20170403-1.1 [51.9 kB]
Get:67 http://172.17.4.1/private bookworm-staging/main armhf cl-containers all 20170403-1.1 [114 kB]
Get:68 http://172.17.4.1/private bookworm-staging/main armhf cl-iterate all 20210519.gitb0f9a9c-1 [49.3 kB]
Get:69 http://172.17.4.1/private bookworm-staging/main armhf cl-flexi-streams all 20210728.git41af5dc-1 [176 kB]
Get:70 http://172.17.4.1/private bookworm-staging/main armhf cl-unicode all 20201101.git54bdf2c-1 [1316 kB]
Get:71 http://172.17.4.1/private bookworm-staging/main armhf cl-named-readtables all 20201221.gitc5689a4-1 [28.0 kB]
Get:72 http://172.17.4.1/private bookworm-staging/main armhf cl-interpol all 20220725.gitd4f49d4-1 [32.8 kB]
Get:73 http://172.17.4.1/private bookworm-staging/main armhf cl-csv all 20200929.git68ecb5d-1 [27.7 kB]
Get:74 http://172.17.4.1/private bookworm-staging/main armhf cl-cxml all 20110619-2.1 [82.5 kB]
Get:75 http://172.17.4.1/private bookworm-staging/main armhf cl-db3 all 20200212-1 [8388 B]
Get:76 http://172.17.4.1/private bookworm-staging/main armhf cl-puri all 1:1.5.7.2-1 [19.1 kB]
Get:77 http://172.17.4.1/private bookworm-staging/main armhf cl-split-sequence all 1:2.0.1-1 [11.9 kB]
Get:78 http://172.17.4.1/private bookworm-staging/main armhf cl-usocket all 0.8.3-2 [74.9 kB]
Get:79 http://172.17.4.1/private bookworm-staging/main armhf cl-trivial-garbage all 20211229.gitb3af9c0-1 [9000 B]
Get:80 http://172.17.4.1/private bookworm-staging/main armhf cl-plus-ssl all 20220328.git8b91648-4 [57.3 kB]
Get:81 http://172.17.4.1/private bookworm-staging/main armhf cl-drakma all 2.0.8-1 [46.3 kB]
Get:82 http://172.17.4.1/private bookworm-staging/main armhf cl-dynamic-classes all 20130128-2.1 [6916 B]
Get:83 http://172.17.4.1/private bookworm-staging/main armhf cl-fad all 20220110.git3f4d32d-1 [24.4 kB]
Get:84 http://172.17.4.1/private bookworm-staging/main armhf cl-garbage-pools all 20130720-1.1 [3144 B]
Get:85 http://172.17.4.1/private bookworm-staging/main armhf cl-global-vars all 0~20141013.gitc749f32-2 [5156 B]
Get:86 http://172.17.4.1/private bookworm-staging/main armhf cl-ieee-floats all 20170830-1.1 [6828 B]
Get:87 http://172.17.4.1/private bookworm-staging/main armhf cl-ironclad all 0.57-3 [1170 kB]
Get:88 http://172.17.4.1/private bookworm-staging/main armhf cl-ixf all 20180228-1.1 [9852 B]
Get:89 http://172.17.4.1/private bookworm-staging/main armhf cl-local-time all 20180228-1.1 [26.7 kB]
Get:90 http://172.17.4.1/private bookworm-staging/main armhf cl-log all 1.0.1-1.1 [20.8 kB]
Get:91 http://172.17.4.1/private bookworm-staging/main armhf cl-lparallel all 20160825-1.1 [49.8 kB]
Get:92 http://172.17.4.1/private bookworm-staging/main armhf cl-metabang-bind all 20200101.git9ab6e64-1 [17.6 kB]
Get:93 http://172.17.4.1/private bookworm-staging/main armhf cl-markdown all 20101006-2.1 [37.4 kB]
Get:94 http://172.17.4.1/private bookworm-staging/main armhf cl-md5 all 1:20210622.git906593f-1 [14.8 kB]
Get:95 http://172.17.4.1/private bookworm-staging/main armhf freetds-common all 1.3.6-1.1 [33.6 kB]
Get:96 http://172.17.4.1/private bookworm-staging/main armhf libct4 armhf 1.3.6-1.1 [145 kB]
Get:97 http://172.17.4.1/private bookworm-staging/main armhf libsybdb5 armhf 1.3.6-1.1 [169 kB]
Get:98 http://172.17.4.1/private bookworm-staging/main armhf freetds-dev armhf 1.3.6-1.1 [242 kB]
Ign:98 http://172.17.4.1/private bookworm-staging/main armhf freetds-dev armhf 1.3.6-1.1
Get:99 http://172.17.4.1/private bookworm-staging/main armhf cl-mssql all 20180228-1.1 [8652 B]
Get:100 http://172.17.4.1/private bookworm-staging/main armhf cl-mustache all 0.12.1-9-g684f227-1.1 [9880 B]
Get:101 http://172.17.4.1/private bookworm-staging/main armhf cl-parse-number all 1.7-1.1 [7368 B]
Get:102 http://172.17.4.1/private bookworm-staging/main armhf cl-uax-15 all 0~20211021.git75c8a87-3 [387 kB]
Get:103 http://172.17.4.1/private bookworm-staging/main armhf cl-postgres all 20211113.git9d4332f-3 [64.0 kB]
Get:104 http://172.17.4.1/private bookworm-staging/main armhf cl-s-sql all 20211113.git9d4332f-3 [69.9 kB]
Get:105 http://172.17.4.1/private bookworm-staging/main armhf cl-postmodern all 20211113.git9d4332f-3 [361 kB]
Get:106 http://172.17.4.1/private bookworm-staging/main armhf cl-py-configparser all 20170830-1.1 [8612 B]
Get:107 http://172.17.4.1/private bookworm-staging/main armhf cl-qmynd all 20180131-1.1 [37.3 kB]
Get:108 http://172.17.4.1/private bookworm-staging/main armhf cl-quri all 20150804-1.1 [66.5 kB]
Get:109 http://172.17.4.1/private bookworm-staging/main armhf cl-simple-date all 20211113.git9d4332f-3 [19.3 kB]
Get:110 http://172.17.4.1/private bookworm-staging/main armhf cl-sqlite all 20130615-2.1 [14.7 kB]
Get:111 http://172.17.4.1/private bookworm-staging/main armhf cl-trivial-backtrace all 20200511.git6eb65bd-1 [10.1 kB]
Get:112 http://172.17.4.1/private bookworm-staging/main armhf cl-trivial-utf-8 all 20111001-1.1 [7760 B]
Get:113 http://172.17.4.1/private bookworm-staging/main armhf cl-utilities all 1.2.4-3.2 [22.2 kB]
Get:114 http://172.17.4.1/private bookworm-staging/main armhf cl-uuid all 20130813-1.1 [6876 B]
Get:115 http://172.17.4.1/private bookworm-staging/main armhf cl-yason all 0.7.6-1.1 [10.0 kB]
Get:116 http://172.17.4.1/private bookworm-staging/main armhf cl-zs3 all 1.3.1-1.1 [48.6 kB]
Get:117 http://172.17.4.1/private bookworm-staging/main armhf libdebhelper-perl all 13.10 [79.8 kB]
Get:118 http://172.17.4.1/private bookworm-staging/main armhf libtool all 2.4.7-4 [526 kB]
Get:119 http://172.17.4.1/private bookworm-staging/main armhf dh-autoreconf all 20 [17.1 kB]
Get:120 http://172.17.4.1/private bookworm-staging/main armhf libarchive-zip-perl all 1.68-1 [104 kB]
Get:121 http://172.17.4.1/private bookworm-staging/main armhf libsub-override-perl all 0.09-4 [9304 B]
Get:122 http://172.17.4.1/private bookworm-staging/main armhf libfile-stripnondeterminism-perl all 1.13.0-1 [26.6 kB]
Get:123 http://172.17.4.1/private bookworm-staging/main armhf dh-strip-nondeterminism all 1.13.0-1 [15.8 kB]
Get:124 http://172.17.4.1/private bookworm-staging/main armhf libelf1 armhf 0.187-2+rpi2 [177 kB]
Get:125 http://172.17.4.1/private bookworm-staging/main armhf dwz armhf 0.14+20220924-2 [93.1 kB]
Get:126 http://172.17.4.1/private bookworm-staging/main armhf libicu71 armhf 71.1-3 [8855 kB]
Get:127 http://172.17.4.1/private bookworm-staging/main armhf libxml2 armhf 2.9.14+dfsg-1 [591 kB]
Get:128 http://172.17.4.1/private bookworm-staging/main armhf gettext armhf 0.21-9 [1220 kB]
Get:129 http://172.17.4.1/private bookworm-staging/main armhf intltool-debian all 0.35.0+20060710.6 [22.9 kB]
Get:130 http://172.17.4.1/private bookworm-staging/main armhf po-debconf all 1.0.21+nmu1 [248 kB]
Get:131 http://172.17.4.1/private bookworm-staging/main armhf debhelper all 13.10 [940 kB]
Get:132 http://172.17.4.1/private bookworm-staging/main armhf xml-core all 0.18+nmu1 [23.8 kB]
Get:133 http://172.17.4.1/private bookworm-staging/main armhf docutils-common all 0.17.1+dfsg-2 [127 kB]
Get:134 http://172.17.4.1/private bookworm-staging/main armhf fonts-font-awesome all 5.0.10+really4.7.0~dfsg-4.1 [517 kB]
Get:135 http://172.17.4.1/private bookworm-staging/main armhf help2man armhf 1.49.2 [202 kB]
Get:136 http://172.17.4.1/private bookworm-staging/main armhf libmd0 armhf 1.0.4-2 [28.6 kB]
Get:137 http://172.17.4.1/private bookworm-staging/main armhf libbsd0 armhf 0.11.7-1 [112 kB]
Get:138 http://172.17.4.1/private bookworm-staging/main armhf libedit2 armhf 3.1-20221009-1 [76.0 kB]
Get:139 http://172.17.4.1/private bookworm-staging/main armhf libjs-jquery all 3.6.1+dfsg+~3.5.14-1 [326 kB]
Get:140 http://172.17.4.1/private bookworm-staging/main armhf libjs-underscore all 1.13.4~dfsg+~1.11.4-1 [119 kB]
Get:141 http://172.17.4.1/private bookworm-staging/main armhf libjs-sphinxdoc all 4.5.0-4 [142 kB]
Get:142 http://172.17.4.1/private bookworm-staging/main armhf libz3-4 armhf 4.8.12-1 [5758 kB]
Get:143 http://172.17.4.1/private bookworm-staging/main armhf libllvm14 armhf 1:14.0.6-2+rpi1 [19.5 MB]
Get:144 http://172.17.4.1/private bookworm-staging/main armhf libpq5 armhf 15.0-1 [160 kB]
Get:145 http://172.17.4.1/private bookworm-staging/main armhf libsqlite3-dev armhf 3.39.4-1 [898 kB]
Get:146 http://172.17.4.1/private bookworm-staging/main armhf libxslt1.1 armhf 1.1.35-1 [221 kB]
Get:147 http://172.17.4.1/private bookworm-staging/main armhf postgresql-client-15 armhf 15.0-1 [1520 kB]
Get:148 http://172.17.4.1/private bookworm-staging/main armhf postgresql-15 armhf 15.0-1 [15.6 MB]
Get:149 http://172.17.4.1/private bookworm-staging/main armhf postgresql-15-ip4r armhf 2.4.1-8 [195 kB]
Get:150 http://172.17.4.1/private bookworm-staging/main armhf python-babel-localedata all 2.10.3-1 [5615 kB]
Get:151 http://172.17.4.1/private bookworm-staging/main armhf python3-alabaster all 0.7.12-1 [20.8 kB]
Get:152 http://172.17.4.1/private bookworm-staging/main armhf python3-pkg-resources all 65.5.0-1 [278 kB]
Get:153 http://172.17.4.1/private bookworm-staging/main armhf python3-tz all 2022.4-1 [34.9 kB]
Get:154 http://172.17.4.1/private bookworm-staging/main armhf python3-babel all 2.10.3-1 [103 kB]
Get:155 http://172.17.4.1/private bookworm-staging/main armhf python3-certifi all 2022.6.15-2 [154 kB]
Get:156 http://172.17.4.1/private bookworm-staging/main armhf python3-chardet all 4.0.0-2 [99.1 kB]
Get:157 http://172.17.4.1/private bookworm-staging/main armhf python3-charset-normalizer all 2.0.6-2 [30.6 kB]
Get:158 http://172.17.4.1/private bookworm-staging/main armhf python3-lib2to3 all 3.10.7-1 [79.9 kB]
Get:159 http://172.17.4.1/private bookworm-staging/main armhf python3-distutils all 3.10.7-1 [141 kB]
Get:160 http://172.17.4.1/private bookworm-staging/main armhf python3-roman all 3.3-1 [10.7 kB]
Get:161 http://172.17.4.1/private bookworm-staging/main armhf python3-docutils all 0.17.1+dfsg-2 [393 kB]
Get:162 http://172.17.4.1/private bookworm-staging/main armhf python3-idna all 3.3-1 [39.4 kB]
Get:163 http://172.17.4.1/private bookworm-staging/main armhf python3-imagesize all 1.4.1-1 [6688 B]
Get:164 http://172.17.4.1/private bookworm-staging/main armhf python3-more-itertools all 8.10.0-2 [53.0 kB]
Get:165 http://172.17.4.1/private bookworm-staging/main armhf python3-zipp all 1.0.0-4 [6160 B]
Get:166 http://172.17.4.1/private bookworm-staging/main armhf python3-importlib-metadata all 4.12.0-1 [24.9 kB]
Get:167 http://172.17.4.1/private bookworm-staging/main armhf python3-markupsafe armhf 2.1.1-1 [13.6 kB]
Get:168 http://172.17.4.1/private bookworm-staging/main armhf python3-jinja2 all 3.0.3-2 [121 kB]
Get:169 http://172.17.4.1/private bookworm-staging/main armhf python3-pyparsing all 3.0.7-2 [140 kB]
Get:170 http://172.17.4.1/private bookworm-staging/main armhf python3-packaging all 21.3-1.1 [34.2 kB]
Get:171 http://172.17.4.1/private bookworm-staging/main armhf python3-pygments all 2.12.0+dfsg-2 [765 kB]
Get:172 http://172.17.4.1/private bookworm-staging/main armhf python3-six all 1.16.0-4 [17.5 kB]
Get:173 http://172.17.4.1/private bookworm-staging/main armhf python3-urllib3 all 1.26.12-1 [117 kB]
Get:174 http://172.17.4.1/private bookworm-staging/main armhf python3-requests all 2.27.1+dfsg-1 [71.9 kB]
Get:175 http://172.17.4.1/private bookworm-staging/main armhf python3-snowballstemmer all 2.2.0-2 [57.8 kB]
Get:176 http://172.17.4.1/private bookworm-staging/main armhf sphinx-common all 4.5.0-4 [638 kB]
Get:177 http://172.17.4.1/private bookworm-staging/main armhf python3-sphinx all 4.5.0-4 [540 kB]
Get:178 http://172.17.4.1/private bookworm-staging/main armhf sphinx-rtd-theme-common all 1.0.0+dfsg-1 [996 kB]
Get:179 http://172.17.4.1/private bookworm-staging/main armhf python3-sphinx-rtd-theme all 1.0.0+dfsg-1 [26.5 kB]
Get:98 http://172.17.4.1/private bookworm-staging/main armhf freetds-dev armhf 1.3.6-1.1 [242 kB]
debconf: delaying package configuration, since apt-utils is not installed
Fetched 114 MB in 10s (11.1 MB/s)
Selecting previously unselected package fonts-lato.
(Reading database ... 12907 files and directories currently installed.)
Preparing to unpack .../fonts-lato_2.0-2.1_all.deb ...
Unpacking fonts-lato (2.0-2.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 ... 12942 files and directories currently installed.)
Preparing to unpack .../0-gawk_1%3a5.1.0-1_armhf.deb ...
Unpacking gawk (1:5.1.0-1) ...
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_245_all.deb ...
Unpacking postgresql-client-common (245) ...
Selecting previously unselected package openssl.
Preparing to unpack .../3-openssl_3.0.5-4_armhf.deb ...
Unpacking openssl (3.0.5-4) ...
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_all.deb ...
Moving old data out of the way
Unpacking ucf (3.0043) ...
Selecting previously unselected package postgresql-common.
Preparing to unpack .../6-postgresql-common_245_all.deb ...
Adding 'diversion of /usr/bin/pg_config to /usr/bin/pg_config.libpq-dev by postgresql-common'
Unpacking postgresql-common (245) ...
Selecting previously unselected package libpython3.10-minimal:armhf.
Preparing to unpack .../7-libpython3.10-minimal_3.10.7-2_armhf.deb ...
Unpacking libpython3.10-minimal:armhf (3.10.7-2) ...
Selecting previously unselected package libexpat1:armhf.
Preparing to unpack .../8-libexpat1_2.4.9-1_armhf.deb ...
Unpacking libexpat1:armhf (2.4.9-1) ...
Selecting previously unselected package python3.10-minimal.
Preparing to unpack .../9-python3.10-minimal_3.10.7-2_armhf.deb ...
Unpacking python3.10-minimal (3.10.7-2) ...
Setting up libpython3.10-minimal:armhf (3.10.7-2) ...
Setting up libexpat1:armhf (2.4.9-1) ...
Setting up python3.10-minimal (3.10.7-2) ...
Selecting previously unselected package python3-minimal.
(Reading database ... 13971 files and directories currently installed.)
Preparing to unpack .../python3-minimal_3.10.6-1_armhf.deb ...
Unpacking python3-minimal (3.10.6-1) ...
Selecting previously unselected package media-types.
Preparing to unpack .../media-types_8.0.0_all.deb ...
Unpacking media-types (8.0.0) ...
Preparing to unpack .../libffi8_3.4.4-1_armhf.deb ...
Unpacking libffi8:armhf (3.4.4-1) over (3.4.2-4) ...
Setting up libffi8:armhf (3.4.4-1) ...
Selecting previously unselected package libmpdec3:armhf.
(Reading database ... 13998 files and directories currently installed.)
Preparing to unpack .../libmpdec3_2.5.1-2+rpi1_armhf.deb ...
Unpacking libmpdec3:armhf (2.5.1-2+rpi1) ...
Selecting previously unselected package libpython3.10-stdlib:armhf.
Preparing to unpack .../libpython3.10-stdlib_3.10.7-2_armhf.deb ...
Unpacking libpython3.10-stdlib:armhf (3.10.7-2) ...
Selecting previously unselected package python3.10.
Preparing to unpack .../python3.10_3.10.7-2_armhf.deb ...
Unpacking python3.10 (3.10.7-2) ...
Selecting previously unselected package libpython3-stdlib:armhf.
Preparing to unpack .../libpython3-stdlib_3.10.6-1_armhf.deb ...
Unpacking libpython3-stdlib:armhf (3.10.6-1) ...
Setting up python3-minimal (3.10.6-1) ...
Selecting previously unselected package python3.
(Reading database ... 14373 files and directories currently installed.)
Preparing to unpack .../000-python3_3.10.6-1_armhf.deb ...
Unpacking python3 (3.10.6-1) ...
Selecting previously unselected package libuchardet0:armhf.
Preparing to unpack .../001-libuchardet0_0.0.7-1_armhf.deb ...
Unpacking libuchardet0:armhf (0.0.7-1) ...
Selecting previously unselected package groff-base.
Preparing to unpack .../002-groff-base_1.22.4-8_armhf.deb ...
Unpacking groff-base (1.22.4-8) ...
Selecting previously unselected package bsdextrautils.
Preparing to unpack .../003-bsdextrautils_2.38.1-1.1_armhf.deb ...
Unpacking bsdextrautils (2.38.1-1.1) ...
Selecting previously unselected package libpipeline1:armhf.
Preparing to unpack .../004-libpipeline1_1.5.6-3_armhf.deb ...
Unpacking libpipeline1:armhf (1.5.6-3) ...
Selecting previously unselected package man-db.
Preparing to unpack .../005-man-db_2.11.0-1_armhf.deb ...
Unpacking man-db (2.11.0-1) ...
Selecting previously unselected package ca-certificates.
Preparing to unpack .../006-ca-certificates_20211016_all.deb ...
Unpacking ca-certificates (20211016) ...
Selecting previously unselected package libmagic-mgc.
Preparing to unpack .../007-libmagic-mgc_1%3a5.41-4_armhf.deb ...
Unpacking libmagic-mgc (1:5.41-4) ...
Selecting previously unselected package libmagic1:armhf.
Preparing to unpack .../008-libmagic1_1%3a5.41-4_armhf.deb ...
Unpacking libmagic1:armhf (1:5.41-4) ...
Selecting previously unselected package file.
Preparing to unpack .../009-file_1%3a5.41-4_armhf.deb ...
Unpacking file (1:5.41-4) ...
Selecting previously unselected package gettext-base.
Preparing to unpack .../010-gettext-base_0.21-9_armhf.deb ...
Unpacking gettext-base (0.21-9) ...
Selecting previously unselected package libc-l10n.
Preparing to unpack .../011-libc-l10n_2.35-2+rpi1_all.deb ...
Unpacking libc-l10n (2.35-2+rpi1) ...
Selecting previously unselected package locales.
Preparing to unpack .../012-locales_2.35-2+rpi1_all.deb ...
Unpacking locales (2.35-2+rpi1) ...
Selecting previously unselected package m4.
Preparing to unpack .../013-m4_1.4.19-1_armhf.deb ...
Unpacking m4 (1.4.19-1) ...
Selecting previously unselected package autoconf.
Preparing to unpack .../014-autoconf_2.71-2_all.deb ...
Unpacking autoconf (2.71-2) ...
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-9_all.deb ...
Unpacking autopoint (0.21-9) ...
Selecting previously unselected package sbcl.
Preparing to unpack .../018-sbcl_2%3a2.2.9-1_armhf.deb ...
Unpacking sbcl (2:2.2.9-1) ...
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 libglib2.0-0:armhf.
Preparing to unpack .../035-libglib2.0-0_2.74.0-3_armhf.deb ...
Unpacking libglib2.0-0:armhf (2.74.0-3) ...
Selecting previously unselected package pkg-config.
Preparing to unpack .../036-pkg-config_0.29.2-1_armhf.deb ...
Unpacking pkg-config (0.29.2-1) ...
Selecting previously unselected package libffi-dev:armhf.
Preparing to unpack .../037-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 .../038-zlib1g-dev_1%3a1.2.11.dfsg-4.1_armhf.deb ...
Unpacking zlib1g-dev:armhf (1:1.2.11.dfsg-4.1) ...
Selecting previously unselected package cl-cffi.
Preparing to unpack .../039-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 .../040-cl-chipz_20220213.git82a17d3-1_all.deb ...
Unpacking cl-chipz (20220213.git82a17d3-1) ...
Selecting previously unselected package cl-chunga.
Preparing to unpack .../041-cl-chunga_20220222.git7836609-1_all.deb ...
Unpacking cl-chunga (20220222.git7836609-1) ...
Selecting previously unselected package cl-closer-mop.
Preparing to unpack .../042-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 .../043-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 .../044-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 .../045-cl-metatilities-base_20170403-1.1_all.deb ...
Unpacking cl-metatilities-base (20170403-1.1) ...
Selecting previously unselected package cl-containers.
Preparing to unpack .../046-cl-containers_20170403-1.1_all.deb ...
Unpacking cl-containers (20170403-1.1) ...
Selecting previously unselected package cl-iterate.
Preparing to unpack .../047-cl-iterate_20210519.gitb0f9a9c-1_all.deb ...
Unpacking cl-iterate (20210519.gitb0f9a9c-1) ...
Selecting previously unselected package cl-flexi-streams.
Preparing to unpack .../048-cl-flexi-streams_20210728.git41af5dc-1_all.deb ...
Unpacking cl-flexi-streams (20210728.git41af5dc-1) ...
Selecting previously unselected package cl-unicode.
Preparing to unpack .../049-cl-unicode_20201101.git54bdf2c-1_all.deb ...
Unpacking cl-unicode (20201101.git54bdf2c-1) ...
Selecting previously unselected package cl-named-readtables.
Preparing to unpack .../050-cl-named-readtables_20201221.gitc5689a4-1_all.deb ...
Unpacking cl-named-readtables (20201221.gitc5689a4-1) ...
Selecting previously unselected package cl-interpol.
Preparing to unpack .../051-cl-interpol_20220725.gitd4f49d4-1_all.deb ...
Unpacking cl-interpol (20220725.gitd4f49d4-1) ...
Selecting previously unselected package cl-csv.
Preparing to unpack .../052-cl-csv_20200929.git68ecb5d-1_all.deb ...
Unpacking cl-csv (20200929.git68ecb5d-1) ...
Selecting previously unselected package cl-cxml.
Preparing to unpack .../053-cl-cxml_20110619-2.1_all.deb ...
Unpacking cl-cxml (20110619-2.1) ...
Selecting previously unselected package cl-db3.
Preparing to unpack .../054-cl-db3_20200212-1_all.deb ...
Unpacking cl-db3 (20200212-1) ...
Selecting previously unselected package cl-puri.
Preparing to unpack .../055-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 .../056-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 .../057-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 .../058-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 .../059-cl-plus-ssl_20220328.git8b91648-4_all.deb ...
Unpacking cl-plus-ssl (20220328.git8b91648-4) ...
Selecting previously unselected package cl-drakma.
Preparing to unpack .../060-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 .../061-cl-dynamic-classes_20130128-2.1_all.deb ...
Unpacking cl-dynamic-classes (20130128-2.1) ...
Selecting previously unselected package cl-fad.
Preparing to unpack .../062-cl-fad_20220110.git3f4d32d-1_all.deb ...
Unpacking cl-fad (20220110.git3f4d32d-1) ...
Selecting previously unselected package cl-garbage-pools.
Preparing to unpack .../063-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 .../064-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 .../065-cl-ieee-floats_20170830-1.1_all.deb ...
Unpacking cl-ieee-floats (20170830-1.1) ...
Selecting previously unselected package cl-ironclad.
Preparing to unpack .../066-cl-ironclad_0.57-3_all.deb ...
Unpacking cl-ironclad (0.57-3) ...
Selecting previously unselected package cl-ixf.
Preparing to unpack .../067-cl-ixf_20180228-1.1_all.deb ...
Unpacking cl-ixf (20180228-1.1) ...
Selecting previously unselected package cl-local-time.
Preparing to unpack .../068-cl-local-time_20180228-1.1_all.deb ...
Unpacking cl-local-time (20180228-1.1) ...
Selecting previously unselected package cl-log.
Preparing to unpack .../069-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 .../070-cl-lparallel_20160825-1.1_all.deb ...
Unpacking cl-lparallel (20160825-1.1) ...
Selecting previously unselected package cl-metabang-bind.
Preparing to unpack .../071-cl-metabang-bind_20200101.git9ab6e64-1_all.deb ...
Unpacking cl-metabang-bind (20200101.git9ab6e64-1) ...
Selecting previously unselected package cl-markdown.
Preparing to unpack .../072-cl-markdown_20101006-2.1_all.deb ...
Unpacking cl-markdown (20101006-2.1) ...
Selecting previously unselected package cl-md5.
Preparing to unpack .../073-cl-md5_1%3a20210622.git906593f-1_all.deb ...
Unpacking cl-md5 (1:20210622.git906593f-1) ...
Selecting previously unselected package freetds-common.
Preparing to unpack .../074-freetds-common_1.3.6-1.1_all.deb ...
Unpacking freetds-common (1.3.6-1.1) ...
Selecting previously unselected package libct4:armhf.
Preparing to unpack .../075-libct4_1.3.6-1.1_armhf.deb ...
Unpacking libct4:armhf (1.3.6-1.1) ...
Selecting previously unselected package libsybdb5:armhf.
Preparing to unpack .../076-libsybdb5_1.3.6-1.1_armhf.deb ...
Unpacking libsybdb5:armhf (1.3.6-1.1) ...
Selecting previously unselected package freetds-dev.
Preparing to unpack .../077-freetds-dev_1.3.6-1.1_armhf.deb ...
Unpacking freetds-dev (1.3.6-1.1) ...
Selecting previously unselected package cl-mssql.
Preparing to unpack .../078-cl-mssql_20180228-1.1_all.deb ...
Unpacking cl-mssql (20180228-1.1) ...
Selecting previously unselected package cl-mustache.
Preparing to unpack .../079-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 .../080-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 .../081-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 .../082-cl-postgres_20211113.git9d4332f-3_all.deb ...
Unpacking cl-postgres (20211113.git9d4332f-3) ...
Selecting previously unselected package cl-s-sql.
Preparing to unpack .../083-cl-s-sql_20211113.git9d4332f-3_all.deb ...
Unpacking cl-s-sql (20211113.git9d4332f-3) ...
Selecting previously unselected package cl-postmodern.
Preparing to unpack .../084-cl-postmodern_20211113.git9d4332f-3_all.deb ...
Unpacking cl-postmodern (20211113.git9d4332f-3) ...
Selecting previously unselected package cl-py-configparser.
Preparing to unpack .../085-cl-py-configparser_20170830-1.1_all.deb ...
Unpacking cl-py-configparser (20170830-1.1) ...
Selecting previously unselected package cl-qmynd.
Preparing to unpack .../086-cl-qmynd_20180131-1.1_all.deb ...
Unpacking cl-qmynd (20180131-1.1) ...
Selecting previously unselected package cl-quri.
Preparing to unpack .../087-cl-quri_20150804-1.1_all.deb ...
Unpacking cl-quri (20150804-1.1) ...
Selecting previously unselected package cl-simple-date.
Preparing to unpack .../088-cl-simple-date_20211113.git9d4332f-3_all.deb ...
Unpacking cl-simple-date (20211113.git9d4332f-3) ...
Selecting previously unselected package cl-sqlite.
Preparing to unpack .../089-cl-sqlite_20130615-2.1_all.deb ...
Unpacking cl-sqlite (20130615-2.1) ...
Selecting previously unselected package cl-trivial-backtrace.
Preparing to unpack .../090-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 .../091-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 .../092-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 .../093-cl-uuid_20130813-1.1_all.deb ...
Unpacking cl-uuid (20130813-1.1) ...
Selecting previously unselected package cl-yason.
Preparing to unpack .../094-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 .../095-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 .../096-libdebhelper-perl_13.10_all.deb ...
Unpacking libdebhelper-perl (13.10) ...
Selecting previously unselected package libtool.
Preparing to unpack .../097-libtool_2.4.7-4_all.deb ...
Unpacking libtool (2.4.7-4) ...
Selecting previously unselected package dh-autoreconf.
Preparing to unpack .../098-dh-autoreconf_20_all.deb ...
Unpacking dh-autoreconf (20) ...
Selecting previously unselected package libarchive-zip-perl.
Preparing to unpack .../099-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 .../100-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 .../101-libfile-stripnondeterminism-perl_1.13.0-1_all.deb ...
Unpacking libfile-stripnondeterminism-perl (1.13.0-1) ...
Selecting previously unselected package dh-strip-nondeterminism.
Preparing to unpack .../102-dh-strip-nondeterminism_1.13.0-1_all.deb ...
Unpacking dh-strip-nondeterminism (1.13.0-1) ...
Selecting previously unselected package libelf1:armhf.
Preparing to unpack .../103-libelf1_0.187-2+rpi2_armhf.deb ...
Unpacking libelf1:armhf (0.187-2+rpi2) ...
Selecting previously unselected package dwz.
Preparing to unpack .../104-dwz_0.14+20220924-2_armhf.deb ...
Unpacking dwz (0.14+20220924-2) ...
Selecting previously unselected package libicu71:armhf.
Preparing to unpack .../105-libicu71_71.1-3_armhf.deb ...
Unpacking libicu71:armhf (71.1-3) ...
Selecting previously unselected package libxml2:armhf.
Preparing to unpack .../106-libxml2_2.9.14+dfsg-1_armhf.deb ...
Unpacking libxml2:armhf (2.9.14+dfsg-1) ...
Selecting previously unselected package gettext.
Preparing to unpack .../107-gettext_0.21-9_armhf.deb ...
Unpacking gettext (0.21-9) ...
Selecting previously unselected package intltool-debian.
Preparing to unpack .../108-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 .../109-po-debconf_1.0.21+nmu1_all.deb ...
Unpacking po-debconf (1.0.21+nmu1) ...
Selecting previously unselected package debhelper.
Preparing to unpack .../110-debhelper_13.10_all.deb ...
Unpacking debhelper (13.10) ...
Selecting previously unselected package xml-core.
Preparing to unpack .../111-xml-core_0.18+nmu1_all.deb ...
Unpacking xml-core (0.18+nmu1) ...
Selecting previously unselected package docutils-common.
Preparing to unpack .../112-docutils-common_0.17.1+dfsg-2_all.deb ...
Unpacking docutils-common (0.17.1+dfsg-2) ...
Selecting previously unselected package fonts-font-awesome.
Preparing to unpack .../113-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 .../114-help2man_1.49.2_armhf.deb ...
Unpacking help2man (1.49.2) ...
Selecting previously unselected package libmd0:armhf.
Preparing to unpack .../115-libmd0_1.0.4-2_armhf.deb ...
Unpacking libmd0:armhf (1.0.4-2) ...
Selecting previously unselected package libbsd0:armhf.
Preparing to unpack .../116-libbsd0_0.11.7-1_armhf.deb ...
Unpacking libbsd0:armhf (0.11.7-1) ...
Selecting previously unselected package libedit2:armhf.
Preparing to unpack .../117-libedit2_3.1-20221009-1_armhf.deb ...
Unpacking libedit2:armhf (3.1-20221009-1) ...
Selecting previously unselected package libjs-jquery.
Preparing to unpack .../118-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 .../119-libjs-underscore_1.13.4~dfsg+~1.11.4-1_all.deb ...
Unpacking libjs-underscore (1.13.4~dfsg+~1.11.4-1) ...
Selecting previously unselected package libjs-sphinxdoc.
Preparing to unpack .../120-libjs-sphinxdoc_4.5.0-4_all.deb ...
Unpacking libjs-sphinxdoc (4.5.0-4) ...
Selecting previously unselected package libz3-4:armhf.
Preparing to unpack .../121-libz3-4_4.8.12-1_armhf.deb ...
Unpacking libz3-4:armhf (4.8.12-1) ...
Selecting previously unselected package libllvm14:armhf.
Preparing to unpack .../122-libllvm14_1%3a14.0.6-2+rpi1_armhf.deb ...
Unpacking libllvm14:armhf (1:14.0.6-2+rpi1) ...
Selecting previously unselected package libpq5:armhf.
Preparing to unpack .../123-libpq5_15.0-1_armhf.deb ...
Unpacking libpq5:armhf (15.0-1) ...
Selecting previously unselected package libsqlite3-dev:armhf.
Preparing to unpack .../124-libsqlite3-dev_3.39.4-1_armhf.deb ...
Unpacking libsqlite3-dev:armhf (3.39.4-1) ...
Selecting previously unselected package libxslt1.1:armhf.
Preparing to unpack .../125-libxslt1.1_1.1.35-1_armhf.deb ...
Unpacking libxslt1.1:armhf (1.1.35-1) ...
Selecting previously unselected package postgresql-client-15.
Preparing to unpack .../126-postgresql-client-15_15.0-1_armhf.deb ...
Unpacking postgresql-client-15 (15.0-1) ...
Selecting previously unselected package postgresql-15.
Preparing to unpack .../127-postgresql-15_15.0-1_armhf.deb ...
Unpacking postgresql-15 (15.0-1) ...
Selecting previously unselected package postgresql-15-ip4r.
Preparing to unpack .../128-postgresql-15-ip4r_2.4.1-8_armhf.deb ...
Unpacking postgresql-15-ip4r (2.4.1-8) ...
Selecting previously unselected package python-babel-localedata.
Preparing to unpack .../129-python-babel-localedata_2.10.3-1_all.deb ...
Unpacking python-babel-localedata (2.10.3-1) ...
Selecting previously unselected package python3-alabaster.
Preparing to unpack .../130-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 .../131-python3-pkg-resources_65.5.0-1_all.deb ...
Unpacking python3-pkg-resources (65.5.0-1) ...
Selecting previously unselected package python3-tz.
Preparing to unpack .../132-python3-tz_2022.4-1_all.deb ...
Unpacking python3-tz (2022.4-1) ...
Selecting previously unselected package python3-babel.
Preparing to unpack .../133-python3-babel_2.10.3-1_all.deb ...
Unpacking python3-babel (2.10.3-1) ...
Selecting previously unselected package python3-certifi.
Preparing to unpack .../134-python3-certifi_2022.6.15-2_all.deb ...
Unpacking python3-certifi (2022.6.15-2) ...
Selecting previously unselected package python3-chardet.
Preparing to unpack .../135-python3-chardet_4.0.0-2_all.deb ...
Unpacking python3-chardet (4.0.0-2) ...
Selecting previously unselected package python3-charset-normalizer.
Preparing to unpack .../136-python3-charset-normalizer_2.0.6-2_all.deb ...
Unpacking python3-charset-normalizer (2.0.6-2) ...
Selecting previously unselected package python3-lib2to3.
Preparing to unpack .../137-python3-lib2to3_3.10.7-1_all.deb ...
Unpacking python3-lib2to3 (3.10.7-1) ...
Selecting previously unselected package python3-distutils.
Preparing to unpack .../138-python3-distutils_3.10.7-1_all.deb ...
Unpacking python3-distutils (3.10.7-1) ...
Selecting previously unselected package python3-roman.
Preparing to unpack .../139-python3-roman_3.3-1_all.deb ...
Unpacking python3-roman (3.3-1) ...
Selecting previously unselected package python3-docutils.
Preparing to unpack .../140-python3-docutils_0.17.1+dfsg-2_all.deb ...
Unpacking python3-docutils (0.17.1+dfsg-2) ...
Selecting previously unselected package python3-idna.
Preparing to unpack .../141-python3-idna_3.3-1_all.deb ...
Unpacking python3-idna (3.3-1) ...
Selecting previously unselected package python3-imagesize.
Preparing to unpack .../142-python3-imagesize_1.4.1-1_all.deb ...
Unpacking python3-imagesize (1.4.1-1) ...
Selecting previously unselected package python3-more-itertools.
Preparing to unpack .../143-python3-more-itertools_8.10.0-2_all.deb ...
Unpacking python3-more-itertools (8.10.0-2) ...
Selecting previously unselected package python3-zipp.
Preparing to unpack .../144-python3-zipp_1.0.0-4_all.deb ...
Unpacking python3-zipp (1.0.0-4) ...
Selecting previously unselected package python3-importlib-metadata.
Preparing to unpack .../145-python3-importlib-metadata_4.12.0-1_all.deb ...
Unpacking python3-importlib-metadata (4.12.0-1) ...
Selecting previously unselected package python3-markupsafe.
Preparing to unpack .../146-python3-markupsafe_2.1.1-1_armhf.deb ...
Unpacking python3-markupsafe (2.1.1-1) ...
Selecting previously unselected package python3-jinja2.
Preparing to unpack .../147-python3-jinja2_3.0.3-2_all.deb ...
Unpacking python3-jinja2 (3.0.3-2) ...
Selecting previously unselected package python3-pyparsing.
Preparing to unpack .../148-python3-pyparsing_3.0.7-2_all.deb ...
Unpacking python3-pyparsing (3.0.7-2) ...
Selecting previously unselected package python3-packaging.
Preparing to unpack .../149-python3-packaging_21.3-1.1_all.deb ...
Unpacking python3-packaging (21.3-1.1) ...
Selecting previously unselected package python3-pygments.
Preparing to unpack .../150-python3-pygments_2.12.0+dfsg-2_all.deb ...
Unpacking python3-pygments (2.12.0+dfsg-2) ...
Selecting previously unselected package python3-six.
Preparing to unpack .../151-python3-six_1.16.0-4_all.deb ...
Unpacking python3-six (1.16.0-4) ...
Selecting previously unselected package python3-urllib3.
Preparing to unpack .../152-python3-urllib3_1.26.12-1_all.deb ...
Unpacking python3-urllib3 (1.26.12-1) ...
Selecting previously unselected package python3-requests.
Preparing to unpack .../153-python3-requests_2.27.1+dfsg-1_all.deb ...
Unpacking python3-requests (2.27.1+dfsg-1) ...
Selecting previously unselected package python3-snowballstemmer.
Preparing to unpack .../154-python3-snowballstemmer_2.2.0-2_all.deb ...
Unpacking python3-snowballstemmer (2.2.0-2) ...
Selecting previously unselected package sphinx-common.
Preparing to unpack .../155-sphinx-common_4.5.0-4_all.deb ...
Unpacking sphinx-common (4.5.0-4) ...
Selecting previously unselected package python3-sphinx.
Preparing to unpack .../156-python3-sphinx_4.5.0-4_all.deb ...
Unpacking python3-sphinx (4.5.0-4) ...
Selecting previously unselected package sphinx-rtd-theme-common.
Preparing to unpack .../157-sphinx-rtd-theme-common_1.0.0+dfsg-1_all.deb ...
Unpacking sphinx-rtd-theme-common (1.0.0+dfsg-1) ...
Selecting previously unselected package python3-sphinx-rtd-theme.
Preparing to unpack .../158-python3-sphinx-rtd-theme_1.0.0+dfsg-1_all.deb ...
Unpacking python3-sphinx-rtd-theme (1.0.0+dfsg-1) ...
Selecting previously unselected package sbuild-build-depends-pgloader-dummy.
Preparing to unpack .../159-sbuild-build-depends-pgloader-dummy_0.invalid.0_armhf.deb ...
Unpacking sbuild-build-depends-pgloader-dummy (0.invalid.0) ...
Setting up media-types (8.0.0) ...
Setting up postgresql-client-common (245) ...
Setting up libpipeline1:armhf (1.5.6-3) ...
Setting up libicu71:armhf (71.1-3) ...
Setting up cl-trivial-utf-8 (20111001-1.1) ...
Setting up libc-l10n (2.35-2+rpi1) ...
Setting up fonts-lato (2.0-2.1) ...
Setting up cl-trivial-garbage (20211229.gitb3af9c0-1) ...
Setting up cl-garbage-pools (20130720-1.1) ...
Setting up bsdextrautils (2.38.1-1.1) ...
Setting up cl-closer-mop (2:20220227.giteabdf6a-1) ...
Setting up libmagic-mgc (1:5.41-4) ...
Setting up cl-metabang-bind (20200101.git9ab6e64-1) ...
Setting up gawk (1:5.1.0-1) ...
Setting up cl-asdf (2:3.3.6-1) ...
Setting up libarchive-zip-perl (1.68-1) ...
Setting up cl-closure-common (20101107-1.1) ...
Setting up libglib2.0-0:armhf (2.74.0-3) ...
No schema files found: doing nothing.
Setting up cl-parse-number (1.7-1.1) ...
Setting up libdebhelper-perl (13.10) ...
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.41-4) ...
Setting up libpq5:armhf (15.0-1) ...
Setting up gettext-base (0.21-9) ...
Setting up cl-named-readtables (20201221.gitc5689a4-1) ...
Setting up m4 (1.4.19-1) ...
Setting up postgresql-client-15 (15.0-1) ...
update-alternatives: using /usr/share/postgresql/15/man/man1/psql.1.gz to provide /usr/share/man/man1/psql.1.gz (psql.1.gz) in auto mode
Setting up cl-trivial-features (20210228.gitf6e8dd7-2) ...
Setting up cl-trivial-backtrace (20200511.git6eb65bd-1) ...
Setting up file (1:5.41-4) ...
Setting up libffi-dev:armhf (3.4.4-1) ...
Setting up locales (2.35-2+rpi1) ...
Generating locales (this might take a while)...
Generation complete.
Setting up python-babel-localedata (2.10.3-1) ...
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 help2man (1.49.2) ...
Setting up cl-cxml (20110619-2.1) ...
Setting up cl-asdf-finalizers (20170403-1.1) ...
Setting up autotools-dev (20220109.1) ...
Setting up cl-yason (0.7.6-1.1) ...
Setting up libz3-4:armhf (4.8.12-1) ...
Setting up libsqlite3-dev:armhf (3.39.4-1) ...
Setting up cl-mustache (0.12.1-9-g684f227-1.1) ...
Setting up cl-dynamic-classes (20130128-2.1) ...
Setting up cl-command-line-arguments (20151218-1.1) ...
Setting up autopoint (0.21-9) ...
Setting up pkg-config (0.29.2-1) ...
Setting up ucf (3.0043) ...
Setting up cl-global-vars (0~20141013.gitc749f32-2) ...
Setting up autoconf (2.71-2) ...
Setting up cl-chipz (20220213.git82a17d3-1) ...
Setting up sbcl (2:2.2.9-1) ...
Setting up zlib1g-dev:armhf (1:1.2.11.dfsg-4.1) ...
Setting up cl-chunga (20220222.git7836609-1) ...
Setting up libmd0:armhf (1.0.4-2) ...
Setting up xml-core (0.18+nmu1) ...
Setting up libuchardet0:armhf (0.0.7-1) ...
Setting up libjson-perl (4.10000-1) ...
Setting up libmpdec3:armhf (2.5.1-2+rpi1) ...
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.6-1.1) ...
Setting up libjs-jquery (3.6.1+dfsg+~3.5.14-1) ...
Setting up cl-py-configparser (20170830-1.1) ...
Setting up cl-ppcre (20220126.gitb4056c5-1) ...
Setting up cl-anaphora (1:0.9.8-1) ...
Setting up openssl (3.0.5-4) ...
Setting up libbsd0:armhf (0.11.7-1) ...
Setting up cl-ieee-floats (20170830-1.1) ...
Setting up libelf1:armhf (0.187-2+rpi2) ...
Setting up libxml2:armhf (2.9.14+dfsg-1) ...
Setting up fonts-font-awesome (5.0.10+really4.7.0~dfsg-4.1) ...
Setting up sphinx-rtd-theme-common (1.0.0+dfsg-1) ...
Setting up libjs-underscore (1.13.4~dfsg+~1.11.4-1) ...
Setting up buildapp (1.5.6-3) ...
Setting up automake (1:1.16.5-1.3) ...
update-alternatives: using /usr/bin/automake-1.16 to provide /usr/bin/automake (automake) in auto mode
Setting up libfile-stripnondeterminism-perl (1.13.0-1) ...
Setting up cl-containers (20170403-1.1) ...
Setting up gettext (0.21-9) ...
Setting up cl-flexi-streams (20210728.git41af5dc-1) ...
Setting up cl-uax-15 (0~20211021.git75c8a87-3) ...
Setting up libtool (2.4.7-4) ...
Setting up cl-ixf (20180228-1.1) ...
Setting up libedit2:armhf (3.1-20221009-1) ...
Setting up libsybdb5:armhf (1.3.6-1.1) ...
Setting up cl-babel (20200719.gitf892d05-2) ...
Setting up cl-bordeaux-threads (0.8.8-5) ...
Setting up intltool-debian (0.35.0+20060710.6) ...
Setting up libpython3.10-stdlib:armhf (3.10.7-2) ...
Setting up dh-autoreconf (20) ...
Setting up ca-certificates (20211016) ...
Updating certificates in /etc/ssl/certs...
127 added, 0 removed; done.
Setting up libct4:armhf (1.3.6-1.1) ...
Setting up ssl-cert (1.1.2) ...
Setting up cl-kmrcl (1.111-2) ...
Setting up cl-lparallel (20160825-1.1) ...
Setting up postgresql-common (245) ...
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 cl-usocket (0.8.3-2) ...
Setting up libjs-sphinxdoc (4.5.0-4) ...
Setting up cl-md5 (1:20210622.git906593f-1) ...
Setting up dh-strip-nondeterminism (1.13.0-1) ...
Setting up libllvm14:armhf (1:14.0.6-2+rpi1) ...
Setting up dwz (0.14+20220924-2) ...
Setting up cl-esrap (20211008.gitc99c33a-1) ...
Setting up groff-base (1.22.4-8) ...
Setting up libxslt1.1:armhf (1.1.35-1) ...
Setting up cl-markdown (20101006-2.1) ...
Setting up cl-cffi (1:0.24.1-3) ...
Setting up cl-unicode (20201101.git54bdf2c-1) ...
Setting up cl-abnf (20200229.gitba1fbb1-1) ...
Setting up postgresql-15 (15.0-1) ...
Creating new PostgreSQL cluster 15/main ...
/usr/lib/postgresql/15/bin/initdb -D /var/lib/postgresql/15/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/15/main ... ok
creating subdirectories ... ok
selecting dynamic shared memory implementation ... sysv
selecting default max_connections ... 100
selecting default shared_buffers ... 128MB
selecting default time zone ... Etc/UTC
creating configuration files ... ok
running bootstrap script ... ok
performing post-bootstrap initialization ... ok
syncing data to disk ... ok
update-alternatives: using /usr/share/postgresql/15/man/man1/postmaster.1.gz to provide /usr/share/man/man1/postmaster.1.gz (postmaster.1.gz) in auto mode
invoke-rc.d: could not determine current runlevel
invoke-rc.d: policy-rc.d denied execution of start.
Setting up libpython3-stdlib:armhf (3.10.6-1) ...
Setting up cl-base64 (3.4.0-1) ...
Setting up cl-ironclad (0.57-3) ...
Setting up python3.10 (3.10.7-2) ...
Setting up cl-interpol (20220725.gitd4f49d4-1) ...
Setting up freetds-dev (1.3.6-1.1) ...
Setting up cl-fad (20220110.git3f4d32d-1) ...
Setting up po-debconf (1.0.21+nmu1) ...
Setting up cl-csv (20200929.git68ecb5d-1) ...
Setting up postgresql-15-ip4r (2.4.1-8) ...
Setting up python3 (3.10.6-1) ...
Setting up man-db (2.11.0-1) ...
Not building database; man-db/auto-update is not 'true'.
Setting up python3-markupsafe (2.1.1-1) ...
Setting up python3-tz (2022.4-1) ...
Setting up cl-mssql (20180228-1.1) ...
Setting up python3-six (1.16.0-4) ...
Setting up python3-roman (3.3-1) ...
Setting up python3-jinja2 (3.0.3-2) ...
Setting up cl-qmynd (20180131-1.1) ...
Setting up cl-plus-ssl (20220328.git8b91648-4) ...
Setting up python3-pyparsing (3.0.7-2) ...
Setting up python3-certifi (2022.6.15-2) ...
Setting up python3-snowballstemmer (2.2.0-2) ...
Setting up cl-sqlite (20130615-2.1) ...
Setting up sphinx-common (4.5.0-4) ...
Setting up python3-idna (3.3-1) ...
Setting up cl-postgres (20211113.git9d4332f-3) ...
Setting up cl-drakma (2.0.8-1) ...
Setting up python3-urllib3 (1.26.12-1) ...
Setting up cl-uuid (20130813-1.1) ...
Setting up python3-lib2to3 (3.10.7-1) ...
Setting up python3-imagesize (1.4.1-1) ...
Setting up python3-pkg-resources (65.5.0-1) ...
Setting up python3-distutils (3.10.7-1) ...
Setting up python3-more-itertools (8.10.0-2) ...
Setting up cl-local-time (20180228-1.1) ...
Setting up python3-babel (2.10.3-1) ...
update-alternatives: using /usr/bin/pybabel-python3 to provide /usr/bin/pybabel (pybabel) in auto mode
Setting up python3-charset-normalizer (2.0.6-2) ...
Setting up python3-alabaster (0.7.12-1) ...
Setting up debhelper (13.10) ...
Setting up cl-zs3 (1.3.1-1.1) ...
Setting up python3-zipp (1.0.0-4) ...
Setting up python3-pygments (2.12.0+dfsg-2) ...
Setting up python3-packaging (21.3-1.1) ...
Setting up python3-chardet (4.0.0-2) ...
Setting up cl-s-sql (20211113.git9d4332f-3) ...
Setting up python3-requests (2.27.1+dfsg-1) ...
Setting up cl-postmodern (20211113.git9d4332f-3) ...
Setting up python3-importlib-metadata (4.12.0-1) ...
Processing triggers for sgml-base (1.31) ...
Processing triggers for libc-bin (2.35-2+rpi1) ...
Setting up docutils-common (0.17.1+dfsg-2) ...
Processing triggers for sgml-base (1.31) ...
Setting up python3-docutils (0.17.1+dfsg-2) ...
Setting up python3-sphinx (4.5.0-4) ...
Setting up python3-sphinx-rtd-theme (1.0.0+dfsg-1) ...
Setting up sbuild-build-depends-pgloader-dummy (0.invalid.0) ...
Processing triggers for ca-certificates (20211016) ...
Updating certificates in /etc/ssl/certs...
0 added, 0 removed; done.
Running hooks in /etc/ca-certificates/update.d...
done.
W: No sandbox user '_apt' on the system, can not drop privileges
+------------------------------------------------------------------------------+
| Build environment |
+------------------------------------------------------------------------------+
Kernel: Linux 4.9.0-0.bpo.2-armmp armhf (armv7l)
Toolchain package versions: binutils_2.39-6+rpi1 dpkg-dev_1.21.9+rpi1 g++-12_12.2.0-3+rpi1 gcc-12_12.2.0-3+rpi1 libc6-dev_2.35-2+rpi1 libstdc++-12-dev_12.2.0-3+rpi1 libstdc++6_12.2.0-3+rpi1 linux-libc-dev_5.19.6-1+rpi1
Package versions: adduser_3.129 apt_2.5.3 autoconf_2.71-2 automake_1:1.16.5-1.3 autopoint_0.21-9 autotools-dev_20220109.1 base-files_12.3+rpi1 base-passwd_3.6.1 bash_5.2~rc2-2 binutils_2.39-6+rpi1 binutils-arm-linux-gnueabihf_2.39-6+rpi1 binutils-common_2.39-6+rpi1 bsdextrautils_2.38.1-1.1 bsdutils_1:2.38.1-1.1 build-essential_12.9 buildapp_1.5.6-3 bzip2_1.0.8-5+b2 ca-certificates_20211016 cl-abnf_20200229.gitba1fbb1-1 cl-alexandria_20211025.gita67c3a6-1 cl-anaphora_1:0.9.8-1 cl-asdf_2:3.3.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:12.2.0-1+rpi1 cpp-12_12.2.0-3+rpi1 dash_0.5.11+git20210903+057cd650a4ed-9 debconf_1.5.79 debhelper_13.10 debianutils_5.7-0.3 dh-autoreconf_20 dh-strip-nondeterminism_1.13.0-1 diffutils_1:3.8-1 dirmngr_2.2.39-1 docutils-common_0.17.1+dfsg-2 dpkg_1.21.9+rpi1 dpkg-dev_1.21.9+rpi1 dwz_0.14+20220924-2 e2fsprogs_1.46.6~rc1-1 fakeroot_1.29-1 file_1:5.41-4 findutils_4.9.0-3 fonts-font-awesome_5.0.10+really4.7.0~dfsg-4.1 fonts-lato_2.0-2.1 freetds-common_1.3.6-1.1 freetds-dev_1.3.6-1.1 g++_4:12.2.0-1+rpi1 g++-12_12.2.0-3+rpi1 gawk_1:5.1.0-1 gcc_4:12.2.0-1+rpi1 gcc-10-base_10.4.0-5+rpi1 gcc-12_12.2.0-3+rpi1 gcc-12-base_12.2.0-3+rpi1 gcc-7-base_7.5.0-6+rpi1+b2 gcc-8-base_8.4.0-7+rpi1 gcc-9-base_9.4.0-2+rpi1 gettext_0.21-9 gettext-base_0.21-9 gnupg_2.2.39-1 gnupg-l10n_2.2.39-1 gnupg-utils_2.2.39-1 gpg_2.2.39-1 gpg-agent_2.2.39-1 gpg-wks-client_2.2.39-1 gpg-wks-server_2.2.39-1 gpgconf_2.2.39-1 gpgsm_2.2.39-1 gpgv_2.2.39-1 grep_3.7-1 groff-base_1.22.4-8 gzip_1.12-1 help2man_1.49.2 hostname_3.23 init-system-helpers_1.64 intltool-debian_0.35.0+20060710.6 iputils-ping_3:20211215-1 krb5-locales_1.20-1 libacl1_2.3.1-1 libapt-pkg6.0_2.5.3 libarchive-zip-perl_1.68-1 libasan8_12.2.0-3+rpi1 libassuan0_2.5.5-4 libatomic1_12.2.0-3+rpi1 libattr1_1:2.5.1-1 libaudit-common_1:3.0.7-1.1 libaudit1_1:3.0.7-1.1 libbinutils_2.39-6+rpi1 libblkid1_2.38.1-1.1 libbsd0_0.11.7-1 libbz2-1.0_1.0.8-5+b2 libc-bin_2.35-2+rpi1 libc-dev-bin_2.35-2+rpi1 libc-l10n_2.35-2+rpi1 libc6_2.35-2+rpi1 libc6-dev_2.35-2+rpi1 libcap-ng0_0.8.3-1 libcap2_1:2.44-1 libcap2-bin_1:2.44-1 libcc1-0_12.2.0-3+rpi1 libcom-err2_1.46.6~rc1-1 libcrypt-dev_1:4.4.28-2 libcrypt1_1:4.4.28-2 libct4_1.3.6-1.1 libctf-nobfd0_2.39-6+rpi1 libctf0_2.39-6+rpi1 libdb5.3_5.3.28+dfsg1-0.10 libdebconfclient0_0.264 libdebhelper-perl_13.10 libdpkg-perl_1.21.9+rpi1 libedit2_3.1-20221009-1 libelf1_0.187-2+rpi2 libexpat1_2.4.9-1 libext2fs2_1.46.6~rc1-1 libfakeroot_1.29-1 libffi-dev_3.4.4-1 libffi8_3.4.4-1 libfile-stripnondeterminism-perl_1.13.0-1 libgcc-12-dev_12.2.0-3+rpi1 libgcc-s1_12.2.0-3+rpi1 libgcrypt20_1.10.1-2+b2 libgdbm-compat4_1.23-3 libgdbm6_1.23-3 libglib2.0-0_2.74.0-3 libgmp10_2:6.2.1+dfsg1-1.1 libgnutls30_3.7.8-2 libgomp1_12.2.0-3+rpi1 libgpg-error0_1.45-2 libgssapi-krb5-2_1.20-1 libhogweed6_3.8.1-2 libicu71_71.1-3 libidn2-0_2.3.3-1 libisl23_0.25-1 libjs-jquery_3.6.1+dfsg+~3.5.14-1 libjs-sphinxdoc_4.5.0-4 libjs-underscore_1.13.4~dfsg+~1.11.4-1 libjson-perl_4.10000-1 libk5crypto3_1.20-1 libkeyutils1_1.6.3-1 libkrb5-3_1.20-1 libkrb5support0_1.20-1 libksba8_1.6.0-3 libldap-2.4-2_2.4.59+dfsg-1 libldap-2.5-0_2.5.13+dfsg-2+rpi1 libldap-common_2.5.13+dfsg-2+rpi1 libllvm14_1:14.0.6-2+rpi1 liblocale-gettext-perl_1.07-4+b2 liblz4-1_1.9.4-1+rpi1 liblzma5_5.2.5-2.1 libmagic-mgc_1:5.41-4 libmagic1_1:5.41-4 libmd0_1.0.4-2 libmount1_2.38.1-1.1 libmpc3_1.2.1-2 libmpdec3_2.5.1-2+rpi1 libmpfr6_4.1.0-3 libncursesw6_6.3+20220423-2 libnettle8_3.8.1-2 libnpth0_1.6-3 libnsl-dev_1.3.0-2 libnsl2_1.3.0-2 libp11-kit0_0.24.1-1 libpam-cap_1:2.44-1 libpam-modules_1.5.2-5 libpam-modules-bin_1.5.2-5 libpam-runtime_1.5.2-5 libpam0g_1.5.2-5 libpcre2-8-0_10.40-1+b2 libpcre3_2:8.39-14 libperl5.34_5.34.0-5 libpipeline1_1.5.6-3 libpq5_15.0-1 libpython3-stdlib_3.10.6-1 libpython3.10-minimal_3.10.7-2 libpython3.10-stdlib_3.10.7-2 libreadline8_8.2-1 libsasl2-2_2.1.28+dfsg-8 libsasl2-modules-db_2.1.28+dfsg-8 libseccomp2_2.5.4-1+rpi1 libselinux1_3.4-1 libsemanage-common_3.4-1 libsemanage2_3.4-1 libsepol2_3.4-2 libsigsegv2_2.14-1 libsmartcols1_2.38.1-1.1 libsqlite3-0_3.39.4-1 libsqlite3-dev_3.39.4-1 libss2_1.46.6~rc1-1 libssl1.1_1.1.1o-1 libssl3_3.0.5-4 libstdc++-12-dev_12.2.0-3+rpi1 libstdc++6_12.2.0-3+rpi1 libsub-override-perl_0.09-4 libsybdb5_1.3.6-1.1 libsystemd0_251.5-1+rpi1 libtasn1-6_4.19.0-2 libtext-charwidth-perl_0.04-10+b2 libtext-iconv-perl_1.7-7+b2 libtinfo6_6.3+20220423-2 libtirpc-common_1.3.3+ds-1 libtirpc-dev_1.3.3+ds-1 libtirpc3_1.3.3+ds-1 libtool_2.4.7-4 libubsan1_12.2.0-3+rpi1 libuchardet0_0.0.7-1 libudev1_251.5-1+rpi1 libunistring2_1.0-2 libuuid1_2.38.1-1.1 libxml2_2.9.14+dfsg-1 libxslt1.1_1.1.35-1 libxxhash0_0.8.1-1 libz3-4_4.8.12-1 libzstd1_1.5.2+dfsg-1 linux-libc-dev_5.19.6-1+rpi1 locales_2.35-2+rpi1 login_1:4.12.3+dfsg1-1 logsave_1.46.6~rc1-1 lsb-base_11.4+rpi1 m4_1.4.19-1 make_4.3-4.1 man-db_2.11.0-1 mawk_1.3.4.20200120-3.1 media-types_8.0.0 mount_2.38.1-1.1 nano_6.4-1 ncurses-base_6.3+20220423-2 ncurses-bin_6.3+20220423-2 netbase_6.3 openssl_3.0.5-4 passwd_1:4.12.3+dfsg1-1 patch_2.7.6-7 perl_5.34.0-5 perl-base_5.34.0-5 perl-modules-5.34_5.34.0-5 pinentry-curses_1.2.0-2 pkg-config_0.29.2-1 po-debconf_1.0.21+nmu1 postgresql-15_15.0-1 postgresql-15-ip4r_2.4.1-8 postgresql-client-15_15.0-1 postgresql-client-common_245 postgresql-common_245 python-babel-localedata_2.10.3-1 python3_3.10.6-1 python3-alabaster_0.7.12-1 python3-babel_2.10.3-1 python3-certifi_2022.6.15-2 python3-chardet_4.0.0-2 python3-charset-normalizer_2.0.6-2 python3-distutils_3.10.7-1 python3-docutils_0.17.1+dfsg-2 python3-idna_3.3-1 python3-imagesize_1.4.1-1 python3-importlib-metadata_4.12.0-1 python3-jinja2_3.0.3-2 python3-lib2to3_3.10.7-1 python3-markupsafe_2.1.1-1 python3-minimal_3.10.6-1 python3-more-itertools_8.10.0-2 python3-packaging_21.3-1.1 python3-pkg-resources_65.5.0-1 python3-pygments_2.12.0+dfsg-2 python3-pyparsing_3.0.7-2 python3-requests_2.27.1+dfsg-1 python3-roman_3.3-1 python3-six_1.16.0-4 python3-snowballstemmer_2.2.0-2 python3-sphinx_4.5.0-4 python3-sphinx-rtd-theme_1.0.0+dfsg-1 python3-tz_2022.4-1 python3-urllib3_1.26.12-1 python3-zipp_1.0.0-4 python3.10_3.10.7-2 python3.10-minimal_3.10.7-2 raspbian-archive-keyring_20120528.2 readline-common_8.2-1 rpcsvc-proto_1.4.2-4 sbcl_2:2.2.9-1 sbuild-build-depends-core-dummy_0.invalid.0 sbuild-build-depends-pgloader-dummy_0.invalid.0 sed_4.8-1 sensible-utils_0.0.17 sgml-base_1.31 sphinx-common_4.5.0-4 sphinx-rtd-theme-common_1.0.0+dfsg-1 ssl-cert_1.1.2 sysvinit-utils_3.05-6 tar_1.34+dfsg-1 tzdata_2022d-1 ucf_3.0043 util-linux_2.38.1-1.1 util-linux-extra_2.38.1-1.1 xml-core_0.18+nmu1 xz-utils_5.2.5-2.1 zlib1g_1:1.2.11.dfsg-4.1 zlib1g-dev_1:1.2.11.dfsg-4.1
+------------------------------------------------------------------------------+
| Build |
+------------------------------------------------------------------------------+
Unpack source
-------------
gpgv: unknown type of key resource 'trustedkeys.kbx'
gpgv: keyblock resource '/tmp/dpkg-verify-sig.BYwlG0xm/trustedkeys.kbx': General error
gpgv: Signature made Mon Oct 24 13:20:51 2022 UTC
gpgv: using RSA key 5C48FE6157F49179597087C64C5A6BAB12D2A7AE
gpgv: Can't check signature: No public key
dpkg-source: warning: cannot verify signature ./pgloader_3.6.9-1.dsc
dpkg-source: info: extracting pgloader in /<<PKGBUILDDIR>>
dpkg-source: info: unpacking pgloader_3.6.9.orig.tar.gz
dpkg-source: info: unpacking pgloader_3.6.9-1.debian.tar.xz
Check disc space
----------------
Sufficient free space for build
User Environment
----------------
APT_CONFIG=/var/lib/sbuild/apt.conf
DEB_BUILD_OPTIONS=parallel=4
HOME=/sbuild-nonexistent
LC_ALL=POSIX
LOGNAME=buildd
PATH=/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games
SCHROOT_ALIAS_NAME=bookworm-staging-armhf-sbuild
SCHROOT_CHROOT_NAME=bookworm-staging-armhf-sbuild
SCHROOT_COMMAND=env
SCHROOT_GID=109
SCHROOT_GROUP=buildd
SCHROOT_SESSION_ID=bookworm-staging-armhf-sbuild-c2741680-12ad-4699-8008-d841d8b19a07
SCHROOT_UID=104
SCHROOT_USER=buildd
SHELL=/bin/sh
TERM=xterm
USER=buildd
dpkg-buildpackage
-----------------
dpkg-buildpackage: info: source package pgloader
dpkg-buildpackage: info: source version 3.6.9-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.9/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.9" = "3.6.9" ] # Makefile = docs/conf.py version
[ "3.6.9" = "3.6.9" ] # Makefile = pgloader.spec version
[ "3.6.9" = "3.6.9" ] # 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.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-asdf/build/asdf-tmp7LQ0A0VI.fasl
; compilation finished in 0:01:12.107
;; 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 1439 at level 9
compressed 91299840 bytes into 22435068 at level 9
compressed 20004864 bytes into 4183197 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" {5061F6C9}>
;; 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) {57A172B1}>
;; #<STANDARD-METHOD UIOP/RUN-PROGRAM:VOMIT-OUTPUT-STREAM (T T) {57D73241}>
;; 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) {52EA6C31}>
;; #<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) {53471709}>
;; #<STANDARD-METHOD ASDF/COMPONENT:COMPONENT-EXTERNAL-FORMAT (COMPONENT) {534C4929}>
;; #<STANDARD-METHOD ASDF/COMPONENT:AROUND-COMPILE-HOOK (COMPONENT) {53533B79}>
;; #<STANDARD-METHOD ASDF/COMPONENT:VERSION-SATISFIES (STRING T) {535D9D71}>
;; SUB-COMPONENTS
;; #<PACKAGE "ASDF/OPERATION">
;; #<PACKAGE "ASDF/OPERATION">
;; NIL
;; #<STANDARD-METHOD COMMON-LISP:INITIALIZE-INSTANCE :AFTER (OPERATION) {537AEEE1}>
;; #<STANDARD-METHOD ASDF/OPERATION:FIND-OPERATION (T STRING) {5383B2D9}>
;; #<PACKAGE "ASDF/SYSTEM">
;; #<PACKAGE "ASDF/SYSTEM">
;; #<STANDARD-METHOD ASDF/SYSTEM:COMPONENT-ENTRY-POINT (COMPONENT) {55904EA1}>
;; RESET-SYSTEM-CLASS
;; COERCE-FILENAME
;; SYSTEM-LICENSE
;; #<STANDARD-METHOD ASDF/SYSTEM:COMPONENT-BUILD-PATHNAME (COMPONENT) {57B03A41}>
;; #<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) {5875FFE9}>
;; #<STANDARD-CLASS ASDF/ACTION:NON-PROPAGATING-OPERATION>
;; #<STANDARD-METHOD ASDF/ACTION:SIDEWAY-OPERATION (OPERATION) {58CA4A01}>
;; #<STANDARD-METHOD ASDF/ACTION:INPUT-FILES (SELFWARD-OPERATION COMPONENT) {591C8D41}>
;; #<STANDARD-METHOD ASDF/ACTION:MARK-OPERATION-DONE (OPERATION COMPONENT) {592DCF19}>
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T) {5A5ADCE9}>
;; #<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) {5A905959}>
;; #<STANDARD-METHOD ASDF/ACTION:OUTPUT-FILES (COMPILE-OP SYSTEM) {50F07B71}>
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM (LOAD-OP STATIC-FILE) {52E713E1}>
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM (PREPARE-SOURCE-OP COMPONENT) {52F4E9C1}>
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM (LOAD-SOURCE-OP STATIC-FILE) {530F6981}>
;; #<STANDARD-METHOD ASDF/ACTION:OPERATION-DONE-P (TEST-OP SYSTEM) {53130D81}>
;; #<PACKAGE "ASDF/FIND-COMPONENT">
;; #<PACKAGE "ASDF/FIND-COMPONENT">
;; #<STANDARD-METHOD COMMON-LISP:PRINT-OBJECT (MISSING-COMPONENT-OF-VERSION T) {5355DF61}>
;; #<STANDARD-METHOD ASDF/FIND-COMPONENT:RESOLVE-DEPENDENCY-COMBINATION (T
(EQL
:VERSION)
T) {56D2FDF9}>
;; #<PACKAGE "ASDF/FORCING">
;; #<PACKAGE "ASDF/FORCING">
;; #<STANDARD-METHOD ASDF/SESSION:FORCING (CONS) {579862F9}>
;; #<PACKAGE "ASDF/PLAN">
;; #<PACKAGE "ASDF/PLAN">
;; #<STANDARD-METHOD ASDF/PLAN:RECORD-DEPENDENCY (SEQUENTIAL-PLAN OPERATION
COMPONENT) {57AEEB79}>
;; NIL
;; +STATUS-VOID+
;; #<STANDARD-METHOD (COMMON-LISP:SETF ASDF/PLAN:ACTION-STATUS) :AFTER (T
SEQUENTIAL-PLAN
OPERATION
COMPONENT) {57F2BE71}>
;; #<STANDARD-METHOD ASDF/PLAN:NEEDED-IN-IMAGE-P (OPERATION COMPONENT) {57F531C9}>
;; #<STANDARD-METHOD ASDF/ACTION:COMPUTE-ACTION-STAMP (T OPERATION COMPONENT) {582982E9}>
;; ACTION-UP-TO-DATE-P
;; REQUIRED-COMPONENTS
;; #<STANDARD-METHOD ASDF/PLAN:MARK-AS-DONE (PLAN OPERATION COMPONENT) {58C024B1}>
;; #<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) {52F32CB1}>
;; 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) {5822A6F1}>
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM (OPERATION COMPILED-FILE) {582EB229}>
;; #<STANDARD-METHOD ASDF/ACTION:OUTPUT-FILES (LIB-OP PREBUILT-SYSTEM) {583B94E9}>
;; #<STANDARD-METHOD ASDF/ACTION:COMPONENT-DEPENDS-ON (LOAD-BUNDLE-OP
PRECOMPILED-SYSTEM) {586F94F1}>
;; #<PACKAGE "ASDF/CONCATENATE-SOURCE">
;; #<PACKAGE "ASDF/CONCATENATE-SOURCE">
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM (BASIC-LOAD-COMPILED-CONCATENATED-SOURCE-OP
SYSTEM) {58B125A1}>
;; #<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) {5772E191}>
;; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/asdf-finalizers/pkgdcl-tmp74KGUNRZ.fasl
; compilation finished in 0:00:00.050
; compiling file "/usr/share/common-lisp/source/asdf-finalizers/finalizers.lisp" (written 27 MAR 2017 05:20:19 AM):
; processing (IN-PACKAGE :ASDF-FINALIZERS)
; processing (DEFVAR *WARN-WHEN-FINALIZERS-OFF* ...)
; processing (DEFVAR *DEBUG-FINALIZERS* ...)
; processing (DEFINE-CONDITION FINALIZERS-OFF ...)
; processing (DEFINE-CONDITION FINALIZERS-OFF-ERROR ...)
; processing (DEFINE-CONDITION FINALIZERS-OFF-SIMPLE-ERROR ...)
; processing (DEFINE-CONDITION FINALIZERS-OFF-WARNING ...)
; processing (DEFINE-CONDITION FINALIZERS-OFF-SIMPLE-WARNING ...)
; processing (DEFINE-CONDITION MISSING-FINAL-FORMS ...)
; processing (DEFVAR *FINALIZERS*)
; processing (DEFVAR *FINALIZERS-DATA* ...)
; processing (DEFUN USING-FINALIZERS-P ...)
; processing (DEFUN RESET-FINALIZERS ...)
; processing (DEFUN DISABLE-FINALIZERS ...)
; processing (DEFMACRO FINAL-FORMS ...)
; processing (DEFMACRO FINAL-FORMS-INTERNAL ...)
; processing (DEFUN EXPAND-FINAL-FORMS ...)
; processing (DEFUN REGISTER-FINALIZER ...)
; processing (DEFUN REGISTER-FINAL-FORM ...)
; processing (DEFUN NO-FINALIZER-LEFT-BEHIND-P ...)
; processing (DEFUN ASSERT-NO-FINALIZER-LEFT-BEHIND ...)
; processing (DEFMACRO WITH-FINALIZERS ...)
; processing (DEFUN CALL-WITH-FINALIZERS ...)
; processing (DEFUN EVAL-AT-TOPLEVEL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/asdf-finalizers/finalizers-tmpCEL1YIM2.fasl
; compilation finished in 0:00:00.310
; compiling file "/usr/share/common-lisp/source/asdf-finalizers/asdf-support.lisp" (written 27 MAR 2017 05:20:19 AM):
; processing (IN-PACKAGE :ASDF-FINALIZERS)
; processing (DEFUN COMPILE-CHECK-FINALIZERS ...)
; processing (DEFUN CHECK-FINALIZERS-AROUND-COMPILE ...)
; processing (DEFCLASS ASDF/INTERFACE::FINALIZED-CL-SOURCE-FILE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/asdf-finalizers/asdf-support-tmpHAMQABTV.fasl
; compilation finished in 0:00:00.050
; compiling file "/usr/share/common-lisp/source/asdf-finalizers/initialization.lisp" (written 27 MAR 2017 05:20:19 AM):
; processing (IN-PACKAGE :ASDF-FINALIZERS)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/asdf-finalizers/initialization-tmpUPMG0IBO.fasl
; compilation finished in 0:00:00.005
;; loading system "asdf-system-connections"
; compiling file "/usr/share/common-lisp/source/asdf-system-connections/dev/asdf-system-connections.lisp" (written 23 DEC 2016 07:00:46 PM):
; processing (IN-PACKAGE :ASDF)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DEFCLASS SYSTEM-CONNECTION ...)
; processing (DEFUN MAP-SYSTEM-CONNECTIONS ...)
; processing (DEFMACRO DEFSYSTEM-CONNECTION ...)
; processing (DEFUN LOAD-CONNECTED-SYSTEMS ...)
; processing (DEFUN REQUIRED-SYSTEMS-LOADED-P ...)
; processing (UNLESS (FBOUNDP #) ...)
; file: /usr/share/common-lisp/source/asdf-system-connections/dev/asdf-system-connections.lisp
; in: DEFUN REGISTERED-SYSTEM
; (ASDF/BACKWARD-INTERFACE:SYSTEM-REGISTERED-P ASDF/INTERFACE::SYSTEM-NAME)
;
; caught STYLE-WARNING:
; DEPRECATED-FUNCTION-STYLE-WARNING: Using deprecated function ASDF/BACKWARD-INTERFACE:SYSTEM-REGISTERED-P -- please update your code to use a newer API.
; The docstring for this function says:
; DEPRECATED. Return a generalized boolean that is true if a system of given NAME was registered already.
; NAME is a system designator, to be normalized by COERCE-NAME.
; The value returned if true is a pair of a timestamp and a system object.
;
; processing (DEFUN SYSTEM-LOADED-P ...)
; processing (DEFMETHOD OPERATE ...)
; processing (PUSHNEW :ASDF-SYSTEM-CONNECTIONS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/asdf-system-connections/dev/asdf-system-connections-tmpAKM32D0F.fasl
; compilation finished in 0:00:00.160
WARNING:
Lisp compilation had style-warnings while compiling
#<CL-SOURCE-FILE "asdf-system-connections" "dev" "asdf-system-connections">
;
; compilation unit finished
; caught 1 STYLE-WARNING condition
;; loading system "cffi"
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/package.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (DEFPACKAGE :ALEXANDRIA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/package-tmp8UG37QJ5.fasl
; compilation finished in 0:00:00.020
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/definitions.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFUN %REEVALUATE-CONSTANT ...)
; processing (DEFMACRO DEFINE-CONSTANT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/definitions-tmp65YV5VYW.fasl
; compilation finished in 0:00:00.105
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/binding.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFMACRO IF-LET ...)
; processing (DEFMACRO WHEN-LET ...)
; processing (DEFMACRO WHEN-LET* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/binding-tmpGO4MNX7G.fasl
; compilation finished in 0:00:00.155
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/strings.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFTYPE STRING-DESIGNATOR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/strings-tmp9NXH2K1.fasl
; compilation finished in 0:00:00.015
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/conditions.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFUN REQUIRED-ARGUMENT ...)
; processing (DEFINE-CONDITION SIMPLE-STYLE-WARNING ...)
; processing (DEFUN SIMPLE-STYLE-WARNING ...)
; processing (DEFINE-CONDITION SIMPLE-READER-ERROR ...)
; processing (DEFUN SIMPLE-READER-ERROR ...)
; processing (DEFINE-CONDITION SIMPLE-PARSE-ERROR ...)
; processing (DEFUN SIMPLE-PARSE-ERROR ...)
; processing (DEFINE-CONDITION SIMPLE-PROGRAM-ERROR ...)
; processing (DEFUN SIMPLE-PROGRAM-ERROR ...)
; processing (DEFMACRO IGNORE-SOME-CONDITIONS ...)
; processing (DEFMACRO UNWIND-PROTECT-CASE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/conditions-tmp6B86GLV2.fasl
; compilation finished in 0:00:00.200
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/symbols.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DECLAIM (INLINE ENSURE-SYMBOL))
; processing (DEFUN ENSURE-SYMBOL ...)
; processing (DEFUN MAYBE-INTERN ...)
; processing (DECLAIM (INLINE FORMAT-SYMBOL))
; processing (DEFUN FORMAT-SYMBOL ...)
; processing (DEFUN MAKE-KEYWORD ...)
; processing (DEFUN MAKE-GENSYM ...)
; processing (DEFUN MAKE-GENSYM-LIST ...)
; processing (DEFUN SYMBOLICATE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/symbols-tmpZWLLOVAH.fasl
; compilation finished in 0:00:00.155
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/macros.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFMACRO WITH-GENSYMS ...)
; processing (DEFMACRO WITH-UNIQUE-NAMES ...)
; processing (DEFMACRO ONCE-ONLY ...)
; processing (DEFUN PARSE-BODY ...)
; processing (DEFUN PARSE-ORDINARY-LAMBDA-LIST ...)
; processing (DEFUN EXPAND-DESTRUCTURING-CASE ...)
; processing (DEFMACRO DESTRUCTURING-CASE ...)
; processing (DEFMACRO DESTRUCTURING-CCASE ...)
; processing (DEFMACRO DESTRUCTURING-ECASE ...)
; processing (DOLIST (NAME #) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/macros-tmpS9M8BVBG.fasl
; compilation finished in 0:00:00.775
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/functions.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DECLAIM (INLINE ENSURE-FUNCTION))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN ENSURE-FUNCTION ...)
; processing (DEFINE-MODIFY-MACRO ENSURE-FUNCTIONF/1 ...)
; processing (DEFMACRO ENSURE-FUNCTIONF ...)
; processing (DEFUN DISJOIN ...)
; processing (DEFUN CONJOIN ...)
; processing (DEFUN COMPOSE ...)
; processing (DEFINE-COMPILER-MACRO COMPOSE ...)
; processing (DEFUN MULTIPLE-VALUE-COMPOSE ...)
; processing (DEFINE-COMPILER-MACRO MULTIPLE-VALUE-COMPOSE ...)
; processing (DECLAIM (INLINE CURRY ...))
; processing (DEFUN CURRY ...)
; processing (DEFINE-COMPILER-MACRO CURRY ...)
; processing (DEFUN RCURRY ...)
; processing (DEFINE-COMPILER-MACRO RCURRY ...)
; processing (DECLAIM (NOTINLINE CURRY ...))
; processing (DEFMACRO NAMED-LAMBDA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/functions-tmp205IFRLS.fasl
; compilation finished in 0:00:00.490
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/lists.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DECLAIM (INLINE SAFE-ENDP))
; processing (DEFUN SAFE-ENDP ...)
; processing (DEFUN ALIST-PLIST ...)
; processing (DEFUN PLIST-ALIST ...)
; processing (DECLAIM (INLINE RACONS))
; processing (DEFUN RACONS ...)
; processing (MACROLET (#) ...)
; processing (DEFUN MALFORMED-PLIST ...)
; processing (DEFMACRO DOPLIST ...)
; processing (DEFINE-MODIFY-MACRO APPENDF ...)
; processing (DEFINE-MODIFY-MACRO NCONCF ...)
; processing (DEFINE-MODIFY-MACRO UNIONF ...)
; processing (DEFINE-MODIFY-MACRO NUNIONF ...)
; processing (DEFINE-MODIFY-MACRO REVERSEF ...)
; processing (DEFINE-MODIFY-MACRO NREVERSEF ...)
; processing (DEFUN CIRCULAR-LIST ...)
; processing (DEFUN CIRCULAR-LIST-P ...)
; processing (DEFUN CIRCULAR-TREE-P ...)
; processing (DEFUN PROPER-LIST-P ...)
; processing (DEFTYPE PROPER-LIST ...)
; processing (DEFUN CIRCULAR-LIST-ERROR ...)
; processing (MACROLET (#) ...)
; processing (DEFUN MAKE-CIRCULAR-LIST ...)
; processing (DEFTYPE CIRCULAR-LIST ...)
; processing (DEFUN ENSURE-CAR ...)
; processing (DEFUN ENSURE-CONS ...)
; processing (DEFUN ENSURE-LIST ...)
; processing (DEFUN REMOVE-FROM-PLIST ...)
; processing (DEFUN DELETE-FROM-PLIST ...)
; processing (DEFINE-MODIFY-MACRO REMOVE-FROM-PLISTF ...)
; processing (DEFINE-MODIFY-MACRO DELETE-FROM-PLISTF ...)
; processing (DECLAIM (INLINE SANS))
; processing (DEFUN SANS ...)
; processing (DEFUN MAPPEND ...)
; processing (DEFUN SETP ...)
; processing (DEFUN SET-EQUAL ...)
; processing (DEFUN MAP-PRODUCT ...)
; processing (DEFUN FLATTEN ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/lists-tmpBW6GBZVX.fasl
; compilation finished in 0:00:01.195
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/types.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFTYPE ARRAY-INDEX ...)
; processing (DEFTYPE ARRAY-LENGTH ...)
; processing (MACROLET (#) ...)
; processing (DEFUN OF-TYPE ...)
; processing (DEFINE-COMPILER-MACRO OF-TYPE ...)
; processing (DECLAIM (INLINE TYPE=))
; processing (DEFUN TYPE= ...)
; processing (DEFINE-MODIFY-MACRO COERCEF ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/types-tmpMDMI656Q.fasl
; compilation finished in 0:00:00.755
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/io.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFMACRO WITH-OPEN-FILE* ...)
; processing (DEFMACRO WITH-INPUT-FROM-FILE ...)
; processing (DEFMACRO WITH-OUTPUT-TO-FILE ...)
; processing (DEFUN READ-STREAM-CONTENT-INTO-STRING ...)
; processing (DEFUN READ-FILE-INTO-STRING ...)
; processing (DEFUN WRITE-STRING-INTO-FILE ...)
; processing (DEFUN READ-STREAM-CONTENT-INTO-BYTE-VECTOR ...)
; processing (DEFUN READ-FILE-INTO-BYTE-VECTOR ...)
; processing (DEFUN WRITE-BYTE-VECTOR-INTO-FILE ...)
; processing (DEFUN COPY-FILE ...)
; processing (DEFUN COPY-STREAM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/io-tmpQN7VP0FI.fasl
; compilation finished in 0:00:01.035
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFMACRO ENSURE-GETHASH ...)
; processing (DEFUN COPY-HASH-TABLE ...)
; processing (DECLAIM (INLINE MAPHASH-KEYS))
; processing (DEFUN MAPHASH-KEYS ...)
; processing (DECLAIM (INLINE MAPHASH-VALUES))
; processing (DEFUN MAPHASH-VALUES ...)
; processing (DEFUN HASH-TABLE-KEYS ...)
; processing (DEFUN HASH-TABLE-VALUES ...)
; processing (DEFUN HASH-TABLE-ALIST ...)
; processing (DEFUN HASH-TABLE-PLIST ...)
; processing (DEFUN ALIST-HASH-TABLE ...)
; processing (DEFUN PLIST-HASH-TABLE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables-tmpNOSTK6D0.fasl
; compilation finished in 0:00:01.210
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFUN EXTRACT-FUNCTION-NAME ...)
; processing (DEFUN GENERATE-SWITCH-BODY ...)
; processing (DEFMACRO SWITCH ...)
; processing (DEFMACRO ESWITCH ...)
; processing (DEFMACRO CSWITCH ...)
; processing (DEFMACRO WHICHEVER ...)
; processing (DEFMACRO XOR ...)
; processing (DEFMACRO NTH-VALUE-OR ...)
; processing (DEFMACRO MULTIPLE-VALUE-PROG2 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow-tmp9RA72042.fasl
; compilation finished in 0:00:00.460
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/arrays.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFUN COPY-ARRAY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/arrays-tmpGXZUHQQV.fasl
; compilation finished in 0:00:00.085
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/sequences.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DECLAIM (INLINE COPY-SEQUENCE ...))
; processing (DEFUN SEQUENCE-OF-LENGTH-P ...)
; processing (DEFUN ROTATE-TAIL-TO-HEAD ...)
; processing (DEFUN ROTATE-HEAD-TO-TAIL ...)
; processing (DEFUN ROTATE ...)
; processing (DEFUN SHUFFLE ...)
; processing (DEFUN RANDOM-ELT ...)
; processing (DECLAIM (INLINE REMOVE/SWAPPED-ARGUMENTS))
; processing (DEFUN REMOVE/SWAPPED-ARGUMENTS ...)
; processing (DEFINE-MODIFY-MACRO REMOVEF ...)
; processing (DECLAIM (INLINE DELETE/SWAPPED-ARGUMENTS))
; processing (DEFUN DELETE/SWAPPED-ARGUMENTS ...)
; processing (DEFINE-MODIFY-MACRO DELETEF ...)
; processing (DEFTYPE PROPER-SEQUENCE ...)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DECLAIM (FTYPE # ...))
; processing (SETF (SYMBOL-FUNCTION #) ...)
; processing (DEFINE-COMPILER-MACRO EMPTYP ...)
; processing (DEFUN LENGTH= ...)
; file: /usr/share/common-lisp/source/alexandria/alexandria-1/sequences.lisp
; in: DEFUN LENGTH=
; (LENGTH FIRST)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; processing (DEFINE-COMPILER-MACRO LENGTH= ...)
; processing (DEFUN COPY-SEQUENCE ...)
; processing (DEFUN FIRST-ELT ...)
; processing (DEFUN (SETF FIRST-ELT) ...)
; processing (DEFUN LAST-ELT ...)
; processing (DEFUN (SETF LAST-ELT) ...)
; processing (DEFUN STARTS-WITH-SUBSEQ ...)
; processing (DEFUN ENDS-WITH-SUBSEQ ...)
; processing (DEFUN STARTS-WITH ...)
; processing (DEFUN ENDS-WITH ...)
; processing (DEFUN MAP-COMBINATIONS ...)
; processing (DEFUN MAP-PERMUTATIONS ...)
; processing (DEFUN MAP-DERANGEMENTS ...)
; file: /usr/share/common-lisp/source/alexandria/alexandria-1/sequences.lisp
; in: DEFUN MAP-DERANGEMENTS
; (MAKE-ARRAY ALEXANDRIA::SIZE :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 0)
;
; note: could not stack allocate:
; (MAKE-ARRAY SIZE :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 0)
; processing (DECLAIM (NOTINLINE SEQUENCE-OF-LENGTH-P))
; processing (DEFUN EXTREMUM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/sequences-tmp1SBDRUB4.fasl
; compilation finished in 0:00:01.560
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/numbers.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DECLAIM (INLINE CLAMP))
; processing (DEFUN CLAMP ...)
; processing (DEFUN GAUSSIAN-RANDOM ...)
; processing (DECLAIM (INLINE IOTA))
; processing (DEFUN IOTA ...)
; processing (DECLAIM (INLINE MAP-IOTA))
; processing (DEFUN MAP-IOTA ...)
; processing (DECLAIM (INLINE LERP))
; processing (DEFUN LERP ...)
; processing (DECLAIM (INLINE MEAN))
; processing (DEFUN MEAN ...)
; processing (DEFUN MEDIAN ...)
; processing (DECLAIM (INLINE VARIANCE))
; processing (DEFUN VARIANCE ...)
; processing (DECLAIM (INLINE STANDARD-DEVIATION))
; processing (DEFUN STANDARD-DEVIATION ...)
; processing (DEFINE-MODIFY-MACRO MAXF ...)
; processing (DEFINE-MODIFY-MACRO MINF ...)
; processing (DEFCONSTANT +FACTORIAL-BISECTION-RANGE-LIMIT+ ...)
; processing (DEFCONSTANT +FACTORIAL-DIRECT-MULTIPLICATION-LIMIT+ ...)
; processing (DEFUN %MULTIPLY-RANGE ...)
; processing (DECLAIM (INLINE FACTORIAL))
; processing (DEFUN %FACTORIAL ...)
; processing (DEFUN FACTORIAL ...)
; processing (DEFUN BINOMIAL-COEFFICIENT ...)
; processing (DEFUN SUBFACTORIAL ...)
; processing (DEFUN COUNT-PERMUTATIONS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/numbers-tmpFJI67R2A.fasl
; compilation finished in 0:00:01.165
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/features.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA)
; processing (DEFUN FEATUREP ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/features-tmp2LAB0LT0.fasl
; compilation finished in 0:00:00.085
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/package.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE :ALEXANDRIA-2 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-2/package-tmp5G8XXQL5.fasl
; compilation finished in 0:00:00.045
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/arrays.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA-2)
; processing (DEFUN DIM-IN-BOUNDS-P ...)
; processing (DEFUN ROW-MAJOR-INDEX ...)
; processing (DEFUN RMAJOR-TO-INDICES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-2/arrays-tmp70X8ZE5V.fasl
; compilation finished in 0:00:00.185
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA-2)
; processing (DEFUN LINE-UP-ITER ...)
; processing (DEFMACRO LINE-UP-FIRST ...)
; processing (DEFMACRO LINE-UP-LAST ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow-tmpRJ7B84T0.fasl
; compilation finished in 0:00:00.060
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/sequences.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA-2)
; processing (DEFUN SUBSEQ* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-2/sequences-tmpOMGCSPAB.fasl
; compilation finished in 0:00:00.045
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/lists.lisp" (written 25 OCT 2021 08:11:41 AM):
; processing (IN-PACKAGE :ALEXANDRIA-2)
; processing (DEFUN DELETE-FROM-PLIST* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-2/lists-tmpLEWWGRGS.fasl
; compilation finished in 0:00:00.050
; compiling file "/usr/share/common-lisp/source/trivial-features/src/tf-sbcl.lisp" (written 28 FEB 2021 08:31:40 PM):
; processing (IN-PACKAGE :CL-USER)
; processing (PUSHNEW (WITH-ALIEN # ...) ...)
; processing (PUSHNEW :32-BIT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/trivial-features/src/tf-sbcl-tmp2VH9CUXA.fasl
; compilation finished in 0:00:00.050
; compiling file "/usr/share/common-lisp/source/babel/src/packages.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:CL-USER)
; processing (DEFPACKAGE #:BABEL-ENCODINGS ...)
; processing (DEFPACKAGE #:BABEL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/babel/src/packages-tmp21MKT5OO.fasl
; compilation finished in 0:00:00.025
; compiling file "/usr/share/common-lisp/source/babel/src/encodings.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFCLASS CHARACTER-ENCODING ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFVAR *SUPPORTED-CHARACTER-ENCODINGS* ...)
; processing (DEFUN LIST-CHARACTER-ENCODINGS ...)
; processing (DEFVAR *CHARACTER-ENCODINGS* ...)
; processing (DEFVAR *DEFAULT-CHARACTER-ENCODING* ...)
; processing (DEFUN GET-CHARACTER-ENCODING ...)
; processing (DEFMETHOD AMBIGUOUS-ENCODING-P ...)
; processing (DEFUN NOTICE-CHARACTER-ENCODING ...)
; processing (DEFMACRO DEFINE-CHARACTER-ENCODING ...)
; processing (DEFUN MAKE-FIXED-WIDTH-COUNTER ...)
; processing (DEFUN MAKE-DUMMY-CODER ...)
; processing (DEFCLASS ABSTRACT-MAPPING ...)
; processing (DEFCLASS CONCRETE-MAPPING ...)
; processing (DEFPARAMETER *ABSTRACT-MAPPINGS* ...)
; processing (DEFUN GET-ABSTRACT-MAPPING ...)
; processing (DEFUN (SETF GET-ABSTRACT-MAPPING) ...)
; processing (DEFUN %REGISTER-MAPPING-PART ...)
; processing (DEFMACRO DEFINE-ENCODER ...)
; processing (DEFMACRO DEFINE-DECODER ...)
; processing (DEFMACRO DEFINE-OCTET-COUNTER ...)
; processing (DEFMACRO DEFINE-CODE-POINT-COUNTER ...)
; processing (DEFUN INSTANTIATE-ENCODER ...)
; processing (DEFUN INSTANTIATE-DECODER ...)
; processing (DEFUN INSTANTIATE-CODE-POINT-COUNTER ...)
; processing (DEFUN INSTANTIATE-OCTET-COUNTER ...)
; processing (DEFMACRO INSTANTIATE-CONCRETE-MAPPINGS ...)
; processing (DEFCONSTANT +DEFAULT-SUBSTITUTION-CODE-POINT+ ...)
; processing (DEFTYPE UB8 ...)
; processing (DEFTYPE CODE-POINT ...)
; processing (DEFMACRO DEFINE-UNIBYTE-ENCODER ...)
; processing (DEFMACRO DEFINE-UNIBYTE-DECODER ...)
; processing (DEFVAR *SUPPRESS-CHARACTER-CODING-ERRORS* ...)
; processing (DEFINE-CONDITION CHARACTER-CODING-ERROR ...)
; processing (DEFINE-CONDITION CHARACTER-ENCODING-ERROR ...)
; processing (DECLAIM (INLINE ENCODING-ERROR))
; processing (DEFUN ENCODING-ERROR ...)
; processing (DEFINE-CONDITION CHARACTER-DECODING-ERROR ...)
; processing (DEFINE-CONDITION END-OF-INPUT-IN-CHARACTER ...)
; processing (DEFINE-CONDITION CHARACTER-OUT-OF-RANGE ...)
; processing (DECLAIM (INLINE DECODING-ERROR))
; processing (DEFUN DECODING-ERROR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/babel/src/encodings-tmpMXTBQGWB.fasl
; compilation finished in 0:00:01.240
; compiling file "/usr/share/common-lisp/source/babel/src/enc-ascii.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFINE-CHARACTER-ENCODING :ASCII ...)
; processing (DEFINE-UNIBYTE-ENCODER :ASCII ...)
; processing (DEFINE-UNIBYTE-DECODER :ASCII ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-ascii-tmpPPC4Z10Q.fasl
; compilation finished in 0:00:00.070
; compiling file "/usr/share/common-lisp/source/babel/src/enc-ebcdic.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFINE-CHARACTER-ENCODING :EBCDIC-US ...)
; processing (DEFINE-CONSTANT +EBCDIC-DECODE-TABLE+ ...)
; processing (DEFINE-CONSTANT +EBCDIC-ENCODE-TABLE+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :EBCDIC-US ...)
; processing (DEFINE-UNIBYTE-DECODER :EBCDIC-US ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-ebcdic-tmpRD3N4073.fasl
; compilation finished in 0:00:00.185
; compiling file "/usr/share/common-lisp/source/babel/src/enc-ebcdic-int.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFINE-CHARACTER-ENCODING :EBCDIC-INTERNATIONAL ...)
; processing (DEFPARAMETER +EBCDIC-INT-TO-UNICODE+ ...)
; processing (DEFPARAMETER +UNICODE-UPTO-AC-EBCDIC-INT+ ...)
; processing (DEFPARAMETER +UNICODE-0410-0450-EBCDIC-INT+ ...)
; processing (DEFINE-UNIBYTE-DECODER :EBCDIC-INTERNATIONAL ...)
; processing (DEFINE-UNIBYTE-ENCODER :EBCDIC-INTERNATIONAL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-ebcdic-int-tmpFHOV2EXD.fasl
; compilation finished in 0:00:00.075
; compiling file "/usr/share/common-lisp/source/babel/src/enc-iso-8859.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-1 ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-1 ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-1 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-2 ...)
; processing (DEFINE-CONSTANT +UNICODE-00A0-0180-TO-ISO-8859-2+ ...)
; processing (DEFINE-CONSTANT +UNICODE-02C0-02E0-TO-ISO-8859-2+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-2 ...)
; processing (DEFINE-CONSTANT +ISO-8859-2-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-2 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-3 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-100-TO-ISO-8859-3+ ...)
; processing (DEFINE-CONSTANT +UNICODE-108-180-TO-ISO-8859-3+ ...)
; processing (DEFINE-CONSTANT +UNICODE-2D8-2E0-TO-ISO-8859-3+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-3 ...)
; processing (DEFINE-CONSTANT +ISO-8859-3-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-3 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-4 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-180-TO-ISO-8859-4+ ...)
; processing (DEFINE-CONSTANT +UNICODE-2C0-2E0-TO-ISO-8859-4+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-4 ...)
; processing (DEFINE-CONSTANT +ISO-8859-4-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-4 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-5 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-B0-TO-ISO-8859-5+ ...)
; processing (DEFINE-CONSTANT +UNICODE-400-460-TO-ISO-8859-5+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-5 ...)
; processing (DEFINE-CONSTANT +ISO-8859-5-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-5 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-6 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-B0-TO-ISO-8859-6+ ...)
; processing (DEFINE-CONSTANT +UNICODE-608-658-TO-ISO-8859-6+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-6 ...)
; processing (DEFINE-CONSTANT +ISO-8859-6-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-6 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-7 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-C0-TO-ISO-8859-7+ ...)
; processing (DEFINE-CONSTANT +UNICODE-378-3D0-TO-ISO-8859-7+ ...)
; processing (DEFINE-CONSTANT +UNICODE-2010-2020-TO-ISO-8859-7+ ...)
; processing (DEFINE-CONSTANT +UNICODE-20AC-20B0-TO-ISO-8859-7+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-7 ...)
; processing (DEFINE-CONSTANT +ISO-8859-7-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-7 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-8 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-F8-TO-ISO-8859-8+ ...)
; processing (DEFINE-CONSTANT +UNICODE-5D0-5F0-TO-ISO-8859-8+ ...)
; processing (DEFINE-CONSTANT +UNICODE-2008-2018-TO-ISO-8859-8+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-8 ...)
; processing (DEFINE-CONSTANT +ISO-8859-8-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-8 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-9 ...)
; processing (DEFINE-CONSTANT +UNICODE-D0-100-TO-ISO-8859-9+ ...)
; processing (DEFINE-CONSTANT +UNICODE-118-160-TO-ISO-8859-9+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-9 ...)
; processing (DEFINE-CONSTANT +ISO-8859-9-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-9 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-10 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-180-TO-ISO-8859-10+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-10 ...)
; processing (DEFINE-CONSTANT +ISO-8859-10-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-10 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-11 ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-11 ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-11 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-13 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-180-TO-ISO-8859-13+ ...)
; processing (DEFINE-CONSTANT +UNICODE-2018-2020-TO-ISO-8859-13+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-13 ...)
; processing (DEFINE-CONSTANT +ISO-8859-13-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-13 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-14 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-100-TO-ISO-8859-14+ ...)
; processing (DEFINE-CONSTANT +UNICODE-108-128-TO-ISO-8859-14+ ...)
; processing (DEFINE-CONSTANT +UNICODE-170-180-TO-ISO-8859-14+ ...)
; processing (DEFINE-CONSTANT +UNICODE-1E00-1E88-TO-ISO-8859-14+ ...)
; processing (DEFINE-CONSTANT +UNICODE-1EF0-1EF8-TO-ISO-8859-14+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-14 ...)
; processing (DEFINE-CONSTANT +ISO-8859-14-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-14 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-15 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-100-TO-ISO-8859-15+ ...)
; processing (DEFINE-CONSTANT +UNICODE-150-180-TO-ISO-8859-15+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-15 ...)
; processing (DEFINE-CONSTANT +ISO-8859-15-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-15 ...)
; processing (DEFINE-CHARACTER-ENCODING :ISO-8859-16 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-180-TO-ISO-8859-16+ ...)
; processing (DEFINE-CONSTANT +UNICODE-218-220-TO-ISO-8859-16+ ...)
; processing (DEFINE-CONSTANT +UNICODE-2018-2020-TO-ISO-8859-16+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :ISO-8859-16 ...)
; processing (DEFINE-CONSTANT +ISO-8859-16-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :ISO-8859-16 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-iso-8859-tmp5P00NUE.fasl
; compilation finished in 0:00:01.000
; compiling file "/usr/share/common-lisp/source/babel/src/enc-unicode.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DEFMACRO F-ASH ...)
; processing (DEFMACRO F-LOGIOR ...)
; processing (DEFMACRO F-LOGAND ...)
; processing (DEFMACRO F-LOGXOR ...)
; processing (DEFINE-CHARACTER-ENCODING :UTF-8 ...)
; processing (DEFINE-CONDITION INVALID-UTF8-STARTER-BYTE ...)
; processing (DEFINE-CONDITION INVALID-UTF8-CONTINUATION-BYTE ...)
; processing (DEFINE-CONDITION OVERLONG-UTF8-SEQUENCE ...)
; processing (DEFINE-OCTET-COUNTER :UTF-8 ...)
; processing (DEFINE-CODE-POINT-COUNTER :UTF-8 ...)
; processing (DEFINE-ENCODER :UTF-8 ...)
; processing (DEFINE-DECODER :UTF-8 ...)
; processing (DEFINE-CHARACTER-ENCODING :UTF-8B ...)
; processing (DEFINE-OCTET-COUNTER :UTF-8B ...)
; processing (DEFINE-CODE-POINT-COUNTER :UTF-8B ...)
; processing (DEFINE-ENCODER :UTF-8B ...)
; processing (DEFINE-DECODER :UTF-8B ...)
; processing (DEFMACRO UTF16-OCTET-COUNTER ...)
; processing (DEFMACRO UTF-16-COMBINE-SURROGATE-PAIRS ...)
; processing (DEFMACRO DEFINE-UTF-16 ...)
; processing (DEFINE-CHARACTER-ENCODING :UTF-16 ...)
; processing (DEFINE-UTF-16 :UTF-16)
; processing (DEFINE-CHARACTER-ENCODING :UTF-16LE ...)
; processing (DEFINE-UTF-16 :UTF-16LE ...)
; processing (DEFINE-CHARACTER-ENCODING :UTF-16BE ...)
; processing (DEFINE-UTF-16 :UTF-16BE ...)
; processing (DEFMACRO DEFINE-UCS ...)
; processing (DEFINE-CHARACTER-ENCODING :UTF-32 ...)
; processing (DEFINE-UCS :UTF-32 ...)
; processing (DEFINE-CHARACTER-ENCODING :UTF-32LE ...)
; processing (DEFINE-UCS :UTF-32LE ...)
; processing (DEFINE-CHARACTER-ENCODING :UTF-32BE ...)
; processing (DEFINE-UCS :UTF-32BE ...)
; processing (DEFINE-CHARACTER-ENCODING :UCS-2 ...)
; processing (DEFINE-UCS :UCS-2 ...)
; processing (DEFINE-CHARACTER-ENCODING :UCS-2LE ...)
; processing (DEFINE-UCS :UCS-2LE ...)
; processing (DEFINE-CHARACTER-ENCODING :UCS-2BE ...)
; processing (DEFINE-UCS :UCS-2BE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-unicode-tmp94JO3ZTC.fasl
; compilation finished in 0:00:02.125
; compiling file "/usr/share/common-lisp/source/babel/src/enc-cp437.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFINE-CHARACTER-ENCODING :CP437 ...)
; processing (DEFINE-CONSTANT +CP437-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :CP437 ...)
; processing (DEFINE-UNIBYTE-ENCODER :CP437 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-cp437-tmp6OFDFVAR.fasl
; compilation finished in 0:00:00.080
; compiling file "/usr/share/common-lisp/source/babel/src/enc-cp1251.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFINE-CHARACTER-ENCODING :CP1251 ...)
; processing (DEFINE-CONSTANT +CP1251-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :CP1251 ...)
; processing (DEFINE-CONSTANT +UNICODE-A0-BF-TO-CP1251+ ...)
; processing (DEFINE-CONSTANT +UNICODE-0-97-TO-CP1251+ ...)
; processing (DEFINE-CONSTANT +UNICODE-10-3F-TO-CP1251+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :CP1251 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-cp1251-tmpRYWTYMDY.fasl
; compilation finished in 0:00:00.085
; compiling file "/usr/share/common-lisp/source/babel/src/enc-cp1252.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFINE-CHARACTER-ENCODING :CP1252 ...)
; processing (DEFINE-CONSTANT +CP1252-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :CP1252 ...)
; processing (DEFINE-CONSTANT +UNICODE-0152-017E-CP1252+ ...)
; processing (DEFINE-CONSTANT +UNICODE-2013-203A-CP1252+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :CP1252 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-cp1252-tmpW78F18LW.fasl
; compilation finished in 0:00:00.075
; compiling file "/usr/share/common-lisp/source/babel/src/jpn-table.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFVAR *CP932-ONLY* ...)
; processing (DEFVAR *EUCJP-ONLY* ...)
; processing (DEFVAR *EUCJP* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/babel/src/jpn-table-tmpWUHTUDVN.fasl
; compilation finished in 0:00:01.065
; compiling file "/usr/share/common-lisp/source/babel/src/enc-jpn.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFVAR *EUCJP-TO-UCS-HASH* ...)
; processing (DEFVAR *UCS-TO-EUCJP-HASH* ...)
; processing (DEFVAR *CP932-TO-UCS-HASH* ...)
; processing (DEFVAR *UCS-TO-CP932-HASH* ...)
; processing (DOLIST (I #) ...)
; processing (FLET (#) ...)
; processing (LOOP FOR ...)
; processing (LOOP FOR ...)
; processing (LET (#) ...)
; processing (DEFUN EUCJP-TO-UCS ...)
; processing (DEFUN UCS-TO-EUCJP ...)
; processing (DEFUN CP932-TO-UCS ...)
; processing (DEFUN UCS-TO-CP932 ...)
; processing (DEFINE-CHARACTER-ENCODING :EUCJP ...)
; processing (DEFINE-OCTET-COUNTER :EUCJP ...)
; processing (DEFINE-CODE-POINT-COUNTER :EUCJP ...)
; processing (DEFINE-ENCODER :EUCJP ...)
; processing (DEFINE-DECODER :EUCJP ...)
; processing (DEFINE-CHARACTER-ENCODING :CP932 ...)
; processing (DEFINE-OCTET-COUNTER :CP932 ...)
; processing (DEFINE-CODE-POINT-COUNTER :CP932 ...)
; processing (DEFINE-ENCODER :CP932 ...)
; processing (DEFINE-DECODER :CP932 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-jpn-tmpCK73UFEK.fasl
; compilation finished in 0:00:01.655
; compiling file "/usr/share/common-lisp/source/babel/src/enc-gbk.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFVAR *GBK-UNICODE-MAPPING*)
; processing (DEFCONSTANT +GBK2-OFFSET+ ...)
; processing (DEFCONSTANT +GBK3-OFFSET+ ...)
; processing (DEFCONSTANT +GBK4-OFFSET+ ...)
; processing (DEFCONSTANT +GBK1-OFFSET+ ...)
; processing (DEFCONSTANT +GBK5-OFFSET+ ...)
; processing (DEFINE-CHARACTER-ENCODING :GBK ...)
; processing (DEFINE-CONDITION INVALID-GBK-BYTE ...)
; processing (DEFINE-CONDITION INVALID-GBK-CHARACTER ...)
; processing (DEFINE-OCTET-COUNTER :GBK ...)
; processing (DEFINE-CODE-POINT-COUNTER :GBK ...)
; processing (DEFINE-ENCODER :GBK ...)
; processing (DEFINE-DECODER :GBK ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-gbk-tmpEBEIAP0J.fasl
; compilation finished in 0:00:00.200
; compiling file "/usr/share/common-lisp/source/babel/src/enc-koi8.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFINE-CHARACTER-ENCODING :KOI8-RU ...)
; processing (DEFINE-CONSTANT +KOI8-RU-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :KOI8-RU ...)
; processing (DEFINE-CONSTANT +UNICODE-04->KOI8-RU+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :KOI8-RU ...)
; processing (DEFINE-CHARACTER-ENCODING :KOI8-R ...)
; processing (DEFINE-CONSTANT +KOI8-R-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :KOI8-R ...)
; processing (DEFINE-CONSTANT +UNICODE-X04->KOI8-R+ ...)
; processing (DEFINE-CONSTANT +UNICODE-X25->KOI8-R+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :KOI8-R ...)
; processing (DEFINE-CHARACTER-ENCODING :KOI8-U ...)
; processing (DEFINE-CONSTANT +KOI8-U-TO-UNICODE+ ...)
; processing (DEFINE-UNIBYTE-DECODER :KOI8-U ...)
; processing (DEFINE-CONSTANT +UNICODE-X04->KOI8-U+ ...)
; processing (DEFINE-CONSTANT +UNICODE-X25->KOI8-U+ ...)
; processing (DEFINE-UNIBYTE-ENCODER :KOI8-U ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-koi8-tmpSE943D3D.fasl
; compilation finished in 0:00:00.250
; compiling file "/usr/share/common-lisp/source/babel/src/external-format.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:BABEL)
; processing (DEFVAR *DEFAULT-EOL-STYLE* ...)
; processing (DEFTYPE EOL-STYLE ...)
; processing (DEFCLASS EXTERNAL-FORMAT ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN MAKE-EXTERNAL-FORMAT ...)
; processing (DEFUN ENSURE-EXTERNAL-FORMAT ...)
; processing (DEFUN EXTERNAL-FORMAT-EQUAL ...)
; processing (DECLAIM (INLINE LOOKUP-MAPPING))
; processing (DEFUN LOOKUP-MAPPING ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/babel/src/external-format-tmpN5RKE5P2.fasl
; compilation finished in 0:00:00.190
; compiling file "/usr/share/common-lisp/source/babel/src/strings.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:BABEL)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DEFMACRO UB-GET ...)
; processing (DEFMACRO UB-SET ...)
; processing (DEFMACRO STRING-GET ...)
; processing (DEFMACRO STRING-SET ...)
; processing (DEFCONSTANT UNICODE-CHAR-CODE-LIMIT ...)
; processing (DEFTYPE UNICODE-CHAR ...)
; processing (DEFTYPE SIMPLE-UNICODE-STRING ...)
; processing (DEFTYPE UNICODE-STRING ...)
; processing (DEFPARAMETER *STRING-VECTOR-MAPPINGS* ...)
; processing (DEFPARAMETER *SIMPLE-BASE-STRING-VECTOR-MAPPINGS* ...)
; processing (DEFUN CHECK-VECTOR-BOUNDS ...)
; processing (DEFMACRO WITH-SIMPLE-VECTOR ...)
; processing (DEFMACRO WITH-CHECKED-SIMPLE-VECTOR ...)
; processing (DECLAIM (INLINE OCTETS-TO-STRING ...))
; processing (DEFUN OCTETS-TO-STRING ...)
; processing (DEFUN BOM-VECTOR ...)
; processing (DEFUN STRING-TO-OCTETS ...)
; processing (DEFUN CONCATENATE-STRINGS-TO-OCTETS ...)
; processing (DEFUN STRING-SIZE-IN-OCTETS ...)
; processing (DEFUN VECTOR-SIZE-IN-CHARS ...)
; processing (DECLAIM (NOTINLINE OCTETS-TO-STRING ...))
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/babel/src/strings-tmpNQZ6T1LT.fasl
; compilation finished in 0:00:33.466
; compiling file "/usr/share/common-lisp/source/babel/src/gbk-map.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:BABEL-ENCODINGS)
; processing (DEFPARAMETER *GBK-UNICODE-MAPPING* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/babel/src/gbk-map-tmpWLS9DP2S.fasl
; compilation finished in 0:00:00.545
; compiling file "/usr/share/common-lisp/source/babel/src/sharp-backslash.lisp" (written 19 JUL 2020 06:57:54 AM):
; processing (IN-PACKAGE #:BABEL)
; processing (DEFUN SHARP-BACKSLASH-READER ...)
; processing (DEFUN MAKE-SHARP-BACKSLASH-READER ...)
; processing (DEFMACRO ENABLE-SHARP-BACKSLASH-SYNTAX ...)
; processing (DEFUN SET-SHARP-BACKSLASH-SYNTAX-IN-READTABLE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/babel/src/sharp-backslash-tmp8VCF5G6M.fasl
; compilation finished in 0:00:00.065
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/cffi-sbcl.lisp" (written 03 APR 2021 02:35:42 PM):
; processing (DEFPACKAGE #:CFFI-SYS ...)
; processing (IN-PACKAGE #:CFFI-SYS)
; processing (PUSHNEW (QUOTE FLAT-NAMESPACE) ...)
; processing (DECLAIM (INLINE CANONICALIZE-SYMBOL-NAME-CASE))
; processing (DEFUN CANONICALIZE-SYMBOL-NAME-CASE ...)
; processing (DEFTYPE FOREIGN-POINTER ...)
; processing (DECLAIM (INLINE POINTERP))
; processing (DEFUN POINTERP ...)
; processing (DECLAIM (INLINE POINTER-EQ))
; processing (DEFUN POINTER-EQ ...)
; processing (DECLAIM (INLINE NULL-POINTER))
; processing (DEFUN NULL-POINTER ...)
; processing (DECLAIM (INLINE NULL-POINTER-P))
; processing (DEFUN NULL-POINTER-P ...)
; processing (DECLAIM (INLINE INC-POINTER))
; processing (DEFUN INC-POINTER ...)
; processing (DECLAIM (INLINE MAKE-POINTER))
; processing (DEFUN MAKE-POINTER ...)
; processing (DECLAIM (INLINE POINTER-ADDRESS))
; processing (DEFUN POINTER-ADDRESS ...)
; processing (DECLAIM (INLINE %FOREIGN-ALLOC))
; processing (DEFUN %FOREIGN-ALLOC ...)
; processing (DECLAIM (INLINE FOREIGN-FREE))
; processing (DEFUN FOREIGN-FREE ...)
; processing (DEFMACRO WITH-FOREIGN-POINTER ...)
; processing (DECLAIM (INLINE MAKE-SHAREABLE-BYTE-VECTOR))
; processing (DEFUN MAKE-SHAREABLE-BYTE-VECTOR ...)
; processing (DEFMACRO WITH-POINTER-TO-VECTOR-DATA ...)
; processing (DEFMACRO DEFINE-MEM-ACCESSORS ...)
; processing (DEFMACRO DEFINE-TYPE-MAPPING ...)
; processing (DEFINE-TYPE-MAPPING (# # ...) ...)
; processing (DEFUN %FOREIGN-TYPE-SIZE ...)
; processing (DEFUN %FOREIGN-TYPE-ALIGNMENT ...)
; processing (DEFUN FOREIGN-FUNCALL-TYPE-AND-ARGS ...)
; processing (DEFMACRO %%FOREIGN-FUNCALL ...)
; processing (DEFMACRO %FOREIGN-FUNCALL ...)
; processing (DEFMACRO %FOREIGN-FUNCALL-POINTER ...)
; processing (DEFVAR *CALLBACKS* ...)
; processing (DEFMACRO %DEFCALLBACK ...)
; processing (DEFUN %CALLBACK ...)
; processing (DECLAIM (INLINE %LOAD-FOREIGN-LIBRARY))
; processing (DEFUN %LOAD-FOREIGN-LIBRARY ...)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DEFUN %CLOSE-FOREIGN-LIBRARY ...)
; processing (DEFUN NATIVE-NAMESTRING ...)
; processing (DEFUN %FOREIGN-SYMBOL-POINTER ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/cffi-sbcl-tmp8DMZV8XU.fasl
; compilation finished in 0:00:02.830
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/package.lisp" (written 03 APR 2021 02:35:42 PM):
; processing (IN-PACKAGE #:CL-USER)
; processing (DEFPACKAGE #:CFFI ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/package-tmpEGA125WT.fasl
; compilation finished in 0:00:00.050
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/utils.lisp" (written 03 APR 2021 02:35:42 PM):
; processing (IN-PACKAGE #:CFFI)
; processing (DEFMACRO DISCARD-DOCSTRING ...)
; processing (DEFUN SINGLE-BIT-P ...)
; processing (DEFUN WARN-IF-KW-OR-BELONGS-TO-CL ...)
; processing (DEFINE-CONDITION OBSOLETE-ARGUMENT-WARNING ...)
; processing (DEFUN WARN-OBSOLETE-ARGUMENT ...)
; processing (DEFUN SPLIT-IF ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/utils-tmpE9RDNCMC.fasl
; compilation finished in 0:00:00.245
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/libraries.lisp" (written 03 APR 2021 02:35:42 PM):
; processing (IN-PACKAGE #:CFFI)
; processing (DEFUN EXPLODE-PATH-ENVIRONMENT-VARIABLE ...)
; processing (DEFUN DARWIN-FALLBACK-LIBRARY-PATH ...)
; processing (DEFVAR *FOREIGN-LIBRARY-DIRECTORIES* ...)
; processing (DEFUN FALLBACK-DARWIN-FRAMEWORK-DIRECTORIES ...)
; processing (DEFVAR *DARWIN-FRAMEWORK-DIRECTORIES* ...)
; processing (DEFUN MINI-EVAL ...)
; processing (DEFUN PARSE-DIRECTORIES ...)
; processing (DEFUN FIND-FILE ...)
; processing (DEFUN FIND-DARWIN-FRAMEWORK ...)
; processing (DEFVAR *FOREIGN-LIBRARIES* ...)
; processing (DEFCLASS FOREIGN-LIBRARY ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFINE-CONDITION FOREIGN-LIBRARY-UNDEFINED-ERROR ...)
; processing (DEFUN GET-FOREIGN-LIBRARY ...)
; processing (DEFUN (SETF GET-FOREIGN-LIBRARY) ...)
; processing (DEFUN FOREIGN-LIBRARY-TYPE ...)
; processing (DEFUN FOREIGN-LIBRARY-PATHNAME ...)
; processing (DEFUN %FOREIGN-LIBRARY-SPEC ...)
; processing (DEFUN FOREIGN-LIBRARY-SPEC ...)
; processing (DEFUN FOREIGN-LIBRARY-OPTIONS ...)
; processing (DEFUN FOREIGN-LIBRARY-SEARCH-PATH ...)
; processing (DEFUN FOREIGN-LIBRARY-LOADED-P ...)
; processing (DEFUN LIST-FOREIGN-LIBRARIES ...)
; processing (DEFUN CLEAN-SPEC-UP ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFUN REGISTER-FOREIGN-LIBRARY ...)
; processing (DEFMACRO DEFINE-FOREIGN-LIBRARY ...)
; processing (DEFINE-CONDITION LOAD-FOREIGN-LIBRARY-ERROR ...)
; processing (DEFUN READ-NEW-VALUE ...)
; processing (DEFUN FL-ERROR ...)
; processing (DEFUN LOAD-DARWIN-FRAMEWORK ...)
; processing (DEFUN REPORT-SIMPLE-ERROR ...)
; processing (DEFUN LOAD-FOREIGN-LIBRARY-PATH ...)
; processing (DEFUN TRY-FOREIGN-LIBRARY-ALTERNATIVES ...)
; processing (DEFPARAMETER *CFFI-FEATURE-SUFFIX-MAP* ...)
; processing (DEFUN DEFAULT-LIBRARY-SUFFIX ...)
; processing (DEFUN LOAD-FOREIGN-LIBRARY-HELPER ...)
; processing (DEFUN %DO-LOAD-FOREIGN-LIBRARY ...)
; processing (DEFUN FILTER-PATHNAME ...)
; processing (DEFUN LOAD-FOREIGN-LIBRARY ...)
; processing (DEFMACRO USE-FOREIGN-LIBRARY ...)
; processing (DEFUN CLOSE-FOREIGN-LIBRARY ...)
; processing (DEFUN RELOAD-FOREIGN-LIBRARIES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/libraries-tmpGTSGBQIR.fasl
; compilation finished in 0:00:01.370
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/early-types.lisp" (written 03 APR 2021 02:35:42 PM):
; processing (IN-PACKAGE #:CFFI)
; processing (DEFVAR *DEFAULT-TYPE-PARSERS* ...)
; processing (DEFVAR *STRUCT-TYPE-PARSERS* ...)
; processing (DEFVAR *UNION-TYPE-PARSERS* ...)
; processing (DEFINE-CONDITION CFFI-ERROR ...)
; processing (DEFINE-CONDITION FOREIGN-TYPE-ERROR ...)
; processing (DEFUN FOREIGN-TYPE-ERROR/COMPOUND-NAME ...)
; processing (DEFINE-CONDITION SIMPLE-FOREIGN-TYPE-ERROR ...)
; processing (DEFUN SIMPLE-FOREIGN-TYPE-ERROR ...)
; processing (DEFINE-CONDITION UNDEFINED-FOREIGN-TYPE-ERROR ...)
; processing (DEFUN UNDEFINED-FOREIGN-TYPE-ERROR ...)
; processing (DEFTYPE C-NAMESPACE-NAME ...)
; processing (DEFUN NAMESPACE-TABLE ...)
; processing (DEFUN FIND-TYPE-PARSER ...)
; processing (DEFUN FIND-DEFAULT-TYPE-PARSER ...)
; processing (DEFUN (SETF FIND-TYPE-PARSER) ...)
; processing (DEFUN UNDEFINE-FOREIGN-TYPE ...)
; processing (DEFMACRO DEFINE-PARSE-METHOD ...)
; processing (DEFUN NOTICE-FOREIGN-TYPE ...)
; processing (DEFGENERIC CANONICALIZE ...)
; processing (DEFGENERIC AGGREGATEP ...)
; processing (DEFGENERIC FOREIGN-TYPE-ALIGNMENT ...)
; processing (DEFGENERIC FOREIGN-TYPE-SIZE ...)
; processing (DEFGENERIC UNPARSE-TYPE ...)
; processing (DEFCLASS FOREIGN-TYPE ...)
; processing (DEFMETHOD MAKE-LOAD-FORM ...)
; processing (DEFMETHOD FOREIGN-TYPE-SIZE ...)
; processing (DEFCLASS NAMED-FOREIGN-TYPE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD UNPARSE-TYPE ...)
; processing (DEFCLASS FOREIGN-BUILT-IN-TYPE ...)
; processing (DEFMETHOD CANONICALIZE ...)
; processing (DEFMETHOD AGGREGATEP ...)
; processing (DEFMETHOD FOREIGN-TYPE-ALIGNMENT ...)
; processing (DEFMETHOD FOREIGN-TYPE-SIZE ...)
; processing (DEFMETHOD UNPARSE-TYPE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFVAR *BUILT-IN-FOREIGN-TYPES* ...)
; processing (DEFMACRO DEFINE-BUILT-IN-FOREIGN-TYPE ...)
; processing (DEFCLASS FOREIGN-POINTER-TYPE ...)
; processing (LET (#) ...)
; processing (DEFMETHOD UNPARSE-TYPE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFGENERIC BARE-STRUCT-TYPE-P ...)
; processing (DEFMETHOD BARE-STRUCT-TYPE-P ...)
; processing (DEFCLASS FOREIGN-STRUCT-TYPE ...)
; processing (DEFUN SLOTS-IN-ORDER ...)
; processing (DEFMETHOD CANONICALIZE ...)
; processing (DEFMETHOD UNPARSE-TYPE ...)
; processing (DEFMETHOD AGGREGATEP ...)
; processing (DEFMETHOD FOREIGN-TYPE-SIZE ...)
; processing (DEFMETHOD FOREIGN-TYPE-ALIGNMENT ...)
; processing (DEFCLASS FOREIGN-UNION-TYPE ...)
; processing (DEFMETHOD CANONICALIZE ...)
; processing (DEFCLASS FOREIGN-TYPE-ALIAS ...)
; processing (DEFMETHOD CANONICALIZE ...)
; processing (DEFMETHOD AGGREGATEP ...)
; processing (DEFMETHOD FOREIGN-TYPE-ALIGNMENT ...)
; processing (DEFMETHOD FOREIGN-TYPE-SIZE ...)
; processing (DEFCLASS FOREIGN-TYPEDEF ...)
; processing (DEFUN FOLLOW-TYPEDEFS ...)
; processing (DEFMETHOD BARE-STRUCT-TYPE-P ...)
; processing (DEFUN STRUCTURE-SLOTS ...)
; processing (DEFCLASS TRANSLATABLE-FOREIGN-TYPE ...)
; processing (DEFCLASS ENHANCED-FOREIGN-TYPE ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD UNPARSE-TYPE ...)
; processing (DEFUN CHECK-FOR-TYPEDEF-CYCLES ...)
; processing (DEFUN PARSE-TYPE ...)
; processing (DEFUN ENSURE-PARSED-BASE-TYPE ...)
; processing (DEFUN CANONICALIZE-FOREIGN-TYPE ...)
; processing (DEFGENERIC TRANSLATE-TO-FOREIGN ...)
; processing (DEFGENERIC TRANSLATE-INTO-FOREIGN-MEMORY ...)
; processing (DEFGENERIC TRANSLATE-AGGREGATE-TO-FOREIGN ...)
; processing (DEFGENERIC TRANSLATE-FROM-FOREIGN ...)
; processing (DEFGENERIC FREE-TRANSLATED-OBJECT ...)
; processing (DEFVAR *RUNTIME-TRANSLATOR-FORM*)
; processing (DEFGENERIC EXPAND-FROM-FOREIGN ...)
; processing (DEFMETHOD EXPAND-FROM-FOREIGN ...)
; processing (DEFMETHOD EXPAND-FROM-FOREIGN ...)
; processing (DEFGENERIC EXPAND-TO-FOREIGN ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN ...)
; processing (DEFGENERIC EXPAND-INTO-FOREIGN-MEMORY ...)
; processing (DEFMETHOD EXPAND-INTO-FOREIGN-MEMORY ...)
; processing (DEFMETHOD EXPAND-INTO-FOREIGN-MEMORY ...)
; processing (DEFGENERIC EXPAND-TO-FOREIGN-DYN ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN-DYN ...)
; processing (DEFUN FOREIGN-EXPAND-RUNTIME-TRANSLATOR-OR-BINDING ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN-DYN ...)
; processing (DEFGENERIC EXPAND-TO-FOREIGN-DYN-INDIRECT ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN-DYN-INDIRECT ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN-DYN-INDIRECT ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN-DYN-INDIRECT ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN-DYN-INDIRECT ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN-DYN-INDIRECT ...)
; processing (DEFUN CONVERT-TO-FOREIGN ...)
; processing (DEFINE-COMPILER-MACRO CONVERT-TO-FOREIGN ...)
; processing (DEFUN CONVERT-FROM-FOREIGN ...)
; processing (DEFINE-COMPILER-MACRO CONVERT-FROM-FOREIGN ...)
; processing (DEFUN CONVERT-INTO-FOREIGN-MEMORY ...)
; processing (DEFINE-COMPILER-MACRO CONVERT-INTO-FOREIGN-MEMORY ...)
; processing (DEFUN FREE-CONVERTED-OBJECT ...)
; processing (DEFCLASS ENHANCED-TYPEDEF ...)
; processing (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; processing (DEFMETHOD TRANSLATE-INTO-FOREIGN-MEMORY ...)
; processing (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; processing (DEFMETHOD FREE-TRANSLATED-OBJECT ...)
; processing (DEFMETHOD EXPAND-FROM-FOREIGN ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN-DYN ...)
; processing (DEFMETHOD EXPAND-INTO-FOREIGN-MEMORY ...)
; processing (DEFMACRO DEFINE-FOREIGN-TYPE ...)
; processing (DEFMACRO DEFCTYPE ...)
; processing (DEFMACRO DEFCTYPE* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/early-types-tmpRCRZ6VP.fasl
; compilation finished in 0:00:02.595
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/types.lisp" (written 03 APR 2021 02:35:42 PM):
; processing (IN-PACKAGE #:CFFI)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :CHAR)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :UNSIGNED-CHAR)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :SHORT)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :UNSIGNED-SHORT)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :INT)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :UNSIGNED-INT)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :LONG)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :UNSIGNED-LONG)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :FLOAT)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :DOUBLE)
; processing (DEFINE-BUILT-IN-FOREIGN-TYPE :VOID)
; processing (PROGN (DEFINE-BUILT-IN-FOREIGN-TYPE :LONG-LONG) ...)
; processing (DEFPARAMETER *POSSIBLE-FLOAT-TYPES* ...)
; processing (DEFPARAMETER *OTHER-BUILTIN-TYPES* ...)
; processing (DEFPARAMETER *BUILT-IN-INTEGER-TYPES* ...)
; processing (DEFPARAMETER *BUILT-IN-FLOAT-TYPES* ...)
; processing (DEFINE-COMPILER-MACRO INC-POINTER ...)
; processing (DEFINE-MODIFY-MACRO INCF-POINTER ...)
; processing (DEFUN MEM-REF ...)
; processing (DEFINE-COMPILER-MACRO MEM-REF ...)
; processing (DEFUN MEM-SET ...)
; processing (DEFINE-SETF-EXPANDER MEM-REF ...)
; processing (DEFINE-COMPILER-MACRO MEM-SET ...)
; processing (DEFUN MEM-AREF ...)
; processing (DEFINE-COMPILER-MACRO MEM-AREF ...)
; processing (DEFINE-SETF-EXPANDER MEM-AREF ...)
; processing (DEFMETHOD TRANSLATE-INTO-FOREIGN-MEMORY ...)
; processing (DEFMETHOD TRANSLATE-INTO-FOREIGN-MEMORY ...)
; processing (DEFUN MEM-APTR ...)
; processing (DEFINE-COMPILER-MACRO MEM-APTR ...)
; processing (DEFINE-FOREIGN-TYPE FOREIGN-ARRAY-TYPE ...)
; processing (DEFMETHOD AGGREGATEP ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN ARRAY-ELEMENT-SIZE ...)
; processing (DEFMETHOD FOREIGN-TYPE-SIZE ...)
; processing (DEFMETHOD FOREIGN-TYPE-ALIGNMENT ...)
; processing (DEFINE-PARSE-METHOD :ARRAY ...)
; processing (DEFUN INDEXES-TO-ROW-MAJOR-INDEX ...)
; processing (DEFUN ROW-MAJOR-INDEX-TO-INDEXES ...)
; processing (DEFUN FOREIGN-ALLOC ...)
; processing (DEFINE-COMPILER-MACRO FOREIGN-ALLOC ...)
; processing (DEFUN LISP-ARRAY-TO-FOREIGN ...)
; processing (DEFUN FOREIGN-ARRAY-TO-LISP ...)
; processing (DEFUN FOREIGN-ARRAY-ALLOC ...)
; processing (DEFUN FOREIGN-ARRAY-FREE ...)
; processing (DEFMACRO WITH-FOREIGN-ARRAY ...)
; processing (DEFUN FOREIGN-AREF ...)
; processing (DEFUN (SETF FOREIGN-AREF) ...)
; processing (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; processing (DEFMETHOD TRANSLATE-AGGREGATE-TO-FOREIGN ...)
; processing (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; processing (DEFMETHOD FREE-TRANSLATED-OBJECT ...)
; processing (DEFGENERIC FOREIGN-STRUCT-SLOT-POINTER ...)
; processing (DEFGENERIC FOREIGN-STRUCT-SLOT-POINTER-FORM ...)
; processing (DEFGENERIC FOREIGN-STRUCT-SLOT-VALUE ...)
; processing (DEFGENERIC (SETF FOREIGN-STRUCT-SLOT-VALUE) ...)
; processing (DEFGENERIC FOREIGN-STRUCT-SLOT-VALUE-FORM ...)
; processing (DEFGENERIC FOREIGN-STRUCT-SLOT-SET-FORM ...)
; processing (DEFCLASS FOREIGN-STRUCT-SLOT ...)
; processing (DEFMETHOD FOREIGN-STRUCT-SLOT-POINTER ...)
; processing (DEFMETHOD FOREIGN-STRUCT-SLOT-POINTER-FORM ...)
; processing (DEFUN FOREIGN-SLOT-NAMES ...)
; processing (DEFCLASS SIMPLE-STRUCT-SLOT ...)
; processing (DEFMETHOD FOREIGN-STRUCT-SLOT-VALUE ...)
; processing (DEFMETHOD FOREIGN-STRUCT-SLOT-VALUE-FORM ...)
; processing (DEFMETHOD (SETF FOREIGN-STRUCT-SLOT-VALUE) ...)
; processing (DEFMETHOD FOREIGN-STRUCT-SLOT-SET-FORM ...)
; processing (DEFCLASS AGGREGATE-STRUCT-SLOT ...)
; processing (DEFMETHOD FOREIGN-STRUCT-SLOT-VALUE ...)
; processing (DEFMETHOD FOREIGN-STRUCT-SLOT-VALUE-FORM ...)
; processing (DEFMETHOD TRANSLATE-AGGREGATE-TO-FOREIGN ...)
; processing (DEFMETHOD (SETF FOREIGN-STRUCT-SLOT-VALUE) ...)
; processing (DEFMETHOD FOREIGN-STRUCT-SLOT-SET-FORM ...)
; processing (DEFUN MAKE-STRUCT-SLOT ...)
; processing (DEFUN PARSE-DEPRECATED-STRUCT-TYPE ...)
; processing (DEFUN GET-ALIGNMENT ...)
; processing (DEFUN ADJUST-FOR-ALIGNMENT ...)
; processing (DEFMACRO WITH-TENTATIVE-TYPE-DEFINITION ...)
; processing (DEFUN NOTICE-FOREIGN-STRUCT-DEFINITION ...)
; processing (DEFUN GENERATE-STRUCT-ACCESSORS ...)
; processing (DEFINE-PARSE-METHOD :STRUCT ...)
; processing (DEFVAR *DEFCSTRUCT-HOOK* ...)
; processing (DEFMACRO DEFCSTRUCT ...)
; processing (DEFUN GET-SLOT-INFO ...)
; processing (DEFUN FOREIGN-SLOT-POINTER ...)
; processing (DEFINE-COMPILER-MACRO FOREIGN-SLOT-POINTER ...)
; processing (DEFUN FOREIGN-SLOT-TYPE ...)
; processing (DEFUN FOREIGN-SLOT-OFFSET ...)
; processing (DEFUN FOREIGN-SLOT-COUNT ...)
; processing (DEFUN FOREIGN-SLOT-VALUE ...)
; processing (DEFINE-COMPILER-MACRO FOREIGN-SLOT-VALUE ...)
; processing (DEFINE-SETF-EXPANDER FOREIGN-SLOT-VALUE ...)
; processing (DEFUN FOREIGN-SLOT-SET ...)
; processing (DEFINE-COMPILER-MACRO FOREIGN-SLOT-SET ...)
; processing (DEFMACRO WITH-FOREIGN-SLOTS ...)
; processing (DEFMACRO DEFINE-C-STRUCT-WRAPPER ...)
; processing (DEFUN NOTICE-FOREIGN-UNION-DEFINITION ...)
; processing (DEFINE-PARSE-METHOD :UNION ...)
; processing (DEFMACRO DEFCUNION ...)
; processing (DEFMETHOD FOREIGN-TYPE-ALIGNMENT ...)
; processing (DEFMACRO WITH-FOREIGN-OBJECT ...)
; processing (DEFMACRO WITH-FOREIGN-OBJECTS ...)
; processing (DEFINE-FOREIGN-TYPE FOREIGN-TYPE-WRAPPER ...)
; processing (DEFINE-PARSE-METHOD :WRAPPER ...)
; processing (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; processing (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; processing (DEFINE-FOREIGN-TYPE FOREIGN-BOOLEAN-TYPE ...)
; processing (DEFINE-PARSE-METHOD :BOOLEAN ...)
; processing (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; processing (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN ...)
; processing (DEFMETHOD EXPAND-FROM-FOREIGN ...)
; processing (DEFCTYPE :BOOL ...)
; processing (DEFCTYPE :UCHAR ...)
; processing (DEFCTYPE :USHORT ...)
; processing (DEFCTYPE :UINT ...)
; processing (DEFCTYPE :ULONG ...)
; processing (DEFCTYPE :LLONG ...)
; processing (DEFCTYPE :ULLONG ...)
; processing (DEFMACRO DEFCTYPE-MATCHING ...)
; processing (MACROLET (#) ...)
; processing (DEFCTYPE :SIZE ...)
; processing (DEFCTYPE :SSIZE ...)
; processing (DEFCTYPE :PTRDIFF ...)
; processing (DEFCTYPE :OFFSET ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/types-tmpC6WXNUWP.fasl
; compilation finished in 0:00:04.305
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/enum.lisp" (written 03 APR 2021 02:35:42 PM):
; processing (IN-PACKAGE #:CFFI)
; processing (DEFCLASS FOREIGN-ENUM ...)
; processing (DEFTYPE ENUM-KEY ...)
; processing (DEFPARAMETER +VALID-ENUM-BASE-TYPES+ ...)
; processing (DEFUN PARSE-FOREIGN-ENUM-LIKE ...)
; processing (DEFUN MAKE-FOREIGN-ENUM ...)
; processing (DEFUN %DEFCENUM-LIKE ...)
; processing (DEFMACRO DEFCENUM ...)
; processing (DEFUN HASH-KEYS-TO-LIST ...)
; processing (DEFUN FOREIGN-ENUM-KEYWORD-LIST ...)
; processing (DEFUN %FOREIGN-ENUM-VALUE ...)
; processing (DEFUN FOREIGN-ENUM-VALUE ...)
; processing (DEFUN %FOREIGN-ENUM-KEYWORD ...)
; processing (DEFUN FOREIGN-ENUM-KEYWORD ...)
; processing (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; processing (DEFMETHOD TRANSLATE-INTO-FOREIGN-MEMORY ...)
; processing (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN-DYN-INDIRECT ...)
; processing (DEFCLASS FOREIGN-BITFIELD ...)
; processing (DEFUN MAKE-FOREIGN-BITFIELD ...)
; processing (DEFMACRO DEFBITFIELD ...)
; processing (DEFUN FOREIGN-BITFIELD-SYMBOL-LIST ...)
; processing (DEFUN %FOREIGN-BITFIELD-VALUE ...)
; processing (DEFUN FOREIGN-BITFIELD-VALUE ...)
; processing (DEFINE-COMPILER-MACRO FOREIGN-BITFIELD-VALUE ...)
; processing (DEFUN %FOREIGN-BITFIELD-SYMBOLS ...)
; processing (DEFUN FOREIGN-BITFIELD-SYMBOLS ...)
; processing (DEFINE-COMPILER-MACRO FOREIGN-BITFIELD-SYMBOLS ...)
; processing (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; processing (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN ...)
; processing (DEFMETHOD EXPAND-FROM-FOREIGN ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/enum-tmpB17HDEGA.fasl
; compilation finished in 0:00:01.770
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/strings.lisp" (written 03 APR 2021 02:35:42 PM):
; processing (IN-PACKAGE #:CFFI)
; processing (DEFVAR *DEFAULT-FOREIGN-ENCODING* ...)
; processing (DEFMACRO BGET ...)
; processing (DEFMACRO BSET ...)
; processing (DEFPARAMETER *FOREIGN-STRING-MAPPINGS* ...)
; processing (DEFUN NULL-TERMINATOR-LEN ...)
; processing (DEFUN LISP-STRING-TO-FOREIGN ...)
; processing (DEFMACRO %FOREIGN-STRING-LENGTH ...)
; processing (DEFUN FOREIGN-STRING-LENGTH ...)
; processing (DEFUN FOREIGN-STRING-TO-LISP ...)
; processing (DEFUN FOREIGN-STRING-ALLOC ...)
; processing (DEFUN FOREIGN-STRING-FREE ...)
; processing (DEFMACRO WITH-FOREIGN-STRING ...)
; processing (DEFMACRO WITH-FOREIGN-STRINGS ...)
; processing (DEFMACRO WITH-FOREIGN-POINTER-AS-STRING ...)
; processing (DEFINE-FOREIGN-TYPE FOREIGN-STRING-TYPE ...)
; processing (DEFUN FST-ENCODING ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; processing (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; processing (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; processing (DEFMETHOD FREE-TRANSLATED-OBJECT ...)
; processing (DEFMETHOD EXPAND-TO-FOREIGN-DYN-INDIRECT ...)
; processing (DEFINE-FOREIGN-TYPE FOREIGN-STRING+PTR-TYPE ...)
; processing (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/strings-tmpE3AQVWGT.fasl
; compilation finished in 0:00:26.066
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/structures.lisp" (written 03 APR 2021 02:35:42 PM):
; processing (IN-PACKAGE #:CFFI)
; processing (DEFMETHOD TRANSLATE-INTO-FOREIGN-MEMORY ...)
; processing (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; processing (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; processing (DEFMETHOD FREE-TRANSLATED-OBJECT ...)
; processing (DEFMACRO DEFINE-TRANSLATION-METHOD ...)
; processing (DEFMACRO TRANSLATION-FORMS-FOR-CLASS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/structures-tmpYKOEPICF.fasl
; compilation finished in 0:00:00.400
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/functions.lisp" (written 03 APR 2021 02:35:42 PM):
; processing (IN-PACKAGE #:CFFI)
; processing (DEFUN TRANSLATE-OBJECTS ...)
; processing (DEFUN PARSE-ARGS-AND-TYPES ...)
; processing (DEFUN PARSE-FUNCTION-OPTIONS ...)
; processing (DEFUN STRUCTURE-BY-VALUE-P ...)
; processing (DEFUN FN-CALL-BY-VALUE-P ...)
; processing (DEFVAR *FOREIGN-STRUCTURES-BY-VALUE* ...)
; processing (DEFUN FOREIGN-FUNCALL-FORM ...)
; processing (DEFMACRO FOREIGN-FUNCALL ...)
; processing (DEFMACRO FOREIGN-FUNCALL-POINTER ...)
; processing (DEFUN PROMOTE-VARARGS-TYPE ...)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DEFUN FOREIGN-FUNCALL-VARARGS-FORM ...)
; processing (DEFMACRO FOREIGN-FUNCALL-VARARGS ...)
; processing (DEFMACRO FOREIGN-FUNCALL-POINTER-VARARGS ...)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DEFUN %DEFCFUN ...)
; processing (DEFUN %DEFCFUN-VARARGS ...)
; processing (DEFGENERIC TRANSLATE-UNDERSCORE-SEPARATED-NAME ...)
; processing (DEFUN COLLAPSE-PREFIX ...)
; processing (DEFUN CHECK-PREFIX ...)
; processing (DEFGENERIC TRANSLATE-CAMELCASE-NAME ...)
; processing (DEFGENERIC TRANSLATE-NAME-FROM-FOREIGN ...)
; processing (DEFGENERIC TRANSLATE-NAME-TO-FOREIGN ...)
; processing (DEFUN LISP-NAME ...)
; processing (DEFUN FOREIGN-NAME ...)
; processing (DEFUN FOREIGN-OPTIONS ...)
; processing (DEFUN LISP-NAME-P ...)
; processing (DEFUN %PARSE-NAME-AND-OPTIONS ...)
; processing (DEFUN PARSE-NAME-AND-OPTIONS ...)
; processing (DEFMACRO DEFCFUN ...)
; processing (DEFUN INVERSE-TRANSLATE-OBJECTS ...)
; processing (DEFUN PARSE-DEFCALLBACK-OPTIONS ...)
; processing (DEFMACRO DEFCALLBACK ...)
; processing (DECLAIM (INLINE GET-CALLBACK))
; processing (DEFUN GET-CALLBACK ...)
; processing (DEFMACRO CALLBACK ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/functions-tmpQK8YY837.fasl
; compilation finished in 0:00:01.420
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/foreign-vars.lisp" (written 03 APR 2021 02:35:42 PM):
; processing (IN-PACKAGE #:CFFI)
; processing (DEFUN PARSE-DEFCVAR-OPTIONS ...)
; processing (DEFUN GET-VAR-POINTER ...)
; processing (DEFUN FOREIGN-SYMBOL-POINTER ...)
; processing (DEFUN FS-POINTER-OR-LOSE ...)
; processing (DEFMACRO DEFCVAR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/foreign-vars-tmpJQI6KMRZ.fasl
; compilation finished in 0:00:00.220
; compiling file "/usr/share/common-lisp/source/cl-cffi/src/features.lisp" (written 03 APR 2021 02:35:42 PM):
; processing (IN-PACKAGE #:CL-USER)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DEFPACKAGE #:CFFI-FEATURES ...)
; processing (IN-PACKAGE #:CFFI-FEATURES)
; processing (DEFUN CFFI-FEATURE-P ...)
; processing (MAPC (LAMBDA # ...) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/features-tmpWUHK9UI0.fasl
; compilation finished in 0:00:00.150
;
; compilation unit finished
; printed 2 notes
;; loading system "cl+ssl"
WARNING: System definition file #P"/usr/share/common-lisp/source/cl-flexi-streams/flexi-streams.asd" contains definition for system "flexi-streams-test". Please only define "flexi-streams" and secondary systems with a name starting with "flexi-streams/" (e.g. "flexi-streams/test") in that file.
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/config.lisp" (written 28 MAR 2022 12:23:33 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE :CL+SSL/CONFIG ...)
; processing (IN-PACKAGE :CL+SSL/CONFIG)
; processing (DEFVAR *LIBSSL-OVERRIDE* ...)
; processing (DEFVAR *LIBCRYPTO-OVERRIDE* ...)
; processing (DEFMACRO DEFINE-LIBSSL-PATH ...)
; processing (DEFMACRO DEFINE-LIBCRYPTO-PATH ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/config-tmpUUOI3UDB.fasl
; compilation finished in 0:00:00.070
; compiling file "/usr/share/common-lisp/source/cl-trivial-gray-streams/package.lisp" (written 17 JAN 2021 08:01:37 PM):
; processing (IN-PACKAGE :CL-USER)
; processing (MACROLET (#) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-trivial-gray-streams/package-tmpG1IOPEUW.fasl
; compilation finished in 0:00:00.040
; compiling file "/usr/share/common-lisp/source/cl-trivial-gray-streams/streams.lisp" (written 17 JAN 2021 08:01:37 PM):
; processing (IN-PACKAGE :TRIVIAL-GRAY-STREAMS)
; processing (DEFCLASS FUNDAMENTAL-STREAM ...)
; processing (DEFCLASS FUNDAMENTAL-INPUT-STREAM ...)
; processing (DEFCLASS FUNDAMENTAL-OUTPUT-STREAM ...)
; processing (DEFCLASS FUNDAMENTAL-CHARACTER-STREAM ...)
; processing (DEFCLASS FUNDAMENTAL-BINARY-STREAM ...)
; processing (DEFCLASS FUNDAMENTAL-CHARACTER-INPUT-STREAM ...)
; processing (DEFCLASS FUNDAMENTAL-CHARACTER-OUTPUT-STREAM ...)
; processing (DEFCLASS FUNDAMENTAL-BINARY-INPUT-STREAM ...)
; processing (DEFCLASS FUNDAMENTAL-BINARY-OUTPUT-STREAM ...)
; processing (DEFGENERIC STREAM-READ-SEQUENCE ...)
; processing (DEFGENERIC STREAM-WRITE-SEQUENCE ...)
; processing (DEFGENERIC STREAM-FILE-POSITION ...)
; processing (DEFGENERIC (SETF STREAM-FILE-POSITION) ...)
; processing (DEFMETHOD STREAM-READ-SEQUENCE ...)
; processing (DEFMETHOD STREAM-WRITE-SEQUENCE ...)
; processing (DEFMACRO OR-FALLBACK ...)
; processing (DEFMETHOD STREAM-TERPRI ...)
; processing (DEFMETHOD STREAM-FILE-POSITION ...)
; processing (DEFMETHOD (SETF STREAM-FILE-POSITION) ...)
; processing (PROGN (DEFMETHOD SB-GRAY:STREAM-READ-SEQUENCE ...) ...)
; processing (DEFCLASS TRIVIAL-GRAY-STREAM-MIXIN ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-trivial-gray-streams/streams-tmpM0NOM18K.fasl
; compilation finished in 0:00:00.395
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/packages.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :CL-USER)
; processing (UNLESS (FIND-SYMBOL # ...) ...)
; processing (DEFPACKAGE :FLEXI-STREAMS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/packages-tmpVIL8T0YR.fasl
; compilation finished in 0:00:00.185
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/mapping.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFTYPE OCTET ...)
; processing (DEFTYPE CHAR* ...)
; processing (DEFTYPE STRING* ...)
; processing (DEFTYPE CHAR-CODE-INTEGER ...)
; processing (DEFTYPE CODE-POINT ...)
; processing (DEFMACRO DEFCONSTANT ...)
; processing (DEFUN INVERT-TABLE ...)
; processing (DEFUN MAKE-DECODING-TABLE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/mapping-tmpBODYQO2B.fasl
; compilation finished in 0:00:00.100
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/ascii.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFCONSTANT +ASCII-TABLE+ ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/ascii-tmpTLIPDLNH.fasl
; compilation finished in 0:00:00.025
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/koi8-r.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFCONSTANT +KOI8-R-TABLE+ ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/koi8-r-tmpMOOD9PZK.fasl
; compilation finished in 0:00:00.030
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/mac.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFCONSTANT +MAC-ROMAN-TABLE+ ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/mac-tmpJSQEHKQD.fasl
; compilation finished in 0:00:00.015
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/iso-8859.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFCONSTANT +ISO-8859-TABLES+ ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/iso-8859-tmpX9RFG54G.fasl
; compilation finished in 0:00:00.085
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/enc-cn-tbl.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFUN MAKE-MULTIBYTE-MAPPER ...)
; processing (DEFMACRO DEFINE-MULTIBYTE-MAPPER ...)
; processing (DEFINE-MULTIBYTE-MAPPER *GBK-TO-UCS-SPECIAL-TABLE* ...)
; processing (DEFINE-MULTIBYTE-MAPPER *UCS-TO-GBK-SPECIAL-TABLE* ...)
; processing (DEFINE-MULTIBYTE-MAPPER *GBK-TO-UCS-TABLE* ...)
; processing (DEFINE-MULTIBYTE-MAPPER *UCS-TO-GBK-TABLE* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/enc-cn-tbl-tmpJZYZV5YE.fasl
; compilation finished in 0:00:02.980
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/code-pages.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFCONSTANT +CODE-PAGE-TABLES+ ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/code-pages-tmp7AGT8VJK.fasl
; compilation finished in 0:00:00.145
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/specials.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFVAR *STANDARD-OPTIMIZE-SETTINGS* ...)
; processing (DEFVAR *FIXNUM-OPTIMIZE-SETTINGS* ...)
; processing (DEFCONSTANT +LF+ ...)
; processing (DEFCONSTANT +CR+ ...)
; processing (DEFVAR *CURRENT-UNREADER* ...)
; processing (DEFVAR +NAME-MAP+ ...)
; processing (DEFVAR +SHORTCUT-MAP+ ...)
; processing (DEFVAR *DEFAULT-EOL-STYLE* ...)
; processing (DEFVAR *DEFAULT-LITTLE-ENDIAN* ...)
; processing (DEFVAR *SUBSTITUTION-CHAR* ...)
; processing (DEFCONSTANT +ISO-8859-HASHES+ ...)
; processing (DEFCONSTANT +CODE-PAGE-HASHES+ ...)
; processing (DEFCONSTANT +ASCII-HASH+ ...)
; processing (DEFCONSTANT +KOI8-R-HASH+ ...)
; processing (DEFCONSTANT +MAC-ROMAN-HASH+ ...)
; processing (DEFCONSTANT +BUFFER-SIZE+ ...)
; processing (PUSHNEW :FLEXI-STREAMS ...)
; processing (DEFVAR *HYPERDOC-BASE-URI* ...)
; processing (LET (#) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/specials-tmpVX9R9U8P.fasl
; compilation finished in 0:00:00.175
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/util.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFMACRO WHEN-LET ...)
; processing (DEFMACRO WITH-UNIQUE-NAMES ...)
; processing (DEFMACRO WITH-REBINDING ...)
; processing (DEFUN NORMALIZE-EXTERNAL-FORMAT-NAME ...)
; processing (DEFUN ASCII-NAME-P ...)
; processing (DEFUN KOI8-R-NAME-P ...)
; processing (DEFUN MAC-ROMAN-NAME-P ...)
; processing (DEFUN CODE-PAGE-NAME-P ...)
; processing (DEFUN ISO-8859-NAME-P ...)
; processing (DEFUN KNOWN-CODE-PAGE-ID-P ...)
; processing (DEFUN SANS ...)
; processing (DEFUN MAKE-OCTET-BUFFER ...)
; processing (DEFUN TYPE-EQUAL ...)
; processing (DEFUN MAYBE-REWIND ...)
; processing (DEFMACRO LOGAND* ...)
; processing (DEFMACRO LOGIOR* ...)
; processing (DEFMACRO ASH* ...)
; processing (DEFUN GET-MULTIBYTE-MAPPER ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/util.lisp
; in: DEFUN GET-MULTIBYTE-MAPPER
; (AREF FLEXI-STREAMS::TABLE FLEXI-STREAMS::M 0)
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (ARRAY * (* 2)), not a SIMPLE-ARRAY.
; (AREF FLEXI-STREAMS::TABLE FLEXI-STREAMS::M 1)
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (ARRAY * (* 2)), not a SIMPLE-ARRAY.
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/util-tmpQCDFKETQ.fasl
; compilation finished in 0:00:00.650
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/conditions.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFINE-CONDITION FLEXI-STREAM-ERROR ...)
; processing (DEFINE-CONDITION FLEXI-STREAM-SIMPLE-ERROR ...)
; processing (DEFINE-CONDITION FLEXI-STREAM-ELEMENT-TYPE-ERROR ...)
; processing (DEFINE-CONDITION FLEXI-STREAM-OUT-OF-SYNC-ERROR ...)
; processing (DEFINE-CONDITION IN-MEMORY-STREAM-ERROR ...)
; processing (DEFINE-CONDITION IN-MEMORY-STREAM-SIMPLE-ERROR ...)
; processing (DEFINE-CONDITION IN-MEMORY-STREAM-CLOSED-ERROR ...)
; processing (DEFINE-CONDITION IN-MEMORY-STREAM-POSITION-SPEC-ERROR ...)
; processing (DEFINE-CONDITION EXTERNAL-FORMAT-CONDITION ...)
; processing (DEFINE-CONDITION EXTERNAL-FORMAT-ERROR ...)
; processing (DEFINE-CONDITION EXTERNAL-FORMAT-ENCODING-ERROR ...)
; processing (DEFUN SIGNAL-ENCODING-ERROR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/conditions-tmpO1PDDUR.fasl
; compilation finished in 0:00:00.160
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/external-format.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFCLASS EXTERNAL-FORMAT ...)
; processing (DEFMETHOD MAKE-LOAD-FORM ...)
; processing (DEFCLASS FLEXI-CR-MIXIN ...)
; processing (DEFCLASS FLEXI-CRLF-MIXIN ...)
; processing (DEFCLASS FLEXI-8-BIT-FORMAT ...)
; processing (DEFCLASS FLEXI-CR-8-BIT-FORMAT ...)
; processing (DEFCLASS FLEXI-CRLF-8-BIT-FORMAT ...)
; processing (DEFCLASS FLEXI-ASCII-FORMAT ...)
; processing (DEFCLASS FLEXI-CR-ASCII-FORMAT ...)
; processing (DEFCLASS FLEXI-CRLF-ASCII-FORMAT ...)
; processing (DEFCLASS FLEXI-LATIN-1-FORMAT ...)
; processing (DEFCLASS FLEXI-CR-LATIN-1-FORMAT ...)
; processing (DEFCLASS FLEXI-CRLF-LATIN-1-FORMAT ...)
; processing (DEFCLASS FLEXI-UTF-32-FORMAT ...)
; processing (DEFCLASS FLEXI-UTF-32-LE-FORMAT ...)
; processing (DEFCLASS FLEXI-CR-UTF-32-LE-FORMAT ...)
; processing (DEFCLASS FLEXI-CRLF-UTF-32-LE-FORMAT ...)
; processing (DEFCLASS FLEXI-UTF-32-BE-FORMAT ...)
; processing (DEFCLASS FLEXI-CR-UTF-32-BE-FORMAT ...)
; processing (DEFCLASS FLEXI-CRLF-UTF-32-BE-FORMAT ...)
; processing (DEFCLASS FLEXI-UTF-16-FORMAT ...)
; processing (DEFCLASS FLEXI-UTF-16-LE-FORMAT ...)
; processing (DEFCLASS FLEXI-CR-UTF-16-LE-FORMAT ...)
; processing (DEFCLASS FLEXI-CRLF-UTF-16-LE-FORMAT ...)
; processing (DEFCLASS FLEXI-UTF-16-BE-FORMAT ...)
; processing (DEFCLASS FLEXI-CR-UTF-16-BE-FORMAT ...)
; processing (DEFCLASS FLEXI-CRLF-UTF-16-BE-FORMAT ...)
; processing (DEFCLASS FLEXI-GBK-FORMAT ...)
; processing (DEFCLASS FLEXI-CR-GBK-FORMAT ...)
; processing (DEFCLASS FLEXI-CRLF-GBK-FORMAT ...)
; processing (DEFCLASS FLEXI-UTF-8-FORMAT ...)
; processing (DEFCLASS FLEXI-CR-UTF-8-FORMAT ...)
; processing (DEFCLASS FLEXI-CRLF-UTF-8-FORMAT ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFUN EXTERNAL-FORMAT-CLASS-NAME ...)
; processing (DEFUN MAKE-EXTERNAL-FORMAT% ...)
; processing (DEFUN MAKE-EXTERNAL-FORMAT ...)
; processing (DEFUN MAYBE-CONVERT-EXTERNAL-FORMAT ...)
; processing (DEFUN EXTERNAL-FORMAT-EQUAL ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/external-format.lisp
; in: DEFUN EXTERNAL-FORMAT-EQUAL
; (EQL (FLEXI-STREAMS:EXTERNAL-FORMAT-ID FLEXI-STREAMS::EF1)
; (FLEXI-STREAMS:EXTERNAL-FORMAT-ID FLEXI-STREAMS::EF2))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFUN NORMALIZE-EXTERNAL-FORMAT ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/external-format-tmpIX4U16ZB.fasl
; compilation finished in 0:00:01.035
; 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
; ==>
; (SB-INT:FIXNUMP #:G23)
;
; 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
; ==>
; (SB-INT:FIXNUMP #:G27)
;
; 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
; ==>
; (SB-INT:FIXNUMP #:G22)
;
; 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
; ==>
; (SB-INT:FIXNUMP #:G22)
;
; 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
; ==>
; (SB-INT:FIXNUMP #:G20)
;
; 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
; ==>
; (SB-INT:FIXNUMP #:G20)
;
; 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
; ==>
; (SB-INT:FIXNUMP #:G20)
;
; 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
; ==>
; (SB-INT:FIXNUMP #:G20)
;
; 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
; ==>
; (SB-INT:FIXNUMP #:G20)
;
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/length-tmp93OFNPHA.fasl
; compilation finished in 0:00:02.410
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/encode.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFGENERIC CHAR-TO-OCTETS ...)
; processing (DEFGENERIC WRITE-SEQUENCE* ...)
; processing (DEFGENERIC STRING-TO-OCTETS* ...)
; processing (DEFMETHOD STRING-TO-OCTETS* ...)
; processing (DEFMACRO DEFINE-SEQUENCE-WRITERS ...)
; processing (DEFMACRO DEFINE-CHAR-ENCODERS ...)
; processing (DEFINE-CHAR-ENCODERS (FLEXI-LATIN-1-FORMAT FLEXI-CR-LATIN-1-FORMAT ...) ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/encode.lisp
; in:
; DEFINE-CHAR-ENCODERS (FLEXI-LATIN-1-FORMAT FLEXI-CR-LATIN-1-FORMAT
; FLEXI-CRLF-LATIN-1-FORMAT)
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not a LATIN-1 character."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET)
; --> CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-LATIN-1-FORMAT
; FLEXI-STREAMS::FLEXI-CR-LATIN-1-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-LATIN-1-FORMAT)
; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (WHEN (> FLEXI-STREAMS:OCTET 255)
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not a LATIN-1 character."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET))
; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; ==>
; 1
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not a LATIN-1 character."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET)
; --> CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not a LATIN-1 character."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET)
; --> AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-LATIN-1-FORMAT
; FLEXI-STREAMS::FLEXI-CR-LATIN-1-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-LATIN-1-FORMAT)
; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (WHEN (> FLEXI-STREAMS:OCTET 255)
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not a LATIN-1 character."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET))
; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET WHEN IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET
; --> FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET WHEN IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET
; --> FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not an ASCII character."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET)
; --> CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not an ASCII character."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET)
; --> AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT
; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT)
; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (WHEN (> FLEXI-STREAMS:OCTET 127)
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not an ASCII character."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET))
; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET WHEN IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET
; --> FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET WHEN IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET
; --> FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not in this encoding."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET)
; --> CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not in this encoding."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET)
; --> AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT
; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT)
; (WITH-ACCESSORS ((FLEXI-STREAMS::ENCODING-HASH
; FLEXI-STREAMS::EXTERNAL-FORMAT-ENCODING-HASH))
; FORMAT
; (LET ((FLEXI-STREAMS:OCTET #))
; (UNLESS FLEXI-STREAMS:OCTET
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not in this encoding."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET))
; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY WITH-ACCESSORS LET SYMBOL-MACROLET LET GETHASH
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY WITH-ACCESSORS LET SYMBOL-MACROLET LET UNLESS IF
; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY WITH-ACCESSORS LET SYMBOL-MACROLET LET GETHASH
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY WITH-ACCESSORS LET SYMBOL-MACROLET LET UNLESS IF
; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT)
; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (TAGBODY
; (COND (# # #) (# # #) (# # #) (T #))
; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #))
; FLEXI-STREAMS::TWO
; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #))
; FLEXI-STREAMS::ONE
; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #))
; FLEXI-STREAMS::ZERO)))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-16-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-16-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-LE-FORMAT)
; (FLET ((FLEXI-STREAMS::WRITE-WORD (FLEXI-STREAMS::WORD)
; (FLEXI-STREAMS::OCTET-WRITER #)
; (FLEXI-STREAMS::OCTET-WRITER #)))
; (DECLARE (INLINE FLEXI-STREAMS::WRITE-WORD))
; (LET ((CHAR-CODE #))
; (DECLARE (TYPE FLEXI-STREAMS::CHAR-CODE-INTEGER CHAR-CODE))
; (COND (# #) (T # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT)
; (FLET ((FLEXI-STREAMS::WRITE-WORD (FLEXI-STREAMS::WORD)
; (FLEXI-STREAMS::OCTET-WRITER #)
; (FLEXI-STREAMS::OCTET-WRITER #)))
; (DECLARE (INLINE FLEXI-STREAMS::WRITE-WORD))
; (LET ((CHAR-CODE #))
; (DECLARE (TYPE FLEXI-STREAMS::CHAR-CODE-INTEGER CHAR-CODE))
; (COND (# #) (T # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not in this encoding."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET)
; --> CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD)
; ==>
; (LOGAND 65280 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
; (LOGAND 255 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (IF (<= FLEXI-STREAMS:OCTET 127)
; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
; (FLET (#)
; (DECLARE #)
; (DECLARE #)
; (COND # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; ==>
; 1
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not in this encoding."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET)
; --> CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT
; "~S (code ~A) is not in this encoding."
; FLEXI-STREAMS::CHAR-GETTER
; FLEXI-STREAMS:OCTET)
; --> AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (IF (<= FLEXI-STREAMS:OCTET 127)
; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
; (FLET (#)
; (DECLARE #)
; (DECLARE #)
; (COND # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD)
; ==>
; (LOGAND 65280 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
; (LOGAND 255 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD)
; ==>
; (LOGAND 65280 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
; (LOGAND 255 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (IF (<= FLEXI-STREAMS:OCTET 127)
; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
; (FLET (#)
; (DECLARE #)
; (DECLARE #)
; (COND # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &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 (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
; (LOGAND 255 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (IF (<= FLEXI-STREAMS:OCTET 127)
; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
; (FLET (#)
; (DECLARE #)
; (DECLARE #)
; (COND # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY LET CHAR-CODE LET
; --> FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY LET IF FLET COND IF IF THE LET IF
; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD)
; ==>
; (LOGAND 65280 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
; (LOGAND 255 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (IF (<= FLEXI-STREAMS:OCTET 127)
; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
; (FLET (#)
; (DECLARE #)
; (DECLARE #)
; (COND # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; ==>
; 1
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET IF FLET COND IF IF THE LET IF
; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET IF FLET COND IF IF THE LET IF
; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD)
; ==>
; (LOGAND 65280 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
; (LOGAND 255 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD)
; ==>
; (LOGAND 65280 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
; (LOGAND 255 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (IF (<= FLEXI-STREAMS:OCTET 127)
; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
; (FLET (#)
; (DECLARE #)
; (DECLARE #)
; (COND # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF
; ==>
; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &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 (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
; (LOGAND 255 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (IF (<= FLEXI-STREAMS:OCTET 127)
; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
; (FLET (#)
; (DECLARE #)
; (DECLARE #)
; (COND # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD)
; ==>
; (LOGAND 65280 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
; (LOGAND 255 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (IF (<= FLEXI-STREAMS:OCTET 127)
; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
; (FLET (#)
; (DECLARE #)
; (DECLARE #)
; (COND # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET
; --> SYMBOL-MACROLET PROGN LOCALLY FLET
; ==>
; (#:WRITE-CHAR2 (#:CHAR1)
; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE #:CHAR1)))
; (IF (<= FLEXI-STREAMS:OCTET 127)
; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
; (FLET (#)
; (DECLARE #)
; (DECLARE #)
; (COND # # #)))))
;
; note: Return type not fixed values, so can't use known return convention:
; *
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; ==>
; 1
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
; (LOGAND 255 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD)
; ==>
; (LOGAND 65280 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
; (LOGAND 255 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD)
; ==>
; (LOGAND 65280 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD)
; ==>
; (LOGAND 255 FLEXI-STREAMS::WORD)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT
; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT)
; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (IF (<= FLEXI-STREAMS:OCTET 127)
; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
; (FLET (#)
; (DECLARE #)
; (DECLARE #)
; (COND # # #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OBJECT BLOCK ETYPECASE LET COND IF
; --> IF PROGN SYMBOL-MACROLET LOCALLY FLET
; ==>
; (#:WRITE-CHAR2 (#:CHAR1)
; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE #:CHAR1)))
; (IF (<= FLEXI-STREAMS:OCTET 127)
; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)
; (FLET (#)
; (DECLARE #)
; (DECLARE #)
; (COND # # #)))))
;
; note: Return type not fixed values, so can't use known return convention:
; *
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFINE-CHAR-ENCODERS (FLEXI-UTF-32-LE-FORMAT FLEXI-CR-UTF-32-LE-FORMAT ...) ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/encode.lisp
; in:
; DEFINE-CHAR-ENCODERS (FLEXI-UTF-32-LE-FORMAT FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-CRLF-UTF-32-LE-FORMAT)
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT)
; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGAND* 255 CHAR-CODE))
; (FLEXI-STREAMS::OCTET-WRITER
; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -8)))
; (FLEXI-STREAMS::OCTET-WRITER
; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -16)))
; (FLEXI-STREAMS::OCTET-WRITER
; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -24)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN
; ==>
; 1
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT)
; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGAND* 255 CHAR-CODE))
; (FLEXI-STREAMS::OCTET-WRITER
; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -8)))
; (FLEXI-STREAMS::OCTET-WRITER
; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -16)))
; (FLEXI-STREAMS::OCTET-WRITER
; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -24)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)
; --> CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT)
; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER)))
; (FLEXI-STREAMS::OCTET-WRITER
; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -24)))
; (FLEXI-STREAMS::OCTET-WRITER
; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -16)))
; (FLEXI-STREAMS::OCTET-WRITER
; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -8)))
; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGAND* 255 CHAR-CODE))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN
; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET
; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION
; ==>
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &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.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a 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.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/encode-tmpOH5AKS8D.fasl
; compilation finished in 0:00:20.136
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY
; --> FLET #:GET-CHAR-CODE4 BLOCK LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK
; --> PROG1 LET AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK
; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET PROGN FLEXI-STREAMS::OCTET-GETTER
; --> BLOCK PROG1 LET AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK 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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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
; --> 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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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)
; (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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "Unexpected value #x~X at start of UTF-8 sequence." OCTET)).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "Unexpected value #x~X at start of UTF-8 sequence." OCTET)).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "Unexpected value #x~X at start of UTF-8 sequence." OCTET)).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF 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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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::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: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &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 {52B1DA59}>.
;
; note: deleting unused function
; (SB-C::LOCAL-INLINE READ-NEXT-WORD)
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR
; ==>
; (LET ((#:G37 FLEXI-STREAMS::OCTET-GETTER))
; (IF #:G37
; #:G37
; (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 ((#:G37 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 {52B1DA59}>.
;
; 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::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-16-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-16-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-LE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (FLET (#)
; (DECLARE #)
; (LET #
; #
; #)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET*
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::OCTETS-TO-CHAR-CODE
; (SYMBOL-MACROLET ((FLEXI-STREAMS::OCTET-GETTER
; (FUNCALL FLEXI-STREAMS::READER)))
; (LET ((#:CHAR-CODE0 #))
; (WHEN (AND #:CHAR-CODE0 #)
; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
; "Illegal code point ~A (#x~:*~X)." #:CHAR-CODE0))
; #:CHAR-CODE0)))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM OCTETS-TO-CHAR-CODE NIL). Use GO/RETURN-FROM with SAFETY 0, or
; declare the exit function DYNAMIC-EXTENT to avoid.
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET OR LET IF COND IF THE RETURN-FROM
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a (MOD 1114112):
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET OR LET IF COND IF THE RETURN-FROM
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a (MOD 1114112):
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-16-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-16-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-LE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (FLET (#)
; (DECLARE #)
; (LET #
; #
; #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-16 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-16 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-16 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR LET IF COND IF THE
; ==>
; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)
;
; caught STYLE-WARNING:
; Result is a (VALUES &OPTIONAL NULL &REST T), not a (MOD 1114112).
; See also:
; The SBCL Manual, Node "Handling of Types"
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> 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: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-16 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &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 {542723E9}>.
;
; note: deleting unused function
; (SB-C::LOCAL-INLINE READ-NEXT-WORD)
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR
; ==>
; (LET ((#:G37 FLEXI-STREAMS::OCTET-GETTER))
; (IF #:G37
; #:G37
; (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 ((#:G37 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 {542723E9}>.
;
; 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::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (FLET (#)
; (DECLARE #)
; (LET #
; #
; #)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET*
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::OCTETS-TO-CHAR-CODE
; (SYMBOL-MACROLET ((FLEXI-STREAMS::OCTET-GETTER
; (FUNCALL FLEXI-STREAMS::READER)))
; (LET ((#:CHAR-CODE0 #))
; (WHEN (AND #:CHAR-CODE0 #)
; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT
; "Illegal code point ~A (#x~:*~X)." #:CHAR-CODE0))
; #:CHAR-CODE0)))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM OCTETS-TO-CHAR-CODE NIL). Use GO/RETURN-FROM with SAFETY 0, or
; declare the exit function DYNAMIC-EXTENT to avoid.
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET OR LET IF COND IF THE RETURN-FROM
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a (MOD 1114112):
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; --> LET OR LET IF COND IF THE RETURN-FROM
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a (MOD 1114112):
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (FLET (#)
; (DECLARE #)
; (LET #
; #
; #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-16 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-16 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-16 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR LET IF COND IF THE
; ==>
; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)
;
; caught STYLE-WARNING:
; Result is a (VALUES &OPTIONAL NULL &REST T), not a (MOD 1114112).
; See also:
; The SBCL Manual, Node "Handling of Types"
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (FLET (#)
; (DECLARE #)
; (LET #
; #
; #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET
; ==>
; 1
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (FLET (#)
; (DECLARE #)
; (LET #
; #
; #)))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET
; ==>
; 1
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-16 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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 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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-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-20 (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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-128 (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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-143 (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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-111 (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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-458 (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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-474 (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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-440 (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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-32 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-32 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-32 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-773 (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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-809 (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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-792 (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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET
; ==>
; 1
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &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-20 (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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-128 (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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-143 (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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-111 (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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-458 (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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-474 (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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-440 (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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY *
; (*)).
;
; note: unable to
; avoid runtime dispatch on array element type
; due to type uncertainty:
; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE
; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-32 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-32 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET*
; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET
; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET
; ==>
; (BLOCK FLEXI-STREAMS::CHAR-DECODER
; (LOCALLY
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (FLET ((#:GET-CHAR-CODE4 #
; #))
; (LET (#)
; (CASE #:CHAR-CODE2 # #)))))
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER
; (RECOVER-FROM-ENCODING-ERROR FORMAT
; "End of data while in UTF-32 sequence.")).
; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT
; to avoid.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-809 (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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-773 (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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-792 (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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)
; ==>
; (ASH FLEXI-STREAMS:OCTET COUNT)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
; (FLEXI-STREAMS::READ-NEXT-BYTE)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT
; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT)
; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN)
; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN))
; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE #
; '#))
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...))))
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET*
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF
; --> SB-KERNEL:%SCHARSET
; ==>
; 1
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare
; the exit function DYNAMIC-EXTENT to avoid.
; (LOOP FLEXI-STREAMS::FOR
; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8
; FLEXI-STREAMS::FOR ...)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &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 (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32)
; &OPTIONAL).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &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.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/decode-tmpTNV77KDS.fasl
; compilation finished in 0:00:52.676
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: unable to open code because: The operands might not be the same type.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFMETHOD STREAM-FILE-POSITION ...)
; processing (DEFMETHOD (SETF STREAM-FILE-POSITION) ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFMETHOD (SETF STREAM-FILE-POSITION) (T VECTOR-OUTPUT-STREAM)
; (ARRAY-TOTAL-SIZE VECTOR)
;
; note: unable to optimize because: can't tell the rank at compile time
; (<= 0 FLEXI-STREAMS::POSITION-SPEC ARRAY-TOTAL-SIZE-LIMIT)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFMETHOD MAKE-IN-MEMORY-INPUT-STREAM ...)
; processing (DEFMETHOD MAKE-IN-MEMORY-INPUT-STREAM ...)
; processing (DEFUN MAKE-OUTPUT-VECTOR ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp
; in: DEFUN MAKE-OUTPUT-VECTOR
; (MAKE-ARRAY 0 :ADJUSTABLE T :FILL-POINTER 0 :ELEMENT-TYPE
; FLEXI-STREAMS::ELEMENT-TYPE)
;
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; processing (DEFUN MAKE-IN-MEMORY-OUTPUT-STREAM ...)
; processing (DEFMETHOD GET-OUTPUT-STREAM-SEQUENCE ...)
; processing (DEFMETHOD OUTPUT-STREAM-SEQUENCE-LENGTH ...)
; processing (DEFMACRO WITH-INPUT-FROM-SEQUENCE ...)
; processing (DEFMACRO WITH-OUTPUT-TO-SEQUENCE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/in-memory-tmp9AOKGDLT.fasl
; compilation finished in 0:00:01.420
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/stream.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFCLASS FLEXI-STREAM ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD (SETF FLEXI-STREAM-EXTERNAL-FORMAT) ...)
; processing (DEFMETHOD (SETF FLEXI-STREAM-ELEMENT-TYPE) ...)
; processing (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; processing (DEFMETHOD CLOSE ...)
; processing (DEFMETHOD OPEN-STREAM-P ...)
; processing (DEFMETHOD STREAM-FILE-POSITION ...)
; processing (DEFMETHOD (SETF STREAM-FILE-POSITION) ...)
; processing (DEFCLASS FLEXI-OUTPUT-STREAM ...)
; processing (DEFCLASS FLEXI-INPUT-STREAM ...)
; processing (DEFCLASS FLEXI-IO-STREAM ...)
; processing (DEFUN MAKE-FLEXI-STREAM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/stream-tmpXS9JOGMS.fasl
; compilation finished in 0:00:00.355
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/output-tmpERBDX74X.fasl
; compilation finished in 0:00:00.285
; 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 (OR LIST
; (AND (NOT BASE-STRING) (NOT (VECTOR CHARACTER))
; VECTOR)
; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY
; * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST
; (AND (NOT BASE-STRING) (NOT (VECTOR CHARACTER))
; VECTOR)
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
; (INCF POSITION (- FLEXI-STREAMS::INDEX FLEXI-STREAMS::START))
; ==>
; (+ (- FLEXI-STREAMS::INDEX FLEXI-STREAMS::START)
; (FLEXI-STREAMS:FLEXI-STREAM-POSITION #:G2342))
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (MIN FLEXI-STREAMS::END
; (+ FLEXI-STREAMS::START (- FLEXI-STREAMS::BOUND POSITION)))
;
; note: unable to open code because: The operands might not be the same type.
; (- FLEXI-STREAMS::BOUND POSITION)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &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.
; (MIN FLEXI-STREAMS::END
; (+ FLEXI-STREAMS::START (- FLEXI-STREAMS::BOUND POSITION)))
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a (INTEGER -536870911 536870911), not a (UNSIGNED-BYTE
; 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; (INCF POSITION (- FLEXI-STREAMS::INDEX FLEXI-STREAMS::START))
; ==>
; (+ (- FLEXI-STREAMS::INDEX FLEXI-STREAMS::START)
; (FLEXI-STREAMS:FLEXI-STREAM-POSITION #:G2342))
;
; 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
; ==>
; (SB-INT:FIXNUMP #:G89)
;
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/input-tmpTQIEF2IQ.fasl
; compilation finished in 0:00:00.715
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/io-tmpPAAFO6LP.fasl
; compilation finished in 0:00:00.320
; compiling file "/usr/share/common-lisp/source/cl-flexi-streams/strings.lisp" (written 28 JUL 2021 07:07:50 PM):
; processing (IN-PACKAGE :FLEXI-STREAMS)
; processing (DEFUN STRING-TO-OCTETS ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/strings.lisp
; in: DEFUN STRING-TO-OCTETS
; (LENGTH STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; processing (DEFUN OCTETS-TO-STRING ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/strings.lisp
; in: DEFUN OCTETS-TO-STRING
; (LENGTH SEQUENCE)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; processing (DEFUN OCTET-LENGTH ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/strings.lisp
; in: DEFUN OCTET-LENGTH
; (LENGTH STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; processing (DEFUN CHAR-LENGTH ...)
; file: /usr/share/common-lisp/source/cl-flexi-streams/strings.lisp
; in: DEFUN CHAR-LENGTH
; (LENGTH SEQUENCE)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/strings-tmp4PCSVQUR.fasl
; compilation finished in 0:00:00.250
; compiling file "/usr/share/common-lisp/source/bordeaux-threads/src/pkgdcl.lisp" (written 07 JUN 2020 09:11:43 PM):
; processing (DEFPACKAGE :BORDEAUX-THREADS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/bordeaux-threads/src/pkgdcl-tmpCUMSDKM4.fasl
; compilation finished in 0:00:00.015
; compiling file "/usr/share/common-lisp/source/bordeaux-threads/src/bordeaux-threads.lisp" (written 07 JUN 2020 09:11:43 PM):
; processing (IN-PACKAGE #:BORDEAUX-THREADS)
; processing (DEFVAR *SUPPORTS-THREADS-P* ...)
; processing (DEFUN MARK-SUPPORTED ...)
; processing (DEFINE-CONDITION BORDEAUX-MP-CONDITION ...)
; processing (DEFGENERIC MAKE-THREADING-SUPPORT-ERROR ...)
; processing (DEFSTRUCT %SEMAPHORE ...)
; processing (DEFVAR *DEFAULT-SPECIAL-BINDINGS* ...)
; processing (DEFMACRO DEFBINDINGS ...)
; processing (DEFBINDINGS *STANDARD-IO-BINDINGS* ...)
; processing (DEFUN BINDING-DEFAULT-SPECIALS ...)
; processing (DEFUN SIGNAL-ERROR-IF-CURRENT-THREAD ...)
; processing (DEFPARAMETER *NO-CONDITION-WAIT-TIMEOUT-MESSAGE* ...)
; processing (DEFUN SIGNAL-ERROR-IF-CONDITION-WAIT-TIMEOUT ...)
; processing (DEFMACRO DEFINE-CONDITION-WAIT-COMPILER-MACRO ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/bordeaux-threads/src/bordeaux-threads-tmpVBY1FQ3S.fasl
; compilation finished in 0:00:00.340
; compiling file "/usr/share/common-lisp/source/bordeaux-threads/src/impl-null.lisp" (written 07 JUN 2020 09:11:43 PM):
; processing (IN-PACKAGE #:BORDEAUX-THREADS)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/bordeaux-threads/src/impl-null-tmpS8NUOPMQ.fasl
; compilation finished in 0:00:00.010
; compiling file "/usr/share/common-lisp/source/bordeaux-threads/src/default-implementations.lisp" (written 07 JUN 2020 09:11:43 PM):
; processing (IN-PACKAGE #:BORDEAUX-THREADS)
; processing (DEFMACRO DEFDFUN ...)
; processing (DEFMACRO DEFDMACRO ...)
; processing (DEFDFUN START-MULTIPROCESSING ...)
; processing (DEFDFUN MAKE-THREAD ...)
; processing (DEFDFUN %MAKE-THREAD ...)
; processing (DEFDFUN CURRENT-THREAD ...)
; processing (DEFDFUN THREADP ...)
; processing (DEFDFUN THREAD-NAME ...)
; processing (DEFDFUN LOCK-P ...)
; processing (DEFDFUN RECURSIVE-LOCK-P ...)
; processing (DEFDFUN MAKE-LOCK ...)
; processing (DEFDFUN ACQUIRE-LOCK ...)
; processing (DEFDFUN RELEASE-LOCK ...)
; processing (DEFDMACRO WITH-LOCK-HELD ...)
; processing (DEFDFUN MAKE-RECURSIVE-LOCK ...)
; processing (DEFDFUN ACQUIRE-RECURSIVE-LOCK ...)
; processing (DEFDFUN RELEASE-RECURSIVE-LOCK ...)
; processing (DEFDMACRO WITH-RECURSIVE-LOCK-HELD ...)
; processing (DEFDFUN THREAD-YIELD ...)
; processing (DEFDFUN MAKE-CONDITION-VARIABLE ...)
; processing (DEFDFUN CONDITION-WAIT ...)
; processing (DEFDFUN CONDITION-NOTIFY ...)
; processing (DEFDFUN MAKE-SEMAPHORE ...)
; processing (DEFDFUN SIGNAL-SEMAPHORE ...)
; processing (DEFDFUN WAIT-ON-SEMAPHORE ...)
; processing (DEFDFUN SEMAPHORE-P ...)
; file: /usr/share/common-lisp/source/bordeaux-threads/src/default-implementations.lisp
; in: DEFDFUN SEMAPHORE-P
; 'BORDEAUX-THREADS:SEMAPHORE
;
; note: can't open-code test of unknown type SEMAPHORE
; processing (DEFDFUN ALL-THREADS ...)
; processing (DEFDFUN INTERRUPT-THREAD ...)
; processing (DEFDFUN DESTROY-THREAD ...)
; processing (DEFDFUN THREAD-ALIVE-P ...)
; processing (DEFDFUN JOIN-THREAD ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/bordeaux-threads/src/default-implementations-tmpPYED056U.fasl
; compilation finished in 0:00:01.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.2.9.debian-linux-arm/usr/share/common-lisp/source/trivial-garbage/trivial-garbage-tmpUOCPY155.fasl
; compilation finished in 0:00:00.195
; compiling file "/usr/share/common-lisp/source/cl-split-sequence/package.lisp" (written 28 MAY 2021 03:05:40 AM):
; processing (DEFPACKAGE #:SPLIT-SEQUENCE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/package-tmpP4BCARWB.fasl
; compilation finished in 0:00:00.005
; compiling file "/usr/share/common-lisp/source/cl-split-sequence/vector.lisp" (written 28 MAY 2021 03:05:40 AM):
; processing (IN-PACKAGE :SPLIT-SEQUENCE)
; processing (DECLAIM (INLINE SPLIT-VECTOR ...))
; processing (DEFTYPE ARRAY-INDEX ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN SPLIT-VECTOR-FROM-END ...)
; processing (DEFUN SPLIT-VECTOR-FROM-START ...)
; processing (DEFUN SPLIT-VECTOR-IF ...)
; processing (DEFUN SPLIT-VECTOR-IF-NOT ...)
; processing (DEFUN SPLIT-VECTOR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/vector-tmpOUEHOD9C.fasl
; compilation finished in 0:00:02.200
; compiling file "/usr/share/common-lisp/source/cl-split-sequence/list.lisp" (written 28 MAY 2021 03:05:40 AM):
; processing (IN-PACKAGE :SPLIT-SEQUENCE)
; processing (DECLAIM (INLINE COLLECT-UNTIL ...))
; processing (DECLAIM (FTYPE # ...))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN COLLECT-UNTIL ...)
; processing (DEFUN COUNT-WHILE ...)
; processing (DEFUN SPLIT-LIST-INTERNAL ...)
; processing (DEFUN SPLIT-LIST-FROM-END ...)
; processing (DEFUN SPLIT-LIST-FROM-START ...)
; processing (DEFUN SPLIT-LIST-IF ...)
; processing (DEFUN SPLIT-LIST-IF-NOT ...)
; processing (DEFUN SPLIT-LIST ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/list-tmp5ZHGID8G.fasl
; compilation finished in 0:00:03.280
; compiling file "/usr/share/common-lisp/source/cl-split-sequence/extended-sequence.lisp" (written 28 MAY 2021 03:05:40 AM):
; processing (IN-PACKAGE :SPLIT-SEQUENCE)
; processing (DEFTYPE EXTENDED-SEQUENCE ...)
; processing (DECLAIM (INLINE SPLIT-EXTENDED-SEQUENCE ...))
; processing (DECLAIM (FTYPE # ...))
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN SPLIT-EXTENDED-SEQUENCE-FROM-END ...)
; processing (DEFUN SPLIT-EXTENDED-SEQUENCE-FROM-START ...)
; processing (DEFUN SPLIT-EXTENDED-SEQUENCE-IF ...)
; processing (DEFUN SPLIT-EXTENDED-SEQUENCE-IF-NOT ...)
; processing (DEFUN SPLIT-EXTENDED-SEQUENCE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/extended-sequence-tmp9D2N5DM.fasl
; compilation finished in 0:00:02.280
; compiling file "/usr/share/common-lisp/source/cl-split-sequence/api.lisp" (written 28 MAY 2021 03:05:40 AM):
; processing (IN-PACKAGE :SPLIT-SEQUENCE)
; processing (DEFUN LIST-LONG-ENOUGH-P ...)
; processing (DEFUN CHECK-BOUNDS ...)
; processing (DEFINE-CONDITION SIMPLE-PROGRAM-ERROR ...)
; processing (DEFMACRO CHECK-TESTS ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN SPLIT-SEQUENCE ...)
; processing (DEFUN SPLIT-SEQUENCE-IF ...)
; processing (DEFUN SPLIT-SEQUENCE-IF-NOT ...)
; processing (PUSHNEW :SPLIT-SEQUENCE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/api-tmpKDSLP2NX.fasl
; compilation finished in 0:00:11.790
; compiling file "/usr/share/common-lisp/source/cl-split-sequence/documentation.lisp" (written 28 MAY 2021 03:05:40 AM):
; processing (IN-PACKAGE :SPLIT-SEQUENCE)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/documentation-tmp4QLHV6NG.fasl
; compilation finished in 0:00:00.015
; compiling file "/usr/share/common-lisp/source/usocket/package.lisp" (written 23 DEC 2019 01:05:56 PM):
; processing (DEFPACKAGE :USOCKET ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/usocket/package-tmpMFQG7214.fasl
; compilation finished in 0:00:00.015
; compiling file "/usr/share/common-lisp/source/usocket/usocket.lisp" (written 23 DEC 2019 01:05:56 PM):
; processing (IN-PACKAGE :USOCKET)
; processing (DEFPARAMETER *WILDCARD-HOST* ...)
; processing (DEFPARAMETER *AUTO-PORT* ...)
; processing (DEFPARAMETER *VERSION* ...)
; processing (DEFCONSTANT +MAX-DATAGRAM-PACKET-SIZE+ ...)
; processing (DEFCLASS USOCKET ...)
; processing (DEFGENERIC SOCKET-STATE ...)
; processing (DEFMETHOD SOCKET-STATE ...)
; processing (DEFCLASS STREAM-USOCKET ...)
; processing (DEFCLASS STREAM-SERVER-USOCKET ...)
; processing (DEFCLASS DATAGRAM-USOCKET ...)
; processing (DEFUN USOCKET-P ...)
; processing (DEFUN STREAM-USOCKET-P ...)
; processing (DEFUN STREAM-SERVER-USOCKET-P ...)
; processing (DEFUN DATAGRAM-USOCKET-P ...)
; processing (DEFUN MAKE-SOCKET ...)
; processing (DEFUN MAKE-STREAM-SOCKET ...)
; processing (DEFUN MAKE-STREAM-SERVER-SOCKET ...)
; processing (DEFUN MAKE-DATAGRAM-SOCKET ...)
; processing (DEFGENERIC SOCKET-ACCEPT ...)
; processing (DEFGENERIC SOCKET-CLOSE ...)
; processing (DEFMETHOD SOCKET-CLOSE ...)
; processing (DEFGENERIC SOCKET-SHUTDOWN ...)
; processing (DEFGENERIC SOCKET-SEND ...)
; processing (DEFGENERIC SOCKET-RECEIVE ...)
; processing (DEFGENERIC GET-LOCAL-ADDRESS ...)
; processing (DEFGENERIC GET-PEER-ADDRESS ...)
; processing (DEFGENERIC GET-LOCAL-PORT ...)
; processing (DEFGENERIC GET-PEER-PORT ...)
; processing (DEFGENERIC GET-LOCAL-NAME ...)
; processing (DEFGENERIC GET-PEER-NAME ...)
; processing (DEFMACRO WITH-CONNECTED-SOCKET ...)
; processing (DEFMACRO WITH-CLIENT-SOCKET ...)
; processing (DEFMACRO WITH-SERVER-SOCKET ...)
; processing (DEFMACRO WITH-SOCKET-LISTENER ...)
; processing (DEFSTRUCT (WAIT-LIST #) ...)
; processing (DEFUN MAKE-WAIT-LIST ...)
; processing (DEFUN ADD-WAITER ...)
; processing (DEFUN REMOVE-WAITER ...)
; processing (DEFUN REMOVE-ALL-WAITERS ...)
; processing (DEFUN WAIT-FOR-INPUT ...)
; processing (DEFUN INTEGER-TO-OCTET-BUFFER ...)
; processing (DEFUN OCTET-BUFFER-TO-INTEGER ...)
; processing (DEFMACRO PORT-TO-OCTET-BUFFER ...)
; processing (DEFMACRO IP-TO-OCTET-BUFFER ...)
; processing (DEFMACRO PORT-FROM-OCTET-BUFFER ...)
; processing (DEFMACRO IP-FROM-OCTET-BUFFER ...)
; processing (DEFUN LIST-OF-STRINGS-TO-INTEGERS ...)
; processing (DEFUN IP-ADDRESS-STRING-P ...)
; processing (DEFUN HBO-TO-DOTTED-QUAD ...)
; processing (DEFUN HBO-TO-VECTOR-QUAD ...)
; processing (DEFUN VECTOR-QUAD-TO-DOTTED-QUAD ...)
; processing (DEFUN DOTTED-QUAD-TO-VECTOR-QUAD ...)
; processing (DEFGENERIC HOST-BYTE-ORDER ...)
; processing (DEFMETHOD HOST-BYTE-ORDER ...)
; processing (DEFMETHOD HOST-BYTE-ORDER ...)
; processing (DEFMETHOD HOST-BYTE-ORDER ...)
; processing (DEFUN VECTOR-TO-IPV6-HOST ...)
; processing (DEFUN SPLIT-IPV6-ADDRESS ...)
; processing (DEFUN IPV6-HOST-TO-VECTOR ...)
; processing (DEFUN HOST-TO-HOSTNAME ...)
; processing (DEFUN IP= ...)
; processing (DEFUN IP/= ...)
; processing (DEFUN GET-HOST-BY-NAME ...)
; processing (DEFUN GET-RANDOM-HOST-BY-NAME ...)
; processing (DEFUN HOST-TO-VECTOR-QUAD ...)
; processing (DEFUN HOST-TO-HBO ...)
; processing (DEFUN SPLIT-TIMEOUT ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (SETF (DOCUMENTATION # ...) ...)
; processing (PROCLAIM (QUOTE #))
; processing (DEFUN BOOL->INT ...)
; processing (DEFUN INT->BOOL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/usocket/usocket-tmpEL1UBVEC.fasl
; compilation finished in 0:00:02.045
; compiling file "/usr/share/common-lisp/source/usocket/condition.lisp" (written 23 DEC 2019 01:05:56 PM):
; processing (IN-PACKAGE :USOCKET)
; processing (DEFINE-CONDITION INSUFFICIENT-IMPLEMENTATION ...)
; processing (DEFINE-CONDITION UNSUPPORTED ...)
; processing (DEFINE-CONDITION UNIMPLEMENTED ...)
; processing (DEFINE-CONDITION SOCKET-CONDITION ...)
; processing (DEFINE-CONDITION SOCKET-ERROR ...)
; processing (DEFINE-CONDITION NS-CONDITION ...)
; processing (DEFINE-CONDITION NS-ERROR ...)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DEFMACRO DEFINE-USOCKET-CONDITION-CLASSES ...)
; processing (DEFINE-USOCKET-CONDITION-CLASSES (INTERRUPTED-CONDITION) ...)
; processing (DEFINE-CONDITION UNKNOWN-CONDITION ...)
; processing (DEFINE-USOCKET-CONDITION-CLASSES (ADDRESS-IN-USE-ERROR ADDRESS-NOT-AVAILABLE-ERROR ...) ...)
; processing (DEFINE-CONDITION UNKNOWN-ERROR ...)
; processing (DEFINE-USOCKET-CONDITION-CLASSES (NS-TRY-AGAIN-CONDITION) ...)
; processing (DEFINE-CONDITION NS-UNKNOWN-CONDITION ...)
; processing (DEFINE-USOCKET-CONDITION-CLASSES (NS-HOST-NOT-FOUND-ERROR NS-NO-RECOVERY-ERROR) ...)
; processing (DEFINE-CONDITION NS-UNKNOWN-ERROR ...)
; processing (DEFMACRO WITH-MAPPED-CONDITIONS ...)
; processing (DEFPARAMETER +UNIX-ERRNO-CONDITION-MAP+ ...)
; processing (DEFPARAMETER +UNIX-ERRNO-ERROR-MAP+ ...)
; processing (DEFUN MAP-ERRNO-CONDITION ...)
; processing (DEFUN MAP-ERRNO-ERROR ...)
; processing (DEFPARAMETER +UNIX-NS-ERROR-MAP+ ...)
; processing (DEFMACRO UNSUPPORTED ...)
; processing (DEFMACRO UNIMPLEMENTED ...)
; processing (DEFMACRO IGNORE-UNSUPPORTED-WARNINGS ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/usocket/condition-tmpO7N5WXBL.fasl
; compilation finished in 0:00:00.490
; compiling file "/usr/share/common-lisp/source/usocket/backend/sbcl.lisp" (written 23 DEC 2019 01:05:56 PM):
; processing (IN-PACKAGE :USOCKET)
; processing (PROGN (DEFUN GET-HOST-NAME ...))
; processing (DEFUN MAP-SOCKET-ERROR ...)
; processing (DEFPARAMETER +SBCL-CONDITION-MAP+ ...)
; processing (DEFPARAMETER +SBCL-ERROR-MAP+ ...)
; processing (DEFUN HANDLE-CONDITION ...)
; processing (DEFVAR *DUMMY-STREAM* ...)
; processing (DEFMACRO %WITH-TIMEOUT ...)
; processing (DEFUN GET-HOSTS-BY-NAME ...)
; processing (DEFUN SOCKET-CONNECT ...)
; file: /usr/share/common-lisp/source/usocket/backend/sbcl.lisp
; in: DEFUN SOCKET-CONNECT
; (USOCKET::%WITH-TIMEOUT (USOCKET::TIMEOUT (ERROR 'TIMEOUT))
; (USOCKET::CONNECT))
; --> TAGBODY FLET LET
; ==>
; (MAKE-TIMER #'#:G17)
;
; note: could not stack allocate:
; (%WITH-TIMEOUT (TIMEOUT (ERROR 'SB-EXT:TIMEOUT))
; (CONNECT))
; processing (DEFUN SOCKET-LISTEN ...)
; processing (DEFMETHOD SOCKET-ACCEPT ...)
; processing (DEFMETHOD SOCKET-CLOSE ...)
; processing (DEFMETHOD SOCKET-CLOSE ...)
; processing (DEFMETHOD SOCKET-SHUTDOWN ...)
; processing (DEFMETHOD SOCKET-SEND ...)
; processing (DEFMETHOD SOCKET-RECEIVE ...)
; file: /usr/share/common-lisp/source/usocket/backend/sbcl.lisp
; in: DEFMETHOD SOCKET-RECEIVE (DATAGRAM-USOCKET T T)
; (DEFMETHOD USOCKET:SOCKET-RECEIVE
; ((USOCKET:USOCKET USOCKET:DATAGRAM-USOCKET) USOCKET::BUFFER LENGTH
; &KEY (USOCKET::ELEMENT-TYPE '(UNSIGNED-BYTE 8)))
; (DECLARE
; (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) (INTEGER 0)
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) (UNSIGNED-BYTE 16)))
; (USOCKET:WITH-MAPPED-CONDITIONS (USOCKET:USOCKET)
; (LET ((USOCKET::S #))
; (SB-BSD-SOCKETS:SOCKET-RECEIVE USOCKET::S USOCKET::BUFFER LENGTH
; :ELEMENT-TYPE USOCKET::ELEMENT-TYPE))))
; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; ==>
; (THE
; (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) UNSIGNED-BYTE
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) (UNSIGNED-BYTE 16) &REST T)
; (PROGN
; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS (# SB-PCL::.NEXT-METHOD-CALL. #
; NIL :CALL-NEXT-METHOD-P NIL
; :SETQ-P NIL :PARAMETERS-SETQD NIL
; :METHOD-CELL # ...)
; (DECLARE #)
; (LOCALLY # #)))))
;
; note: Type assertion too complex to check:
; (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) UNSIGNED-BYTE
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) (UNSIGNED-BYTE 16) &REST T).
; It allows an unknown number of values, consider using
; (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) UNSIGNED-BYTE
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) (UNSIGNED-BYTE 16) &OPTIONAL).
; processing (DEFMETHOD GET-LOCAL-NAME ...)
; processing (DEFMETHOD GET-PEER-NAME ...)
; processing (DEFMETHOD GET-LOCAL-ADDRESS ...)
; processing (DEFMETHOD GET-PEER-ADDRESS ...)
; processing (DEFMETHOD GET-LOCAL-PORT ...)
; processing (DEFMETHOD GET-PEER-PORT ...)
; processing (DEFUN GET-HOST-BY-ADDRESS ...)
; processing (PROGN (DEFUN %SETUP-WAIT-LIST ...) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/usocket/backend/sbcl-tmp7GPJW3WR.fasl
; compilation finished in 0:00:02.380
; compiling file "/usr/share/common-lisp/source/usocket/option.lisp" (written 23 DEC 2019 01:05:56 PM):
; processing (IN-PACKAGE :USOCKET)
; processing (DEFPARAMETER *BACKEND* ...)
; processing (DEFGENERIC SOCKET-OPTION ...)
; processing (DEFGENERIC (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD SOCKET-OPTION ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (DEFMETHOD (SETF SOCKET-OPTION) ...)
; processing (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/usocket/option-tmpESZVJLGB.fasl
; compilation finished in 0:00:00.705
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/package.lisp" (written 28 MAR 2022 12:23:33 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE :CL+SSL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/package-tmp861VENRV.fasl
; compilation finished in 0:00:00.015
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/reload.lisp" (written 18 MAY 2022 11:37:23 PM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFUN DETECT-MACOS-CUSTOM-OPENSSL-INSTALLATIONS ...)
; processing (DEFUN DETECT-CUSTOM-OPENSSL-INSTALLATIONS-IF-MACOS ...)
; processing (DETECT-CUSTOM-OPENSSL-INSTALLATIONS-IF-MACOS)
; processing (UNLESS CL+SSL/CONFIG::*LIBCRYPTO-OVERRIDE* ...)
; processing (UNLESS CL+SSL/CONFIG::*LIBSSL-OVERRIDE* ...)
; processing (UNLESS (MEMBER :CL+SSL-FOREIGN-LIBS-ALREADY-LOADED ...) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/reload-tmp7MX18LSW.fasl
; compilation finished in 0:00:00.075
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/conditions.lisp" (written 28 MAR 2022 12:23:33 AM):
; processing (IN-PACKAGE :CL+SSL)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DEFUN READ-SSL-ERROR-QUEUE ...)
; processing (DEFUN FORMAT-SSL-ERROR-QUEUE ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/conditions.lisp
; in: DEFUN FORMAT-SSL-ERROR-QUEUE
; 'CL+SSL::SSL-ERROR
;
; note: can't open-code test of unknown type SSL-ERROR
; (ETYPECASE CL+SSL::QUEUE-DESIGNATOR
; (CL+SSL::SSL-ERROR (CL+SSL::SSL-ERROR-QUEUE CL+SSL::QUEUE-DESIGNATOR))
; (LIST CL+SSL::QUEUE-DESIGNATOR))
; --> COND IF
; ==>
; (TYPEP #:G2 'CL+SSL::SSL-ERROR)
;
; note: can't open-code test of unknown type SSL-ERROR
; processing (DEFINE-CONDITION CL+SSL-ERROR ...)
; processing (DEFINE-CONDITION SSL-ERROR ...)
; processing (DEFINE-CONDITION SSL-ERROR/HANDLE ...)
; processing (DEFINE-CONDITION SSL-ERROR-INITIALIZE ...)
; processing (DEFINE-CONDITION SSL-ERROR-WANT-SOMETHING ...)
; processing (DEFINE-CONDITION SSL-ERROR-NONE ...)
; processing (DEFINE-CONDITION SSL-ERROR-ZERO-RETURN ...)
; processing (DEFINE-CONDITION SSL-ERROR-WANT-READ ...)
; processing (DEFINE-CONDITION SSL-ERROR-WANT-WRITE ...)
; processing (DEFINE-CONDITION SSL-ERROR-WANT-CONNECT ...)
; processing (DEFINE-CONDITION SSL-ERROR-WANT-X509-LOOKUP ...)
; processing (DEFINE-CONDITION SSL-ERROR-SYSCALL ...)
; processing (DEFINE-CONDITION SSL-ERROR-SSL ...)
; processing (DEFUN SSL-SIGNAL-ERROR ...)
; processing (DEFPARAMETER *SSL-VERIFY-ERROR-ALIST* ...)
; processing (DEFUN SSL-VERIFY-ERROR-KEYWORD ...)
; processing (DEFUN SSL-VERIFY-ERROR-CODE ...)
; processing (DEFINE-CONDITION SSL-ERROR-VERIFY ...)
; processing (DEFINE-CONDITION SSL-ERROR-CALL ...)
; processing (DEFINE-CONDITION ASN1-ERROR ...)
; processing (DEFINE-CONDITION INVALID-ASN1-STRING ...)
; processing (DEFINE-CONDITION SERVER-CERTIFICATE-MISSING ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/conditions-tmp4CP5SEFX.fasl
; compilation finished in 0:00:00.645
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/ffi.lisp" (written 18 MAY 2022 11:37:23 PM):
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL) ...)
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFPARAMETER *LATE-BOUND-FOREIGN-FUNCTION-POINTERS* ...)
; processing (DEFMACRO DEFCFUN-LATE-BOUND ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFMACRO DEFCFUN-LATE-BOUND
; (LENGTH CL+SSL::NAME-AND-OPTIONS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; processing (DEFMACRO DEFCFUN-VERSIONED ...)
; processing (DEFVAR *CL+SSL-SSL-FOREIGN-FUNCTION-NAMES* ...)
; processing (DEFVAR *CL+SSL-CRYPTO-FOREIGN-FUNCTION-NAMES* ...)
; processing (DEFMACRO DEFINE-SSL-FUNCTION-EX ...)
; processing (DEFMACRO DEFINE-SSL-FUNCTION ...)
; processing (DEFMACRO DEFINE-CRYPTO-FUNCTION-EX ...)
; processing (DEFMACRO DEFINE-CRYPTO-FUNCTION ...)
; processing (DEFVAR *SSL-GLOBAL-CONTEXT* ...)
; processing (DEFVAR *SSL-GLOBAL-METHOD* ...)
; processing (DEFVAR *BIO-IS-OPAQUE* ...)
; processing (DEFVAR *LISP-BIO-TYPE*)
; processing (DEFVAR *BIO-LISP-METHOD* ...)
; processing (DEFPARAMETER *BLOCKP* ...)
; processing (DEFPARAMETER *PARTIAL-READ-P* ...)
; processing (DEFUN SSL-INITIALIZED-P ...)
; processing (DEFCONSTANT +SSL-FILETYPE-PEM+ ...)
; processing (DEFCONSTANT +SSL-FILETYPE-ASN1+ ...)
; processing (DEFCONSTANT +SSL-FILETYPE-DEFAULT+ ...)
; processing (DEFCONSTANT +SSL-CTRL-OPTIONS+ ...)
; processing (DEFCONSTANT +SSL_CTRL_SET_SESS_CACHE_MODE+ ...)
; processing (DEFCONSTANT +SSL_CTRL_MODE+ ...)
; processing (DEFCONSTANT +SSL_MODE_ACCEPT_MOVING_WRITE_BUFFER+ ...)
; processing (DEFCONSTANT +RSA_F4+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-OFF+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-CLIENT+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-SERVER+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-BOTH+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-NO-AUTO-CLEAR+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-NO-INTERNAL-LOOKUP+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-NO-INTERNAL-STORE+ ...)
; processing (DEFCONSTANT +SSL-SESS-CACHE-NO-INTERNAL+ ...)
; processing (DEFCONSTANT +SSL-VERIFY-NONE+ ...)
; processing (DEFCONSTANT +SSL-VERIFY-PEER+ ...)
; processing (DEFCONSTANT +SSL-VERIFY-FAIL-IF-NO-PEER-CERT+ ...)
; processing (DEFCONSTANT +SSL-VERIFY-CLIENT-ONCE+ ...)
; processing (DEFCONSTANT +SSL-OP-ALL+ ...)
; processing (DEFCONSTANT +SSL-OP-NO-SSLV2+ ...)
; processing (DEFCONSTANT +SSL-OP-NO-SSLV3+ ...)
; processing (DEFCONSTANT +SSL-OP-NO-TLSV1+ ...)
; processing (DEFCONSTANT +SSL-OP-NO-TLSV1-2+ ...)
; processing (DEFCONSTANT +SSL-OP-NO-TLSV1-1+ ...)
; processing (DEFCONSTANT +SSL-CTRL-SET-MIN-PROTO-VERSION+ ...)
; processing (DEFCONSTANT +SSL-CTRL-SET-MAX-PROTO-VERSION+ ...)
; processing (DEFCONSTANT +SSL3-VERSION+ ...)
; processing (DEFCONSTANT +TLS1-VERSION+ ...)
; processing (DEFCONSTANT +TLS1-1-VERSION+ ...)
; processing (DEFCONSTANT +TLS1-2-VERSION+ ...)
; processing (DEFCONSTANT +TLS1-3-VERSION+ ...)
; processing (DEFCONSTANT +DTLS1-VERSION+ ...)
; processing (DEFCONSTANT +DTLS1-2-VERSION+ ...)
; processing (DEFVAR *TMP-RSA-KEY-512* ...)
; processing (DEFVAR *TMP-RSA-KEY-1024* ...)
; processing (DEFVAR *TMP-RSA-KEY-2048* ...)
; processing (DEFMACRO WHILE ...)
; processing (CFFI:DEFCFUN ("close" CLOSE-SOCKET) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: CFFI:DEFCFUN ("close" CLOSE-SOCKET)
; (CFFI:DEFCFUN ("close" CL+SSL::CLOSE-SOCKET)
; :INT
; (CL+SSL::SOCKET :INT))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::CLOSE-SOCKET
; (CL+SSL::SOCKET)
; (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
; (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
; (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))
; "Builds a version number to compare OpenSSL against.
; Note: the _really_ old formats (<= 0.9.4) are not supported."
; (DECLARE (TYPE (INTEGER 0 3) CL+SSL::MAJOR)
; (TYPE (INTEGER 0 10) CL+SSL::MINOR)
; (TYPE (INTEGER 0 20) CL+SSL::PATCH))
; (BLOCK CL+SSL::ENCODE-OPENSSL-VERSION
; (LOGIOR (ASH CL+SSL::MAJOR 28) (ASH CL+SSL::MINOR 20)
; (ASH CL+SSL::PATCH 4)
; (IF CL+SSL::PRERELEASE
; 15
; 0))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFUN OPENSSL-IS-AT-LEAST ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN OPENSSL-IS-AT-LEAST
; (>= (CL+SSL::COMPAT-OPENSSL-VERSION)
; (CL+SSL::ENCODE-OPENSSL-VERSION CL+SSL::MAJOR CL+SSL::MINOR CL+SSL::PATCH
; CL+SSL::PRERELEASE))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL * 815792463)
; (SINGLE-FLOAT * 8.1579245e8)
; (DOUBLE-FLOAT * 8.15792463d8)), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; The second argument is a (MOD 815792464), not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFUN OPENSSL-IS-NOT-EVEN ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN OPENSSL-IS-NOT-EVEN
; (< (CL+SSL::COMPAT-OPENSSL-VERSION)
; (CL+SSL::ENCODE-OPENSSL-VERSION CL+SSL::MAJOR CL+SSL::MINOR CL+SSL::PATCH
; CL+SSL::PRERELEASE))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; The second argument is a (MOD 815792464), not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFUN LIBRESSLP ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN LIBRESSLP
; (= 536870912 (CL+SSL::COMPAT-OPENSSL-VERSION))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; processing (DEFINE-SSL-FUNCTION ("SSL_get_version" SSL-GET-VERSION) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_get_version" SSL-GET-VERSION)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_get_version" CL+SSL::SSL-GET-VERSION)
; :STRING
; (CL+SSL::SSL CL+SSL::SSL-POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET
; ==>
; (CFFI:TRANSLATE-FROM-FOREIGN
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_version" (:POINTER #:G0 :POINTER)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBSSL)
; #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
;
; note: doing SAP to pointer coercion (cost 20)
; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)
; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:VANISHED "1.1.0")
; ("SSL_library_init" CL+SSL::SSL-LIBRARY-INIT)
; :INT)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-LIBRARY-INIT
; NIL
; (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
; (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
; (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
; (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
; (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
; (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
; (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
; (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
; (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
; (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
; (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
; (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
; (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
; (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
; (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
; (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
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (BLOCK CL+SSL::SSL-ACCEPT
; (LET ((#:G160 CL+SSL::SSL))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_accept" (:POINTER #:G160 :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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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
; (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) ...)
; 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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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
; (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)
; (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)
; (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)
; (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)
; (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)
; (BLOCK CL+SSL::X509-NAME-ONELINE
; (LET ((#:G128 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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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)
; (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 (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; etc.
; (LOGTEST CL+SSL::MODE CL+SSL::+CRYPTO-UNLOCK+)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFVAR *THREADS* ...)
; processing (DEFVAR *THREAD-COUNTER* ...)
; processing (DEFPARAMETER *GLOBAL-LOCK* ...)
; processing (CFFI:DEFCALLBACK THREADID-CALLBACK ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: CFFI:DEFCALLBACK THREADID-CALLBACK
; (INCF CL+SSL::*THREAD-COUNTER*)
; --> 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.2.9.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/ffi-tmpZ7L7FP0S.fasl
; compilation finished in 0:00:04.815
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/ffi-buffer-all-tmpGCPRU2E.fasl
; compilation finished in 0:00:00.015
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/ffi-buffer-tmpTYRYY2X9.fasl
; compilation finished in 0:00:00.155
; 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 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.
; (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).
; (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.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL 0) (SINGLE-FLOAT 0.0)
; (DOUBLE-FLOAT 0.0d0)), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (< CL+SSL::START CL+SSL::END)
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; etc.
; (- CL+SSL::END CL+SSL::START)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
; (MIN (- 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 REAL, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; etc.
; (PLUSP LENGTH)
;
; 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::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::BUFFER-LENGTH CL+SSL::BUF)
; --> BLOCK
; ==>
; (LENGTH CL+SSL::BUF)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (- CL+SSL::END CL+SSL::START)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &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)
; (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.2.9.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/streams-tmpOMAPSGL7.fasl
; compilation finished in 0:00:02.575
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/bio-tmpB76HJA0J.fasl
; compilation finished in 0:00:01.110
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/x509-tmp7QTM681J.fasl
; compilation finished in 0:00:01.010
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/random-tmpLGH8FB0W.fasl
; compilation finished in 0:00:00.135
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/context-tmpDGQGGEC4.fasl
; compilation finished in 0:00:00.336
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/verify-hostname-tmp6X5OKNPG.fasl
; compilation finished in 0:00:00.225
; 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 2039 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.2.9.debian-linux-arm/usr/share/common-lisp/source/iterate/package-tmpABKNHGCI.fasl
; compilation finished in 0:00:00.060
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/iterate/iterate-tmpDGT3OQUT.fasl
; compilation finished in 0:00:11.250
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/garbage-pools/garbage-pools-tmpNF26V1SW.fasl
; compilation finished in 0:00:00.215
; 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)
; --> BLOCK 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)
; --> BLOCK 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.2.9.debian-linux-arm/usr/share/common-lisp/source/parse-number/parse-number-tmp2SBNA8NV.fasl
; compilation finished in 0:00:01.520
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/mssql/src/packages-tmpGXTLRZRR.fasl
; compilation finished in 0:00:00.010
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/mssql/src/mssql-tmp2OV9B8J5.fasl
; compilation finished in 0:00:00.460
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/mssql/src/connection-tmpDWRCTFSG.fasl
; compilation finished in 0:00:00.540
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/mssql/src/query-tmpUJ89U641.fasl
; compilation finished in 0:00:00.745
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.2.9.debian-linux-arm/usr/share/common-lisp/source/mssql/src/execute-tmpJAPE3FUS.fasl
; compilation finished in 0:00:00.135
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/mssql/src/remote-tmp1V7T6W0W.fasl
; compilation finished in 0:00:00.195
;
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-log/pkg-tmp952LXWTD.fasl
; compilation finished in 0:00:00.020
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/cl-log/cl-log-tmpLVFWNUU9.fasl
; compilation finished in 0:00:02.090
; 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 (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 (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 (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 (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 (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 (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)
; "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 ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN MD5REGS-DIGEST
; (+ MD5::OFFSET 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.
; (+ MD5::OFFSET 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.
; (+ MD5::OFFSET 3)
;
; 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.
; (+ MD5::OFFSET 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.
; (+ MD5::OFFSET 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.
; (+ MD5::OFFSET 3)
;
; 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.
; 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 AND IF LOCALLY AND THE >=
; ==>
; 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 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:FILL-BLOCK-UB8 BLOCK SEQUENCE 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
; (+ (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)
; --> 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)
; (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
; (DEFUN MD5:FINALIZE-MD5-STATE (MD5::STATE)
; #<(SIMPLE-ARRAY CHARACTER
; (391)) If the given md5-state has not already been finalized, finalize it,
; by processing any remaining input in its buffer, with suitable padding
; and appended bit-length, as specified by the MD5 standard.
;
; T... {5435C007}>
; (DECLARE (TYPE MD5:MD5-STATE MD5::STATE)
; (OPTIMIZE (SPEED 3) (SAFETY 1) (SPACE 0) (DEBUG 1)))
; (LOCALLY
; (DECLARE (OPTIMIZE (SAFETY 0) (DEBUG 0)))
; (OR (MD5::MD5-STATE-FINALIZED-P MD5::STATE)
; (LET (# # # # #)
; (DECLARE #
; #
; #
; #)
; (SETF #)
; (LOOP MD5::FOR MD5::INDEX MD5::OF-TYPE # MD5::FROM # MD5::BELOW 64
; DO #)
; (MD5:FILL-BLOCK-UB8 BLOCK MD5::BUFFER 0)
; (WHEN # # #)
; (SETF #)
; (SETF #)
; (MD5:UPDATE-MD5-BLOCK MD5::REGS BLOCK)
; (SETF #)))))
; --> SB-INT:NAMED-DS-BIND SB-INT:BINDING* LET* BLOCK LET SB-INT:QUASIQUOTE
; --> SB-IMPL::|List| SB-IMPL::|List| SB-IMPL::|List|
; ==>
; (+ MD5::OFFSET 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.
; ==>
; (+ MD5::OFFSET 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.
; ==>
; (+ MD5::OFFSET 3)
;
; 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.
; ==>
; (+ MD5::OFFSET 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.
; ==>
; (+ MD5::OFFSET 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.
; ==>
; (+ MD5::OFFSET 3)
;
; 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.
; 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
; (* 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 2) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LDB (BYTE 32 32) MD5::TOTAL-LENGTH)
;
; 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 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES
; (SIGNED-BYTE 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (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.2.9.debian-linux-arm/usr/share/common-lisp/source/md5/md5-tmpDKBKLORG.fasl
; compilation finished in 0:00:03.710
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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/package-tmpMO2T7PGC.fasl
; compilation finished in 0:00:00.115
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/conditions-tmp5EVOKXWI.fasl
; compilation finished in 0:00:00.880
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/generic-tmp7EN5VFOC.fasl
; compilation finished in 0:00:00.190
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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/macro-utils-tmpWA664A3J.fasl
; compilation finished in 0:00:00.215
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/util-tmp3CS3QORN.fasl
; compilation finished in 0:00:00.665
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/opt/sbcl/fndb-tmpD6CVA6PG.fasl
; compilation finished in 0:00:00.015
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/opt/sbcl/x86oid-vm-tmpJTJ7UKVB.fasl
; compilation finished in 0:00:00.040
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/opt/sbcl/cpu-features-tmpI3M10D0B.fasl
; compilation finished in 0:00:00.010
; 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))
; (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))
; (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))
; (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))
; (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))
; (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))
; (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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/common-tmpMQ8L07M8.fasl
; compilation finished in 0:00:01.660
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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/cipher-tmp9HFLKKLP.fasl
; compilation finished in 0:00:01.185
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/padding-tmpEHVBI5QP.fasl
; compilation finished in 0:00:00.430
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/make-cipher-tmp7ACGYN6Z.fasl
; compilation finished in 0:00:00.715
; 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).
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET 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 MAKE-ARRAY
; ==>
; 1
;
; note: could not stack allocate: (DEFINE-MODE-FUNCTION MODE-CRYPT 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: 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).
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET 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 MAKE-ARRAY
; ==>
; 1
;
; note: could not stack allocate: (DEFINE-MODE-FUNCTION MODE-CRYPT 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
; ==>
; (- 64
; (IRONCLAD::COUNT-PADDING-BYTES IRONCLAD::PADDING IRONCLAD::TEMP-BLOCK 0
; 64))
;
; 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).
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET 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 MAKE-ARRAY
; ==>
; 1
;
; note: could not stack allocate: (DEFINE-MODE-FUNCTION MODE-CRYPT 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
; ==>
; (- 32
; (IRONCLAD::COUNT-PADDING-BYTES IRONCLAD::PADDING IRONCLAD::TEMP-BLOCK 0
; 32))
;
; 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).
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET 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 MAKE-ARRAY
; ==>
; 1
;
; note: could not stack allocate: (DEFINE-MODE-FUNCTION MODE-CRYPT 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
; ==>
; (- 16
; (IRONCLAD::COUNT-PADDING-BYTES IRONCLAD::PADDING IRONCLAD::TEMP-BLOCK 0
; 16))
;
; 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).
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET 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 MAKE-ARRAY
; ==>
; 1
;
; note: could not stack allocate: (DEFINE-MODE-FUNCTION MODE-CRYPT 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
; ==>
; (- 8
; (IRONCLAD::COUNT-PADDING-BYTES IRONCLAD::PADDING IRONCLAD::TEMP-BLOCK 0 8))
;
; 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).
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET 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 MAKE-ARRAY
; ==>
; 1
;
; note: could not stack allocate: (DEFINE-MODE-FUNCTION MODE-CRYPT 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: 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).
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET 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 MAKE-ARRAY
; ==>
; 1
;
; note: could not stack allocate: (DEFINE-MODE-FUNCTION MODE-CRYPT 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
; ==>
; (- 64
; (IRONCLAD::COUNT-PADDING-BYTES IRONCLAD::PADDING IRONCLAD::TEMP-BLOCK 0
; 64))
;
; 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).
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET 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 MAKE-ARRAY
; ==>
; 1
;
; note: could not stack allocate: (DEFINE-MODE-FUNCTION MODE-CRYPT 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
; ==>
; (- 32
; (IRONCLAD::COUNT-PADDING-BYTES IRONCLAD::PADDING IRONCLAD::TEMP-BLOCK 0
; 32))
;
; 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).
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET 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 MAKE-ARRAY
; ==>
; 1
;
; note: could not stack allocate: (DEFINE-MODE-FUNCTION MODE-CRYPT 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
; ==>
; (- 16
; (IRONCLAD::COUNT-PADDING-BYTES IRONCLAD::PADDING IRONCLAD::TEMP-BLOCK 0
; 16))
;
; 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).
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-MACROLET 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 MAKE-ARRAY
; ==>
; 1
;
; note: could not stack allocate: (DEFINE-MODE-FUNCTION MODE-CRYPT 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
; ==>
; (- 8
; (IRONCLAD::COUNT-PADDING-BYTES IRONCLAD::PADDING IRONCLAD::TEMP-BLOCK 0 8))
;
; 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 MAKE-ARRAY
; ==>
; 1
;
; note: could not stack allocate: (DEFINE-MODE-FUNCTION MODE-CRYPT MESSAGE-LENGTH)
;
; note: could not stack allocate: (DEFINE-MODE-FUNCTION MODE-CRYPT MESSAGE-LENGTH)
;
; note: could not stack allocate: (DEFINE-MODE-FUNCTION MODE-CRYPT MESSAGE-LENGTH)
;
; note: could not stack allocate: (DEFINE-MODE-FUNCTION MODE-CRYPT MESSAGE-LENGTH)
;
; note: could not stack allocate: (DEFINE-MODE-FUNCTION MODE-CRYPT 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 FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK
; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND LET PROGN
; --> UNLESS IF AND IF LOCALLY AND THE >=
; ==>
; 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 AND IF LOCALLY AND THE >=
; ==>
; 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 AND IF LOCALLY AND THE >=
; ==>
; 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 AND IF LOCALLY AND THE >=
; ==>
; 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 AND IF LOCALLY AND THE >=
; ==>
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/modes-tmpROQG4ZG5.fasl
; compilation finished in 0:00:10.361
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 ...)
; file: /usr/share/common-lisp/source/ironclad/src/digests/digest.lisp
; in: DEFUN UPDATE-DIGEST-FROM-STREAM
; (MAKE-ARRAY IRONCLAD::+BUFFER-SIZE+ :ELEMENT-TYPE '(UNSIGNED-BYTE 8))
;
; note: could not stack allocate:
; (MAKE-ARRAY +BUFFER-SIZE+ :ELEMENT-TYPE '(UNSIGNED-BYTE 8))
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/digest-tmpL8QH2EDP.fasl
; compilation finished in 0:00:01.720
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/macs/mac-tmpGMP33JVN.fasl
; compilation finished in 0:00:00.155
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/prng/prng-tmpYZLZO5XO.fasl
; compilation finished in 0:00:00.410
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/prng/os-prng-tmpHJEGXRNO.fasl
; compilation finished in 0:00:00.115
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 SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; 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.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (* 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.
; (FLOOR IRONCLAD::D IRONCLAD::C)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; 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.
; (* 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The second argument is a REAL, not a (SIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The second argument is a NUMBER, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The second argument is a NUMBER, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (EVENP IRONCLAD::B)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (UNSIGNED-BYTE
; 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (LOGAND IRONCLAD::A 7)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (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 inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (LOGAND IRONCLAD::B 7)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (LOGAND IRONCLAD::A IRONCLAD::B 2)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #2#), not a (VALUES (SIGNED-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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a UNSIGNED-BYTE, 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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #2#), not a (VALUES (SIGNED-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 SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; 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.
;
; 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.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (* 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 SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; 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.
;
; 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.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (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
; (SIGNED-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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a NUMBER, not a (SIGNED-BYTE 32).
; The second argument is a NUMBER, not a (SIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 32) . #1#).
; etc.
; (MOD (* IRONCLAD::B IRONCLAD::B) IRONCLAD::M)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; 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::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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a NUMBER, not a (SIGNED-BYTE 32).
; The second argument is a REAL, not a (SIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 32) . #1#).
; etc.
; (MOD (* IRONCLAD::BI IRONCLAD::BB) IRONCLAD::M)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; 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.
; 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
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL 0)), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL 0)), not a RATIONAL.
; The second argument is a (OR (RATIONAL * (0)) (SINGLE-FLOAT * (0.0))
; (DOUBLE-FLOAT * (0.0d0))), not a FLOAT.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL 0)), not a FLOAT.
; The second argument is a (OR (RATIONAL * (0)) (SINGLE-FLOAT * (0.0))
; (DOUBLE-FLOAT * (0.0d0))), not a RATIONAL.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL 0)), not a SINGLE-FLOAT.
; The second argument is a (OR (RATIONAL * (0)) (SINGLE-FLOAT * (0.0))
; (DOUBLE-FLOAT * (0.0d0))), not a DOUBLE-FLOAT.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL 0)), not a DOUBLE-FLOAT.
; The second argument is a (OR (RATIONAL * (0)) (SINGLE-FLOAT * (0.0))
; (DOUBLE-FLOAT * (0.0d0))), 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.
; (* 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 SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; 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.
;
; 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.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a 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 SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; 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.
;
; 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.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (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 SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; 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.
;
; 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.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (* 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 (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.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 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.0)), not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL 0)), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL 0)), not a RATIONAL.
; The second argument is a (OR (RATIONAL * (0)) (SINGLE-FLOAT * (0.0))
; (DOUBLE-FLOAT * (0.0d0))), not a FLOAT.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL 0)), not a FLOAT.
; The second argument is a (OR (RATIONAL * (0)) (SINGLE-FLOAT * (0.0))
; (DOUBLE-FLOAT * (0.0d0))), not a RATIONAL.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL 0)), not a SINGLE-FLOAT.
; The second argument is a (OR (RATIONAL * (0)) (SINGLE-FLOAT * (0.0))
; (DOUBLE-FLOAT * (0.0d0))), not a DOUBLE-FLOAT.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL 0)), not a DOUBLE-FLOAT.
; The second argument is a (OR (RATIONAL * (0)) (SINGLE-FLOAT * (0.0))
; (DOUBLE-FLOAT * (0.0d0))), 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.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.0)), not a FLOAT.
; (* 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 (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.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 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.0)), not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL 0)), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL 0)), not a RATIONAL.
; The second argument is a (OR (RATIONAL * (0)) (SINGLE-FLOAT * (0.0))
; (DOUBLE-FLOAT * (0.0d0))), not a FLOAT.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL 0)), not a FLOAT.
; The second argument is a (OR (RATIONAL * (0)) (SINGLE-FLOAT * (0.0))
; (DOUBLE-FLOAT * (0.0d0))), not a RATIONAL.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL 0)), not a SINGLE-FLOAT.
; The second argument is a (OR (RATIONAL * (0)) (SINGLE-FLOAT * (0.0))
; (DOUBLE-FLOAT * (0.0d0))), not a DOUBLE-FLOAT.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL 0)), not a DOUBLE-FLOAT.
; The second argument is a (OR (RATIONAL * (0)) (SINGLE-FLOAT * (0.0))
; (DOUBLE-FLOAT * (0.0d0))), 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.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.0)), not a FLOAT.
; (MOD 1 IRONCLAD::M)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR FLOAT (RATIONAL 0)), not a FIXNUM.
; The second argument is a (OR (RATIONAL * #1=(0))
; (SINGLE-FLOAT * #2=(0.0))
; (DOUBLE-FLOAT * #3=(0.0d0))), not a FIXNUM.
; The result is a (VALUES REAL . #4=(&OPTIONAL)), not a (VALUES FIXNUM
; . #4#).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a (OR FLOAT (RATIONAL 0)), not a SINGLE-FLOAT.
; The second argument is a (OR (RATIONAL * #1#) (SINGLE-FLOAT * #2#)
; (DOUBLE-FLOAT * #3#)), not a SINGLE-FLOAT.
; The result is a (VALUES REAL . #4#), not a (VALUES SINGLE-FLOAT . #4#).
; etc.
; (< IRONCLAD::I 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a (INTEGER -1), not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a (INTEGER -1), not a FIXNUM.
; 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.
; (MAX (1+ (- IRONCLAD::I IRONCLAD::K)) 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a (INTEGER -6), not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a (INTEGER -6), not a FIXNUM.
; 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 (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.0))
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a REAL, not a (SIGNED-BYTE 32).
; The second argument is a REAL, not a (SIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.0))
; . #1#), not a (VALUES (SIGNED-BYTE 32) . #1#).
; etc.
; (MOD (* IRONCLAD::RES IRONCLAD::RES) IRONCLAD::M)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a (OR (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.0)), not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a (OR (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.0)), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR FLOAT (RATIONAL 0)), not a FIXNUM.
; The second argument is a (OR (RATIONAL * #1=(0))
; (SINGLE-FLOAT * #2=(0.0))
; (DOUBLE-FLOAT * #3=(0.0d0))), not a FIXNUM.
; The result is a (VALUES REAL . #4=(&OPTIONAL)), not a (VALUES FIXNUM
; . #4#).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a (OR FLOAT (RATIONAL 0)), not a SINGLE-FLOAT.
; The second argument is a (OR (RATIONAL * #1#) (SINGLE-FLOAT * #2#)
; (DOUBLE-FLOAT * #3#)), not a SINGLE-FLOAT.
; The result is a (VALUES REAL . #4#), not a (VALUES SINGLE-FLOAT . #4#).
; 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 (SIGNED-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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a REAL, not a (SIGNED-BYTE 32).
; The second argument is a NUMBER, not a (SIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 32) . #1#).
; etc.
; (MOD (* IRONCLAD::RES (SVREF IRONCLAD::TAB (ASH IRONCLAD::U -1))) IRONCLAD::M)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; 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.
; (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::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 (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.0))
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a REAL, not a (SIGNED-BYTE 32).
; The second argument is a REAL, not a (SIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.0))
; . #1#), not a (VALUES (SIGNED-BYTE 32) . #1#).
; etc.
; (MOD (* IRONCLAD::RES IRONCLAD::RES) IRONCLAD::M)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a (OR (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.0)), not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a (OR (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.0)), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR FLOAT (RATIONAL 0)), not a FIXNUM.
; The second argument is a (OR (RATIONAL * #1=(0))
; (SINGLE-FLOAT * #2=(0.0))
; (DOUBLE-FLOAT * #3=(0.0d0))), not a FIXNUM.
; The result is a (VALUES REAL . #4=(&OPTIONAL)), not a (VALUES FIXNUM
; . #4#).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a (OR FLOAT (RATIONAL 0)), not a SINGLE-FLOAT.
; The second argument is a (OR (RATIONAL * #1#) (SINGLE-FLOAT * #2#)
; (DOUBLE-FLOAT * #3#)), not a SINGLE-FLOAT.
; The result is a (VALUES REAL . #4#), not a (VALUES SINGLE-FLOAT . #4#).
; 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::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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a REAL, not a (SIGNED-BYTE 32).
; The second argument is a NUMBER, not a (SIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 32) . #1#).
; etc.
; (MOD (* IRONCLAD::RES IRONCLAD::B) IRONCLAD::M)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; 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.
; (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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #2#), not a (VALUES (SIGNED-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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a NUMBER, not a (SIGNED-BYTE 32).
; The second argument is a NUMBER, not a (SIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 32) . #1#).
; etc.
; (MOD (* IRONCLAD::B IRONCLAD::B) IRONCLAD::M)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; 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.
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #2#), not a (VALUES (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #2#), not a (VALUES (SIGNED-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 SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT 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 SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; 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.
;
; 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.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (MOD (1- (* IRONCLAD::UH IRONCLAD::VL)) 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.
;
; 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.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (* 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 SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT 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 (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.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 (SINGLE-FLOAT -2.0) (DOUBLE-FLOAT -2.0d0)
; (RATIONAL -2)), 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 -2.0) (DOUBLE-FLOAT -2.0d0)
; (RATIONAL -2)), not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; 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.
;
; 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.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT -2.0) (DOUBLE-FLOAT -2.0d0)
; (RATIONAL -2)), not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT -2.0) (DOUBLE-FLOAT -2.0d0)
; (RATIONAL -2)), not a FLOAT.
; (MOD (* IRONCLAD::UH IRONCLAD::VL) 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.
;
; 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.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (* 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 SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT 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 SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT 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 SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; 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.
;
; 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.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (MOD (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) 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.
;
; 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.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (MOD (* IRONCLAD::UH IRONCLAD::VH) 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.
;
; 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.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (* 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 SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT 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 SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT 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 (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.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 (SINGLE-FLOAT -2.0) (DOUBLE-FLOAT -2.0d0)
; (RATIONAL -2)), 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 -2.0) (DOUBLE-FLOAT -2.0d0)
; (RATIONAL -2)), not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; 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.
;
; 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.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT -2.0) (DOUBLE-FLOAT -2.0d0)
; (RATIONAL -2)), not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT -2.0) (DOUBLE-FLOAT -2.0d0)
; (RATIONAL -2)), not a FLOAT.
; (MOD (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) 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.
;
; 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.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (MOD (1- (* IRONCLAD::UH IRONCLAD::VL)) 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.
;
; 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.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (* 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a REAL, not a (SIGNED-BYTE 32).
; The second argument is a REAL, not a (SIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-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.
; (MOD (1- (* IRONCLAD::UH IRONCLAD::VL)) IRONCLAD::N)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; 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::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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a NUMBER, not a (SIGNED-BYTE 32).
; The second argument is a REAL, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-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.
; (MOD (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) IRONCLAD::N)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; 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::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 (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.0))
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a REAL, not a (SIGNED-BYTE 32).
; The second argument is a REAL, not a (SIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.0))
; . #1#), not a (VALUES (SIGNED-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 (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.0)), not a FIXNUM.
; The result is a (VALUES
; (OR (SINGLE-FLOAT -2.0) (DOUBLE-FLOAT -2.0d0)
; (RATIONAL -2))
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (OR (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.0)), not a FIXNUM.
; The result is a (VALUES
; (OR (SINGLE-FLOAT -2.0) (DOUBLE-FLOAT -2.0d0)
; (RATIONAL -2))
; . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (MOD (- (* IRONCLAD::VL IRONCLAD::VL) 2) IRONCLAD::N)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a (OR (SINGLE-FLOAT -2.0) (DOUBLE-FLOAT -2.0d0)
; (RATIONAL -2)), not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a (OR (SINGLE-FLOAT -2.0) (DOUBLE-FLOAT -2.0d0)
; (RATIONAL -2)), 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 (OR (SINGLE-FLOAT -2.0) (DOUBLE-FLOAT -2.0d0)
; (RATIONAL -2)), not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a (OR (SINGLE-FLOAT -2.0) (DOUBLE-FLOAT -2.0d0)
; (RATIONAL -2)), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The second argument is a 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::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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a REAL, not a (SIGNED-BYTE 32).
; The second argument is a NUMBER, not a (SIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 32) . #1#).
; etc.
; (MOD (* IRONCLAD::UH IRONCLAD::VH) IRONCLAD::N)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; 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::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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a NUMBER, not a (SIGNED-BYTE 32).
; The second argument is a REAL, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-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.
; (MOD (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) IRONCLAD::N)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; 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::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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a NUMBER, not a (SIGNED-BYTE 32).
; The second argument is a NUMBER, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-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.
; (MOD (- (* IRONCLAD::VH IRONCLAD::VH) 2) IRONCLAD::N)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; 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::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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a REAL, not a (SIGNED-BYTE 32).
; The second argument is a REAL, not a (SIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-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.
; (MOD (1- (* IRONCLAD::UH IRONCLAD::VL)) IRONCLAD::N)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; 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::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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a NUMBER, not a (SIGNED-BYTE 32).
; The second argument is a REAL, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-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.
; (MOD (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) IRONCLAD::N)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; 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.
; (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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a REAL, not a (SIGNED-BYTE 32).
; The second argument is a REAL, not a (SIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 32) . #1#).
; etc.
; (MOD (* IRONCLAD::UH IRONCLAD::VL) IRONCLAD::N)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; 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::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 (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.0))
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a REAL, not a (SIGNED-BYTE 32).
; The second argument is a REAL, not a (SIGNED-BYTE 32).
; The result is a (VALUES
; (OR (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.0))
; . #1#), not a (VALUES (SIGNED-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 (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.0)), not a FIXNUM.
; The result is a (VALUES
; (OR (SINGLE-FLOAT -2.0) (DOUBLE-FLOAT -2.0d0)
; (RATIONAL -2))
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (OR (RATIONAL 0) (DOUBLE-FLOAT 0.0d0)
; (SINGLE-FLOAT 0.0)), not a FIXNUM.
; The result is a (VALUES
; (OR (SINGLE-FLOAT -2.0) (DOUBLE-FLOAT -2.0d0)
; (RATIONAL -2))
; . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (MOD (- (* IRONCLAD::VL IRONCLAD::VL) 2) IRONCLAD::N)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a (OR (SINGLE-FLOAT -2.0) (DOUBLE-FLOAT -2.0d0)
; (RATIONAL -2)), not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a (OR (SINGLE-FLOAT -2.0) (DOUBLE-FLOAT -2.0d0)
; (RATIONAL -2)), 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 (OR (SINGLE-FLOAT -2.0) (DOUBLE-FLOAT -2.0d0)
; (RATIONAL -2)), not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a (OR (SINGLE-FLOAT -2.0) (DOUBLE-FLOAT -2.0d0)
; (RATIONAL -2)), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The second argument is a 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.
; (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 (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #2#), not a (VALUES (SIGNED-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
; (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).
;
; note: unable to
; associate +/(+ -) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (INTEGER 3), not a (SIGNED-BYTE 32).
; The second argument is a (INTEGER 3), not a (SIGNED-BYTE 32).
; The result is a (VALUES (INTEGER 9) . #1#), not a (VALUES
; (SIGNED-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 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.
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 32).
; etc.
; (EVENP IRONCLAD::MODULUS)
;
; 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.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 32).
; etc.
; (FLOOR IRONCLAD::R1 IRONCLAD::R2)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM.
; etc.
;
; 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 #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.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM.
; The second argument is a (OR (INTEGER * -1) (INTEGER 1)), not 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 (OR (INTEGER * -1) (INTEGER 1)), not a (UNSIGNED-BYTE
; 32).
; The second argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The second argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-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.
; (MOD IRONCLAD::INVERSE IRONCLAD::MODULUS)
;
; 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 (INTEGER 1), not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (signed-byte 32) arithmetic (cost 5) because:
; The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 32).
; The second argument is a (INTEGER 1), not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES
; (SIGNED-BYTE 32)
; . #1#).
; (* 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a (INTEGER 1), not a (SIGNED-BYTE 32).
; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES
; (SIGNED-BYTE 32)
; . #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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The second argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 32)
; . #1#).
; etc.
; (MOD (* IRONCLAD::N IRONCLAD::B) IRONCLAD::MODULUS)
;
; 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 (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM.
; The second argument is a (INTEGER 1), 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 (OR (INTEGER * -1) (INTEGER 1)), not a (UNSIGNED-BYTE
; 32).
; The second argument is a (INTEGER 1), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE . #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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The second argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 32)
; . #1#).
; etc.
; (MOD (* IRONCLAD::Y IRONCLAD::B) IRONCLAD::MODULUS)
;
; 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 (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM.
; The second argument is a (INTEGER 1), 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 (OR (INTEGER * -1) (INTEGER 1)), not a (UNSIGNED-BYTE
; 32).
; The second argument is a (INTEGER 1), 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 ...)
; 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 UNSIGNED-BYTE, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a UNSIGNED-BYTE, 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 INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The second argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 32)
; . #1#).
; etc.
; (MOD (* IRONCLAD::R0 IRONCLAD::R1) IRONCLAD::MODULUS)
;
; 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 (INTEGER * -1), not a FIXNUM.
; The second argument is a (INTEGER 2), not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (signed-byte 32) arithmetic (cost 5) because:
; The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 32).
; The second argument is a (INTEGER 2), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 32)
; . #1#).
; (* 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The second argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES
; (SIGNED-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 INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The second argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 32)
; . #1#).
; etc.
; (MOD (* IRONCLAD::R0 IRONCLAD::R1) IRONCLAD::MODULUS)
;
; 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 (INTEGER * -1), not a FIXNUM.
; The second argument is a (INTEGER 2), not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (signed-byte 32) arithmetic (cost 5) because:
; The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 32).
; The second argument is a (INTEGER 2), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 32)
; . #1#).
; (* IRONCLAD::R0 IRONCLAD::R0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 (signed-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The second argument is a INTEGER, not a (SIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES
; (SIGNED-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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (<= 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 CEILING
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; 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.
; --> 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/math-tmpLNAWKPET.fasl
; compilation finished in 0:00:04.040
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/octet-stream-tmpJAVYBOA5.fasl
; compilation finished in 0:00:03.090
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/aead/aead-tmp4JWQGV5Z.fasl
; compilation finished in 0:00:00.165
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/kdf/kdf-tmpPQD2HT0O.fasl
; compilation finished in 0:00:00.195
; 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 SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR FLOAT (RATIONAL (-8) (8))), not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (MIN (CEILING IRONCLAD::N-BITS 8) IRONCLAD::SIZE)
;
; note: unable to open code because: The operands might not be the same type.
; (CEILING IRONCLAD::N-BITS 8)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (* 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).
; (+ 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).
; (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).
; (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 >=
; ==>
; 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.
;
; note: unable to open code because: The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
; (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 >=
; ==>
; 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.
;
; note: unable to open code because: The operands might not be the same type.
; (- 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.
; (CEILING IRONCLAD::N-BITS 8)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a REAL, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a REAL, not a FIXNUM.
; etc.
;
; 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.
; (MIN (CEILING IRONCLAD::N-BITS 8) IRONCLAD::SIZE)
;
; 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 REAL, not 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 REAL, not a (UNSIGNED-BYTE 32).
; 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.
; (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 >=
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
;
; note: forced to do full call
; unable to do #1=inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; (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 #2=(INTEGER 0 0) (INTEGER 16 16)
; (INTEGER 32 32) (INTEGER 56) (INTEGER 48 48)
; (INTEGER 40 40) (INTEGER 24 24)
; (INTEGER 8 8)), 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 #2# (INTEGER 16 16) (INTEGER 32 32)
; (INTEGER 56) (INTEGER 48 48) (INTEGER 40 40)
; (INTEGER 24 24) (INTEGER 8 8)), not a (UNSIGNED-BYTE
; 29).
; The result is a (VALUES UNSIGNED-BYTE . #3#), not a (VALUES
; (SIGNED-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-3 (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 WHEN IF >=
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; 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 #2=(INTEGER 0 0) (INTEGER 16 16)
; (INTEGER 32 32) (INTEGER 56) (INTEGER 48 48)
; (INTEGER 40 40) (INTEGER 24 24) (INTEGER 8 8)), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER 16 16) (INTEGER 32 32) (INTEGER 56)
; (INTEGER 48 48) (INTEGER 40 40) (INTEGER 24 24)
; (INTEGER 8 8))
; . #3=(&OPTIONAL)), not a (VALUES FIXNUM . #3#).
; unable to do #1# (cost 2) because:
; The first argument is a (OR #2# (INTEGER 16 16) (INTEGER 32 32)
; (INTEGER 56) (INTEGER 48 48) (INTEGER 40 40)
; (INTEGER 24 24) (INTEGER 8 8)), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER 16 16) (INTEGER 32 32) (INTEGER 56)
; (INTEGER 48 48) (INTEGER 40 40) (INTEGER 24 24)
; (INTEGER 8 8))
; . #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.
; (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 >=
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
;
; note: forced to do full call
; unable to do #1=inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; (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 (* IRONCLAD::I 8)) BIGNUM)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The second argument is a (INTEGER -536870880 0), 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 first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The second argument is a (INTEGER -536870880 0), not a (UNSIGNED-BYTE 29).
; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES
; (SIGNED-BYTE 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (LDB (BYTE 8 BYTE) BIGNUM)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The second argument is a (OR (INTEGER -8 -8) (INTEGER -24 -24)
; (INTEGER -536870880 -48) (INTEGER -40 -40)
; (INTEGER -32 -32) (INTEGER -16 -16)
; #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 first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The second argument is a (OR (INTEGER -8 -8) (INTEGER -24 -24)
; (INTEGER -536870880 -48) (INTEGER -40 -40)
; (INTEGER -32 -32) (INTEGER -16 -16) #2#), not a (UNSIGNED-BYTE
; 29).
; The result is a (VALUES UNSIGNED-BYTE . #3#), not a (VALUES
; (SIGNED-BYTE 32)
; . #3#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DEFUN MAYBE-INTEGERIZE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/public-key/public-key-tmpH1FK4I19.fasl
; compilation finished in 0:00:00.675
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/public-key/pkcs1-tmpOGMGFZE8.fasl
; compilation finished in 0:00:00.795
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/public-key/elliptic-curve-tmpP2P3SY1J.fasl
; compilation finished in 0:00:00.035
; 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:
; MACROLET ((MIX (RK A0 A1 A2 A3 SYM0 SYM1 SYM2 SYM3)
; `(LOGXOR (AREF ,A0 (FOURTH-BYTE ,SYM0))
; (AREF ,A1 (THIRD-BYTE ,SYM1))
; (AREF ,A2 (SECOND-BYTE ,SYM2))
; (AREF ,A3 (FIRST-BYTE ,SYM3)) (RK-REF ,RK)))
; (MIX-S-INTO-T-ENCRYPTING (OFFSET)
; `(SETF T0 (MIX ,OFFSET TE0 TE1 TE2 TE3 S0 S1 S2 S3)
; T1 (MIX # TE0 TE1 TE2 TE3 S1 S2 S3 S0)
; T2 (MIX # TE0 TE1 TE2 TE3 S2 S3 S0 S1)
; T3 (MIX # TE0 TE1 TE2 TE3 S3 S0 S1 S2)))
; (MIX-T-INTO-S-ENCRYPTING (OFFSET)
; `(SETF S0 (MIX ,OFFSET TE0 TE1 TE2 TE3 T0 T1 T2 T3)
; S1 (MIX # TE0 TE1 TE2 TE3 T1 T2 T3 T0)
; S2 (MIX # TE0 TE1 TE2 TE3 T2 T3 T0 T1)
; S3 (MIX # TE0 TE1 TE2 TE3 T3 T0 T1 T2)))
; (MIX-S-INTO-T-DECRYPTING (OFFSET)
; `(SETF T0 (MIX ,OFFSET TD0 TD1 TD2 TD3 S0 S3 S2 S1)
; T1 (MIX # TD0 TD1 TD2 TD3 S1 S0 S3 S2)
; T2 (MIX # TD0 TD1 TD2 TD3 S2 S1 S0 S3)
; T3 (MIX # TD0 TD1 TD2 TD3 S3 S2 S1 S0)))
; (MIX-T-INTO-S-DECRYPTING (OFFSET)
; `(SETF S0 (MIX ,OFFSET TD0 TD1 TD2 TD3 T0 T3 T2 T1)
; S1 (MIX # TD0 TD1 TD2 TD3 T1 T0 T3 T2)
; S2 (MIX # TD0 TD1 TD2 TD3 T2 T1 T0 T3)
; S3 (MIX # TD0 TD1 TD2 TD3 T3 T2 T1 T0)))
; (RK-REF (X) `(AREF ROUND-KEYS (+ ,X ROUND-KEY-OFFSET))))
; (MACROLET ((IRONCLAD::MIX
; (IRONCLAD::RK IRONCLAD::A0 IRONCLAD::A1 IRONCLAD::A2
; IRONCLAD::A3 IRONCLAD::SYM0 IRONCLAD::SYM1 IRONCLAD::SYM2
; IRONCLAD::SYM3)
; `(LOGXOR (AREF ,IRONCLAD::A0 #) (AREF ,IRONCLAD::A1 #)
; (AREF ,IRONCLAD::A2 #) (AREF ,IRONCLAD::A3 #)
; (IRONCLAD::RK-REF ,IRONCLAD::RK)))
; (IRONCLAD::MIX-S-INTO-T-ENCRYPTING (IRONCLAD::OFFSET)
; `(SETF IRONCLAD::T0 #
; IRONCLAD::T1 #
; IRONCLAD::T2 #
; IRONCLAD::T3 #))
; (IRONCLAD::MIX-T-INTO-S-ENCRYPTING (IRONCLAD::OFFSET)
; `(SETF IRONCLAD::S0 #
; IRONCLAD::S1 #
; IRONCLAD::S2 #
; IRONCLAD::S3 #))
; (IRONCLAD::MIX-S-INTO-T-DECRYPTING (IRONCLAD::OFFSET)
; `(SETF IRONCLAD::T0 #
; IRONCLAD::T1 #
; IRONCLAD::T2 #
; IRONCLAD::T3 #))
; (IRONCLAD::MIX-T-INTO-S-DECRYPTING (IRONCLAD::OFFSET)
; `(SETF IRONCLAD::S0 #
; IRONCLAD::S1 #
; IRONCLAD::S2 #
; IRONCLAD::S3 #))
; (IRONCLAD::RK-REF (IRONCLAD::X)
; `(AREF IRONCLAD::ROUND-KEYS
; (+ ,IRONCLAD::X IRONCLAD::ROUND-KEY-OFFSET))))
; (IRONCLAD::DEFINE-BLOCK-ENCRYPTOR IRONCLAD:AES
; 16
; (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 #
; #))))
; (IRONCLAD::DEFINE-BLOCK-DECRYPTOR IRONCLAD:AES
; 16
; (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 #
; #)))))
; --> SB-INT:BINDING* LET* BLOCK LOOP BLOCK LET LET
; --> SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8) #2=(INTEGER 0 0)), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8))
; . #3=(&OPTIONAL)), not a (VALUES FIXNUM . #3#).
; unable to do #1# (cost 2) because:
; The first argument is a (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8) #2#), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8))
; . #3#), not a (VALUES FIXNUM . #3#).
; etc.
; 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 (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>"
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/aes.lisp
; in:
; MACROLET ((MIX (RK A0 A1 A2 A3 SYM0 SYM1 SYM2 SYM3)
; `(LOGXOR (AREF ,A0 (FOURTH-BYTE ,SYM0))
; (AREF ,A1 (THIRD-BYTE ,SYM1))
; (AREF ,A2 (SECOND-BYTE ,SYM2))
; (AREF ,A3 (FIRST-BYTE ,SYM3)) (RK-REF ,RK)))
; (MIX-S-INTO-T-ENCRYPTING (OFFSET)
; `(SETF T0 (MIX ,OFFSET TE0 TE1 TE2 TE3 S0 S1 S2 S3)
; T1 (MIX # TE0 TE1 TE2 TE3 S1 S2 S3 S0)
; T2 (MIX # TE0 TE1 TE2 TE3 S2 S3 S0 S1)
; T3 (MIX # TE0 TE1 TE2 TE3 S3 S0 S1 S2)))
; (MIX-T-INTO-S-ENCRYPTING (OFFSET)
; `(SETF S0 (MIX ,OFFSET TE0 TE1 TE2 TE3 T0 T1 T2 T3)
; S1 (MIX # TE0 TE1 TE2 TE3 T1 T2 T3 T0)
; S2 (MIX # TE0 TE1 TE2 TE3 T2 T3 T0 T1)
; S3 (MIX # TE0 TE1 TE2 TE3 T3 T0 T1 T2)))
; (MIX-S-INTO-T-DECRYPTING (OFFSET)
; `(SETF T0 (MIX ,OFFSET TD0 TD1 TD2 TD3 S0 S3 S2 S1)
; T1 (MIX # TD0 TD1 TD2 TD3 S1 S0 S3 S2)
; T2 (MIX # TD0 TD1 TD2 TD3 S2 S1 S0 S3)
; T3 (MIX # TD0 TD1 TD2 TD3 S3 S2 S1 S0)))
; (MIX-T-INTO-S-DECRYPTING (OFFSET)
; `(SETF S0 (MIX ,OFFSET TD0 TD1 TD2 TD3 T0 T3 T2 T1)
; S1 (MIX # TD0 TD1 TD2 TD3 T1 T0 T3 T2)
; S2 (MIX # TD0 TD1 TD2 TD3 T2 T1 T0 T3)
; S3 (MIX # TD0 TD1 TD2 TD3 T3 T2 T1 T0)))
; (RK-REF (X) `(AREF ROUND-KEYS (+ ,X ROUND-KEY-OFFSET))))
; (MACROLET ((IRONCLAD::MIX
; (IRONCLAD::RK IRONCLAD::A0 IRONCLAD::A1 IRONCLAD::A2
; IRONCLAD::A3 IRONCLAD::SYM0 IRONCLAD::SYM1 IRONCLAD::SYM2
; IRONCLAD::SYM3)
; `(LOGXOR (AREF ,IRONCLAD::A0 #) (AREF ,IRONCLAD::A1 #)
; (AREF ,IRONCLAD::A2 #) (AREF ,IRONCLAD::A3 #)
; (IRONCLAD::RK-REF ,IRONCLAD::RK)))
; (IRONCLAD::MIX-S-INTO-T-ENCRYPTING (IRONCLAD::OFFSET)
; `(SETF IRONCLAD::T0 #
; IRONCLAD::T1 #
; IRONCLAD::T2 #
; IRONCLAD::T3 #))
; (IRONCLAD::MIX-T-INTO-S-ENCRYPTING (IRONCLAD::OFFSET)
; `(SETF IRONCLAD::S0 #
; IRONCLAD::S1 #
; IRONCLAD::S2 #
; IRONCLAD::S3 #))
; (IRONCLAD::MIX-S-INTO-T-DECRYPTING (IRONCLAD::OFFSET)
; `(SETF IRONCLAD::T0 #
; IRONCLAD::T1 #
; IRONCLAD::T2 #
; IRONCLAD::T3 #))
; (IRONCLAD::MIX-T-INTO-S-DECRYPTING (IRONCLAD::OFFSET)
; `(SETF IRONCLAD::S0 #
; IRONCLAD::S1 #
; IRONCLAD::S2 #
; IRONCLAD::S3 #))
; (IRONCLAD::RK-REF (IRONCLAD::X)
; `(AREF IRONCLAD::ROUND-KEYS
; (+ ,IRONCLAD::X IRONCLAD::ROUND-KEY-OFFSET))))
; (IRONCLAD::DEFINE-BLOCK-ENCRYPTOR IRONCLAD:AES
; 16
; (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 #
; #))))
; (IRONCLAD::DEFINE-BLOCK-DECRYPTOR IRONCLAD:AES
; 16
; (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 #
; #)))))
; --> SB-INT:BINDING* LET* BLOCK LOOP BLOCK LET LET
; --> SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8) #2=(INTEGER 0 0)), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8))
; . #3=(&OPTIONAL)), not a (VALUES FIXNUM . #3#).
; unable to do #1# (cost 2) because:
; The first argument is a (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8) #2#), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8))
; . #3#), not a (VALUES FIXNUM . #3#).
; etc.
; 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 (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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/aes-tmpH6YIZTI1.fasl
; compilation finished in 0:00:09.665
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/arcfour-tmpSJEPG7AU.fasl
; compilation finished in 0:00:00.280
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/aria-tmpSNZATJRM.fasl
; compilation finished in 0:00:10.006
; 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:
; MACROLET ((S-BOX (S-BOXES WHICH INDEX)
; `(AREF ,S-BOXES (+ (* 256 ,WHICH) ,INDEX)))
; (S-BOX-0 (S-BOXES INDEX) `(S-BOX ,S-BOXES 0 ,INDEX))
; (S-BOX-1 (S-BOXES INDEX) `(S-BOX ,S-BOXES 1 ,INDEX))
; (S-BOX-2 (S-BOXES INDEX) `(S-BOX ,S-BOXES 2 ,INDEX))
; (S-BOX-3 (S-BOXES INDEX) `(S-BOX ,S-BOXES 3 ,INDEX)))
; (MACROLET ((IRONCLAD::S-BOX
; (IRONCLAD::S-BOXES IRONCLAD::WHICH IRONCLAD::INDEX)
; `(AREF ,IRONCLAD::S-BOXES (+ # ,IRONCLAD::INDEX)))
; (IRONCLAD::S-BOX-0 (IRONCLAD::S-BOXES IRONCLAD::INDEX)
; `(IRONCLAD::S-BOX ,IRONCLAD::S-BOXES 0 ,IRONCLAD::INDEX))
; (IRONCLAD::S-BOX-1 (IRONCLAD::S-BOXES IRONCLAD::INDEX)
; `(IRONCLAD::S-BOX ,IRONCLAD::S-BOXES 1 ,IRONCLAD::INDEX))
; (IRONCLAD::S-BOX-2 (IRONCLAD::S-BOXES IRONCLAD::INDEX)
; `(IRONCLAD::S-BOX ,IRONCLAD::S-BOXES 2 ,IRONCLAD::INDEX))
; (IRONCLAD::S-BOX-3 (IRONCLAD::S-BOXES IRONCLAD::INDEX)
; `(IRONCLAD::S-BOX ,IRONCLAD::S-BOXES 3 ,IRONCLAD::INDEX)))
; (DECLAIM (INLINE IRONCLAD::BLOWFISH-F))
; (DEFUN IRONCLAD::BLOWFISH-F (BLOCK IRONCLAD::S-BOXES)
; (DECLARE (TYPE (UNSIGNED-BYTE 32) BLOCK))
; (DECLARE (TYPE IRONCLAD::BLOWFISH-S-BOXES IRONCLAD::S-BOXES))
; (IRONCLAD::MOD32+
; (IRONCLAD::S-BOX-3 IRONCLAD::S-BOXES (IRONCLAD::FIRST-BYTE BLOCK))
; (LOGXOR (IRONCLAD::S-BOX-2 IRONCLAD::S-BOXES #)
; (IRONCLAD::MOD32+ # #))))
; (DECLAIM (INLINE IRONCLAD::BLOWFISH-ENCRYPT-BLOCK*))
; (DEFUN IRONCLAD::BLOWFISH-ENCRYPT-BLOCK*
; (IRONCLAD::P-ARRAY IRONCLAD::S-BOXES IRONCLAD::PLAINTEXT
; IRONCLAD::PLAINTEXT-START IRONCLAD::CIPHERTEXT
; IRONCLAD::CIPHERTEXT-START)
; (DECLARE
; (TYPE (SIMPLE-ARRAY # #) IRONCLAD::PLAINTEXT IRONCLAD::CIPHERTEXT))
; (DECLARE
; (TYPE (INTEGER 0 536870901) IRONCLAD::PLAINTEXT-START
; IRONCLAD::CIPHERTEXT-START))
; (DECLARE (TYPE IRONCLAD::BLOWFISH-P-ARRAY IRONCLAD::P-ARRAY))
; (DECLARE (TYPE IRONCLAD::BLOWFISH-S-BOXES IRONCLAD::S-BOXES))
; (IRONCLAD::WITH-WORDS ((IRONCLAD::LEFT IRONCLAD::RIGHT)
; IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START)
; (PROGN
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; ...)
; (SETF IRONCLAD::LEFT #
; IRONCLAD::RIGHT #)
; (IRONCLAD::STORE-WORDS IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START
; IRONCLAD::RIGHT IRONCLAD::LEFT)))
; (DEFUN IRONCLAD::INITIALIZE-BLOWFISH-VECTORS
; (IRONCLAD::KEY IRONCLAD::P-ARRAY IRONCLAD::S-BOXES)
; (DECLARE (TYPE (SIMPLE-ARRAY # #) IRONCLAD::KEY))
; (DECLARE (TYPE IRONCLAD::BLOWFISH-P-ARRAY IRONCLAD::P-ARRAY))
; (DECLARE (TYPE IRONCLAD::BLOWFISH-S-BOXES IRONCLAD::S-BOXES))
; (IRONCLAD::MIX-P-ARRAY IRONCLAD::KEY IRONCLAD::P-ARRAY)
; (LET ((IRONCLAD::DATA #))
; (DECLARE (TYPE # IRONCLAD::DATA))
; (DO (#)
; (#)
; (IRONCLAD::BLOWFISH-ENCRYPT-BLOCK* IRONCLAD::P-ARRAY
; IRONCLAD::S-BOXES IRONCLAD::DATA 0 IRONCLAD::DATA 0)
; (SETF #))
; (DOTIMES (IRONCLAD::I 4) (DO # # # #))))
; (DECLAIM (NOTINLINE IRONCLAD::BLOWFISH-ENCRYPT-BLOCK*))
; (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))
; (DECLAIM (INLINE IRONCLAD::BLOWFISH-DECRYPT-BLOCK*))
; (DEFUN IRONCLAD::BLOWFISH-DECRYPT-BLOCK*
; (IRONCLAD::P-ARRAY IRONCLAD::S-BOXES IRONCLAD::CIPHERTEXT
; IRONCLAD::CIPHERTEXT-START IRONCLAD::PLAINTEXT
; IRONCLAD::PLAINTEXT-START)
; (DECLARE
; (TYPE (SIMPLE-ARRAY # #) IRONCLAD::PLAINTEXT IRONCLAD::CIPHERTEXT))
; (DECLARE
; (TYPE (INTEGER 0 536870901) IRONCLAD::CIPHERTEXT-START
; IRONCLAD::PLAINTEXT-START))
; (DECLARE (TYPE IRONCLAD::BLOWFISH-P-ARRAY IRONCLAD::P-ARRAY))
; (DECLARE (TYPE IRONCLAD::BLOWFISH-S-BOXES IRONCLAD::S-BOXES))
; (IRONCLAD::WITH-WORDS ((IRONCLAD::LEFT IRONCLAD::RIGHT)
; IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START)
; (PROGN
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; ...)
; (SETF IRONCLAD::LEFT #
; IRONCLAD::RIGHT #)
; (IRONCLAD::STORE-WORDS IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START
; IRONCLAD::RIGHT IRONCLAD::LEFT)))
; (DECLAIM (NOTINLINE IRONCLAD::BLOWFISH-DECRYPT-BLOCK*))
; ...)
; --> SB-INT:NAMED-DS-BIND SB-INT:BINDING* LET* BLOCK BLOCK LET LET LET*
; --> TAGBODY SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8) #2=(INTEGER 0 0)), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8))
; . #3=(&OPTIONAL)), not a (VALUES FIXNUM . #3#).
; unable to do #1# (cost 2) because:
; The first argument is a (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8) #2#), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8))
; . #3#), not a (VALUES FIXNUM . #3#).
; etc.
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/blowfish.lisp
; in: DEFINE-BLOCK-ENCRYPTOR BLOWFISH
; (IRONCLAD::BLOWFISH-ENCRYPT-BLOCK* (IRONCLAD::P-ARRAY IRONCLAD::CONTEXT)
; (IRONCLAD::S-BOXES IRONCLAD::CONTEXT) IRONCLAD::PLAINTEXT
; IRONCLAD::PLAINTEXT-START IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START)
; --> BLOCK MACROLET LET PROGN LET* FUNCALL
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20) from LEFT to "<return value>"
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/blowfish.lisp
; in:
; MACROLET ((S-BOX (S-BOXES WHICH INDEX)
; `(AREF ,S-BOXES (+ (* 256 ,WHICH) ,INDEX)))
; (S-BOX-0 (S-BOXES INDEX) `(S-BOX ,S-BOXES 0 ,INDEX))
; (S-BOX-1 (S-BOXES INDEX) `(S-BOX ,S-BOXES 1 ,INDEX))
; (S-BOX-2 (S-BOXES INDEX) `(S-BOX ,S-BOXES 2 ,INDEX))
; (S-BOX-3 (S-BOXES INDEX) `(S-BOX ,S-BOXES 3 ,INDEX)))
; (MACROLET ((IRONCLAD::S-BOX
; (IRONCLAD::S-BOXES IRONCLAD::WHICH IRONCLAD::INDEX)
; `(AREF ,IRONCLAD::S-BOXES (+ # ,IRONCLAD::INDEX)))
; (IRONCLAD::S-BOX-0 (IRONCLAD::S-BOXES IRONCLAD::INDEX)
; `(IRONCLAD::S-BOX ,IRONCLAD::S-BOXES 0 ,IRONCLAD::INDEX))
; (IRONCLAD::S-BOX-1 (IRONCLAD::S-BOXES IRONCLAD::INDEX)
; `(IRONCLAD::S-BOX ,IRONCLAD::S-BOXES 1 ,IRONCLAD::INDEX))
; (IRONCLAD::S-BOX-2 (IRONCLAD::S-BOXES IRONCLAD::INDEX)
; `(IRONCLAD::S-BOX ,IRONCLAD::S-BOXES 2 ,IRONCLAD::INDEX))
; (IRONCLAD::S-BOX-3 (IRONCLAD::S-BOXES IRONCLAD::INDEX)
; `(IRONCLAD::S-BOX ,IRONCLAD::S-BOXES 3 ,IRONCLAD::INDEX)))
; (DECLAIM (INLINE IRONCLAD::BLOWFISH-F))
; (DEFUN IRONCLAD::BLOWFISH-F (BLOCK IRONCLAD::S-BOXES)
; (DECLARE (TYPE (UNSIGNED-BYTE 32) BLOCK))
; (DECLARE (TYPE IRONCLAD::BLOWFISH-S-BOXES IRONCLAD::S-BOXES))
; (IRONCLAD::MOD32+
; (IRONCLAD::S-BOX-3 IRONCLAD::S-BOXES (IRONCLAD::FIRST-BYTE BLOCK))
; (LOGXOR (IRONCLAD::S-BOX-2 IRONCLAD::S-BOXES #)
; (IRONCLAD::MOD32+ # #))))
; (DECLAIM (INLINE IRONCLAD::BLOWFISH-ENCRYPT-BLOCK*))
; (DEFUN IRONCLAD::BLOWFISH-ENCRYPT-BLOCK*
; (IRONCLAD::P-ARRAY IRONCLAD::S-BOXES IRONCLAD::PLAINTEXT
; IRONCLAD::PLAINTEXT-START IRONCLAD::CIPHERTEXT
; IRONCLAD::CIPHERTEXT-START)
; (DECLARE
; (TYPE (SIMPLE-ARRAY # #) IRONCLAD::PLAINTEXT IRONCLAD::CIPHERTEXT))
; (DECLARE
; (TYPE (INTEGER 0 536870901) IRONCLAD::PLAINTEXT-START
; IRONCLAD::CIPHERTEXT-START))
; (DECLARE (TYPE IRONCLAD::BLOWFISH-P-ARRAY IRONCLAD::P-ARRAY))
; (DECLARE (TYPE IRONCLAD::BLOWFISH-S-BOXES IRONCLAD::S-BOXES))
; (IRONCLAD::WITH-WORDS ((IRONCLAD::LEFT IRONCLAD::RIGHT)
; IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START)
; (PROGN
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; ...)
; (SETF IRONCLAD::LEFT #
; IRONCLAD::RIGHT #)
; (IRONCLAD::STORE-WORDS IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START
; IRONCLAD::RIGHT IRONCLAD::LEFT)))
; (DEFUN IRONCLAD::INITIALIZE-BLOWFISH-VECTORS
; (IRONCLAD::KEY IRONCLAD::P-ARRAY IRONCLAD::S-BOXES)
; (DECLARE (TYPE (SIMPLE-ARRAY # #) IRONCLAD::KEY))
; (DECLARE (TYPE IRONCLAD::BLOWFISH-P-ARRAY IRONCLAD::P-ARRAY))
; (DECLARE (TYPE IRONCLAD::BLOWFISH-S-BOXES IRONCLAD::S-BOXES))
; (IRONCLAD::MIX-P-ARRAY IRONCLAD::KEY IRONCLAD::P-ARRAY)
; (LET ((IRONCLAD::DATA #))
; (DECLARE (TYPE # IRONCLAD::DATA))
; (DO (#)
; (#)
; (IRONCLAD::BLOWFISH-ENCRYPT-BLOCK* IRONCLAD::P-ARRAY
; IRONCLAD::S-BOXES IRONCLAD::DATA 0 IRONCLAD::DATA 0)
; (SETF #))
; (DOTIMES (IRONCLAD::I 4) (DO # # # #))))
; (DECLAIM (NOTINLINE IRONCLAD::BLOWFISH-ENCRYPT-BLOCK*))
; (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))
; (DECLAIM (INLINE IRONCLAD::BLOWFISH-DECRYPT-BLOCK*))
; (DEFUN IRONCLAD::BLOWFISH-DECRYPT-BLOCK*
; (IRONCLAD::P-ARRAY IRONCLAD::S-BOXES IRONCLAD::CIPHERTEXT
; IRONCLAD::CIPHERTEXT-START IRONCLAD::PLAINTEXT
; IRONCLAD::PLAINTEXT-START)
; (DECLARE
; (TYPE (SIMPLE-ARRAY # #) IRONCLAD::PLAINTEXT IRONCLAD::CIPHERTEXT))
; (DECLARE
; (TYPE (INTEGER 0 536870901) IRONCLAD::CIPHERTEXT-START
; IRONCLAD::PLAINTEXT-START))
; (DECLARE (TYPE IRONCLAD::BLOWFISH-P-ARRAY IRONCLAD::P-ARRAY))
; (DECLARE (TYPE IRONCLAD::BLOWFISH-S-BOXES IRONCLAD::S-BOXES))
; (IRONCLAD::WITH-WORDS ((IRONCLAD::LEFT IRONCLAD::RIGHT)
; IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START)
; (PROGN
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; (SETF #)
; ...)
; (SETF IRONCLAD::LEFT #
; IRONCLAD::RIGHT #)
; (IRONCLAD::STORE-WORDS IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START
; IRONCLAD::RIGHT IRONCLAD::LEFT)))
; (DECLAIM (NOTINLINE IRONCLAD::BLOWFISH-DECRYPT-BLOCK*))
; ...)
; --> SB-INT:NAMED-DS-BIND SB-INT:BINDING* LET* BLOCK BLOCK LET LET LET*
; --> TAGBODY SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8) #2=(INTEGER 0 0)), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8))
; . #3=(&OPTIONAL)), not a (VALUES FIXNUM . #3#).
; unable to do #1# (cost 2) because:
; The first argument is a (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8) #2#), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8))
; . #3#), not a (VALUES FIXNUM . #3#).
; etc.
; in: DEFINE-BLOCK-DECRYPTOR BLOWFISH
; (IRONCLAD::BLOWFISH-DECRYPT-BLOCK* (IRONCLAD::P-ARRAY IRONCLAD::CONTEXT)
; (IRONCLAD::S-BOXES IRONCLAD::CONTEXT) IRONCLAD::CIPHERTEXT
; IRONCLAD::CIPHERTEXT-START IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START)
; --> BLOCK MACROLET LET PROGN LET* FUNCALL
; ==>
; 1
;
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/blowfish-tmpK93FRK93.fasl
; compilation finished in 0:00:09.065
; 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 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/camellia.lisp
; in: DEFMETHOD SCHEDULE-KEY (CAMELLIA T)
; (MAKE-ARRAY 16 :ELEMENT-TYPE '(UNSIGNED-BYTE 32))
;
; note: could not stack allocate: (MAKE-ARRAY 16 :ELEMENT-TYPE '(UNSIGNED-BYTE 32))
; processing (DEFINE-BLOCK-ENCRYPTOR CAMELLIA ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/camellia.lisp
; in: DEFINE-BLOCK-ENCRYPTOR CAMELLIA
; (MAKE-ARRAY 4 :ELEMENT-TYPE '(UNSIGNED-BYTE 32))
;
; note: could not stack allocate: (MAKE-ARRAY 4 :ELEMENT-TYPE '(UNSIGNED-BYTE 32))
; (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 (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
; (MAKE-ARRAY 4 :ELEMENT-TYPE '(UNSIGNED-BYTE 32))
;
; note: could not stack allocate: (MAKE-ARRAY 4 :ELEMENT-TYPE '(UNSIGNED-BYTE 32))
; (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 (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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/camellia-tmpUIQ1NDZ1.fasl
; compilation finished in 0:00:04.610
; 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:
; MACROLET ((CAST5-S-BOX (S-BOX-INDEX INDEX)
; `(AREF ,(INTERN (FORMAT NIL "+~A~A+" '#:CAST5-SBOX S-BOX-INDEX))
; ,INDEX)))
; (MACROLET ((IRONCLAD::CAST5-S-BOX (IRONCLAD::S-BOX-INDEX IRONCLAD::INDEX)
; `(AREF ,(INTERN #) ,IRONCLAD::INDEX)))
; (DEFUN IRONCLAD::CAST5-F1 (IRONCLAD::INPUT IRONCLAD::MASK IRONCLAD::ROTATE)
; (DECLARE (TYPE (UNSIGNED-BYTE 32) IRONCLAD::INPUT IRONCLAD::MASK))
; (DECLARE (TYPE (UNSIGNED-BYTE 5) IRONCLAD::ROTATE))
; (LET ((IRONCLAD::VALUE #))
; (DECLARE (TYPE # IRONCLAD::VALUE))
; (IRONCLAD::MOD32+ (IRONCLAD::CAST5-S-BOX 3 #) (IRONCLAD::MOD32- # #))))
; (DEFUN IRONCLAD::CAST5-F2 (IRONCLAD::INPUT IRONCLAD::MASK IRONCLAD::ROTATE)
; (DECLARE (TYPE (UNSIGNED-BYTE 32) IRONCLAD::INPUT IRONCLAD::MASK))
; (DECLARE (TYPE (UNSIGNED-BYTE 5) IRONCLAD::ROTATE))
; (LET ((IRONCLAD::VALUE #))
; (DECLARE (TYPE # IRONCLAD::VALUE))
; (LOGXOR (IRONCLAD::CAST5-S-BOX 3 #) (IRONCLAD::MOD32+ # #))))
; (DEFUN IRONCLAD::CAST5-F3 (IRONCLAD::INPUT IRONCLAD::MASK IRONCLAD::ROTATE)
; (DECLARE (TYPE (UNSIGNED-BYTE 32) IRONCLAD::INPUT IRONCLAD::MASK))
; (DECLARE (TYPE (UNSIGNED-BYTE 5) IRONCLAD::ROTATE))
; (LET ((IRONCLAD::VALUE #))
; (DECLARE (TYPE # IRONCLAD::VALUE))
; (IRONCLAD::MOD32- (LOGXOR # #) (IRONCLAD::CAST5-S-BOX 3 #))))
; (IRONCLAD::DEFINE-BLOCK-ENCRYPTOR IRONCLAD:CAST5
; 8
; (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))))
; (IRONCLAD::DEFINE-BLOCK-DECRYPTOR IRONCLAD:CAST5
; 8
; (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)))))
; --> SB-INT:BINDING* LET* BLOCK LOOP BLOCK LET LET
; --> SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8) #2=(INTEGER 0 0)), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8))
; . #3=(&OPTIONAL)), not a (VALUES FIXNUM . #3#).
; unable to do #1# (cost 2) because:
; The first argument is a (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8) #2#), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8))
; . #3#), not a (VALUES FIXNUM . #3#).
; etc.
; 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 (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>"
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/cast5.lisp
; in:
; MACROLET ((CAST5-S-BOX (S-BOX-INDEX INDEX)
; `(AREF ,(INTERN (FORMAT NIL "+~A~A+" '#:CAST5-SBOX S-BOX-INDEX))
; ,INDEX)))
; (MACROLET ((IRONCLAD::CAST5-S-BOX (IRONCLAD::S-BOX-INDEX IRONCLAD::INDEX)
; `(AREF ,(INTERN #) ,IRONCLAD::INDEX)))
; (DEFUN IRONCLAD::CAST5-F1 (IRONCLAD::INPUT IRONCLAD::MASK IRONCLAD::ROTATE)
; (DECLARE (TYPE (UNSIGNED-BYTE 32) IRONCLAD::INPUT IRONCLAD::MASK))
; (DECLARE (TYPE (UNSIGNED-BYTE 5) IRONCLAD::ROTATE))
; (LET ((IRONCLAD::VALUE #))
; (DECLARE (TYPE # IRONCLAD::VALUE))
; (IRONCLAD::MOD32+ (IRONCLAD::CAST5-S-BOX 3 #) (IRONCLAD::MOD32- # #))))
; (DEFUN IRONCLAD::CAST5-F2 (IRONCLAD::INPUT IRONCLAD::MASK IRONCLAD::ROTATE)
; (DECLARE (TYPE (UNSIGNED-BYTE 32) IRONCLAD::INPUT IRONCLAD::MASK))
; (DECLARE (TYPE (UNSIGNED-BYTE 5) IRONCLAD::ROTATE))
; (LET ((IRONCLAD::VALUE #))
; (DECLARE (TYPE # IRONCLAD::VALUE))
; (LOGXOR (IRONCLAD::CAST5-S-BOX 3 #) (IRONCLAD::MOD32+ # #))))
; (DEFUN IRONCLAD::CAST5-F3 (IRONCLAD::INPUT IRONCLAD::MASK IRONCLAD::ROTATE)
; (DECLARE (TYPE (UNSIGNED-BYTE 32) IRONCLAD::INPUT IRONCLAD::MASK))
; (DECLARE (TYPE (UNSIGNED-BYTE 5) IRONCLAD::ROTATE))
; (LET ((IRONCLAD::VALUE #))
; (DECLARE (TYPE # IRONCLAD::VALUE))
; (IRONCLAD::MOD32- (LOGXOR # #) (IRONCLAD::CAST5-S-BOX 3 #))))
; (IRONCLAD::DEFINE-BLOCK-ENCRYPTOR IRONCLAD:CAST5
; 8
; (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))))
; (IRONCLAD::DEFINE-BLOCK-DECRYPTOR IRONCLAD:CAST5
; 8
; (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)))))
; --> SB-INT:BINDING* LET* BLOCK LOOP BLOCK LET LET
; --> SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY SB-LOOP::LOOP-DESETQ
; --> SETQ THE
; ==>
; (+ IRONCLAD::OFFSET 4)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8) #2=(INTEGER 0 0)), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8))
; . #3=(&OPTIONAL)), not a (VALUES FIXNUM . #3#).
; unable to do #1# (cost 2) because:
; The first argument is a (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8) #2#), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER 4 4) (INTEGER 12 12) (INTEGER 20 20)
; (INTEGER 28) (INTEGER 24 24) (INTEGER 16 16)
; (INTEGER 8 8))
; . #3#), not a (VALUES FIXNUM . #3#).
; etc.
; 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 (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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/cast5-tmp7V5GAYEU.fasl
; compilation finished in 0:00:05.920
; 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
; (MAKE-ARRAY 16 :ELEMENT-TYPE '(UNSIGNED-BYTE 32))
;
; note: could not stack allocate: (MAKE-ARRAY 16 :ELEMENT-TYPE '(UNSIGNED-BYTE 32))
; (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 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/chacha.lisp
; in: DEFUN CHACHA/8-CORE
; (IRONCLAD::CHACHA-CORE 4 IRONCLAD::BUFFER IRONCLAD::STATE)
; --> BLOCK LET MAKE-ARRAY
; ==>
; 1
;
; note: could not stack allocate: (CHACHA-CORE 4 BUFFER STATE)
; processing (DEFUN CHACHA/12-CORE ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/chacha.lisp
; in: DEFUN CHACHA/12-CORE
; (IRONCLAD::CHACHA-CORE 6 IRONCLAD::BUFFER IRONCLAD::STATE)
; --> BLOCK LET MAKE-ARRAY
; ==>
; 1
;
; note: could not stack allocate: (CHACHA-CORE 6 BUFFER STATE)
; processing (DEFUN CHACHA/20-CORE ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/chacha.lisp
; in: DEFUN CHACHA/20-CORE
; (IRONCLAD::CHACHA-CORE 10 IRONCLAD::BUFFER IRONCLAD::STATE)
; --> BLOCK LET MAKE-ARRAY
; ==>
; 1
;
; note: could not stack allocate: (CHACHA-CORE 10 BUFFER STATE)
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/chacha-tmpB7TVS35O.fasl
; compilation finished in 0:00:05.320
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/xchacha-tmpJOMD2L5F.fasl
; compilation finished in 0:00:00.540
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/des-tmpDH22VGZN.fasl
; compilation finished in 0:00:03.275
; 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.2.9.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/idea-tmpXDMVI6M.fasl
; compilation finished in 0:00:02.120
; 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 (SIGNED-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
; (SIGNED-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 (SIGNED-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
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 20
; IRONCLAD::KSC 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-GL128 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 28
; IRONCLAD::KSC 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-GL128 IRONCLAD::T1 IRONCLAD::T2 0 IRONCLAD::KA 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-GL128 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 0
; IRONCLAD::KSC 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-GL128 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS
; IRONCLAD::N IRONCLAD::KSC 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-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-GL128 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 0
; IRONCLAD::KSC 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-GL128 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS
; IRONCLAD::N IRONCLAD::KSC 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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))
; --> 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 (SIGNED-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
; (SIGNED-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 (SIGNED-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
; (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-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
; (SIGNED-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 (SIGNED-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
; (SIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KSC 0)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-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
; (SIGNED-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 (SIGNED-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
; (SIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KSC 0)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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))
; --> 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 (SIGNED-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
; (SIGNED-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 (SIGNED-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
; (SIGNED-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::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)
; --> 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-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).
; (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:UB64REF/LE IRONCLAD::PLAINTEXT (+ IRONCLAD::PLAINTEXT-START 8))
; --> 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-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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))
; --> BLOCK 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::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:UB64REF/LE IRONCLAD::CIPHERTEXT (+ IRONCLAD::CIPHERTEXT-START 8))
; --> 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-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).
; (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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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))
; --> BLOCK 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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::T2 0 IRONCLAD::KA 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-GL256 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 0
; IRONCLAD::KSC 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-GL256 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 72
; IRONCLAD::KSC 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-GL256 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 56
; IRONCLAD::KSC 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-GL256 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS
; IRONCLAD::N IRONCLAD::KSC 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-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-GL256 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 0
; IRONCLAD::KSC 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-GL256 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS
; IRONCLAD::N IRONCLAD::KSC 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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))
; --> 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KSC 0)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KSC 0)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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))
; --> 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-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::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:UB64REF/LE IRONCLAD::PLAINTEXT (+ IRONCLAD::PLAINTEXT-START 24))
; --> 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: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-GL256 IRONCLAD::T2 IRONCLAD::T1 0
; IRONCLAD::ENCRYPTION-ROUND-KEYS 72)
; --> 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 16))
; --> 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:UB64REF/LE IRONCLAD::PLAINTEXT (+ IRONCLAD::PLAINTEXT-START 8))
; --> 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-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::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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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))
; --> 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 16))
; --> 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 24))
; --> BLOCK 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::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: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).
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT (+ IRONCLAD::CIPHERTEXT-START 16))
; --> 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:UB64REF/LE IRONCLAD::CIPHERTEXT (+ IRONCLAD::CIPHERTEXT-START 8))
; --> 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:UB64REF/LE IRONCLAD::CIPHERTEXT (+ IRONCLAD::CIPHERTEXT-START 24))
; --> 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-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::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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 4 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 56)
; --> 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)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 52)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 48)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 44)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 40)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 36)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 32)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 28)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 24)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 20)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 16)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 12)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 8)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 4)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-IGL256 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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)
; (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: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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)
; (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: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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::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: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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::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: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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))
; --> 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 16))
; --> 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 24))
; --> BLOCK DPB
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
; (IRONCLAD::KALYNA-IGL256 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)
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
; processing (DEFCIPHER KALYNA256 ...)
; processing (DECLAIM (INLINE KALYNA-G0512))
; processing (DEFUN KALYNA-G0512 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFUN KALYNA-G0512
; (IRONCLAD::M 0 0 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 1 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 6 -16)
; (IRONCLAD::M 3 5 -24) (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -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 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 6 -16)
; (IRONCLAD::M 3 5 -24) (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 6 -16)
; (IRONCLAD::M 3 5 -24) (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -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 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 6 -16)
; (IRONCLAD::M 3 5 -24) (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -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 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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 6 -16)
; (IRONCLAD::M 3 5 -24) (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -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 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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 6 -16)
; (IRONCLAD::M 3 5 -24) (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 6 -16)
; (IRONCLAD::M 3 5 -24) (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 7 -16)
; (IRONCLAD::M 3 6 -24) (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40)
; (IRONCLAD::M 6 3 -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 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 7 -16)
; (IRONCLAD::M 3 6 -24) (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40)
; (IRONCLAD::M 6 3 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 7 -16)
; (IRONCLAD::M 3 6 -24) (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40)
; (IRONCLAD::M 6 3 -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 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 7 -16)
; (IRONCLAD::M 3 6 -24) (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40)
; (IRONCLAD::M 6 3 -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 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.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 7 -16)
; (IRONCLAD::M 3 6 -24) (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40)
; (IRONCLAD::M 6 3 -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 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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 7 -16)
; (IRONCLAD::M 3 6 -24) (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40)
; (IRONCLAD::M 6 3 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 7 -16)
; (IRONCLAD::M 3 6 -24) (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40)
; (IRONCLAD::M 6 3 -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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 7 -24) (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40)
; (IRONCLAD::M 6 4 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 7 -24) (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40)
; (IRONCLAD::M 6 4 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 7 -24) (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40)
; (IRONCLAD::M 6 4 -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 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 7 -24) (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40)
; (IRONCLAD::M 6 4 -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 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.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 7 -24) (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40)
; (IRONCLAD::M 6 4 -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 4 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 7 -24) (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40)
; (IRONCLAD::M 6 4 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 7 -24) (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40)
; (IRONCLAD::M 6 4 -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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40)
; (IRONCLAD::M 6 5 -48) (IRONCLAD::M 7 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40)
; (IRONCLAD::M 6 5 -48) (IRONCLAD::M 7 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40)
; (IRONCLAD::M 6 5 -48) (IRONCLAD::M 7 4 -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 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40)
; (IRONCLAD::M 6 5 -48) (IRONCLAD::M 7 4 -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 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.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40)
; (IRONCLAD::M 6 5 -48) (IRONCLAD::M 7 4 -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 5 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40)
; (IRONCLAD::M 6 5 -48) (IRONCLAD::M 7 4 -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 4 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40)
; (IRONCLAD::M 6 5 -48) (IRONCLAD::M 7 4 -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 4 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 4 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40)
; (IRONCLAD::M 6 6 -48) (IRONCLAD::M 7 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 4 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40)
; (IRONCLAD::M 6 6 -48) (IRONCLAD::M 7 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 4 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40)
; (IRONCLAD::M 6 6 -48) (IRONCLAD::M 7 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 4 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40)
; (IRONCLAD::M 6 6 -48) (IRONCLAD::M 7 5 -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 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.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 4 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40)
; (IRONCLAD::M 6 6 -48) (IRONCLAD::M 7 5 -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 6 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 4 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40)
; (IRONCLAD::M 6 6 -48) (IRONCLAD::M 7 5 -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 5 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 4 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40)
; (IRONCLAD::M 6 6 -48) (IRONCLAD::M 7 5 -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 5 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 1 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 5 0) (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 7 -48) (IRONCLAD::M 7 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 5 0) (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 7 -48) (IRONCLAD::M 7 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 5 0) (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 7 -48) (IRONCLAD::M 7 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 5 0) (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 7 -48) (IRONCLAD::M 7 6 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 5 0) (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 7 -48) (IRONCLAD::M 7 6 -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 7 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 5 0) (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 7 -48) (IRONCLAD::M 7 6 -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 6 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 5 0) (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 7 -48) (IRONCLAD::M 7 6 -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 6 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 1 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 6 0) (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 7 -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 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 6 0) (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 6 0) (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 6 0) (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 7 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 6 0) (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 7 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 6 0) (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 7 -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 7 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 6 0) (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 7 -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 7 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 1 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 7 0) (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16)
; (IRONCLAD::M 3 4 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -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 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 7 0) (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16)
; (IRONCLAD::M 3 4 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 7 0) (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16)
; (IRONCLAD::M 3 4 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 7 0) (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16)
; (IRONCLAD::M 3 4 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -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 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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 7 0) (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16)
; (IRONCLAD::M 3 4 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -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 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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 7 0) (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16)
; (IRONCLAD::M 3 4 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 7 0) (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16)
; (IRONCLAD::M 3 4 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -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-GL512))
; processing (DEFUN KALYNA-GL512 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFUN KALYNA-GL512
; (IRONCLAD::MOD64+ (AREF IRONCLAD::K (+ IRONCLAD::K-START 0))
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 7 -8)
; (IRONCLAD::M 2 6 -16) (IRONCLAD::M 3 5 -24)
; (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -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 0 -8)
; (IRONCLAD::M 2 7 -16) (IRONCLAD::M 3 6 -24)
; (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40)
; (IRONCLAD::M 6 3 -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 1 -8)
; (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 7 -24)
; (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40)
; (IRONCLAD::M 6 4 -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 2 -8)
; (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40)
; (IRONCLAD::M 6 5 -48) (IRONCLAD::M 7 4 -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 4))
; (LOGXOR (IRONCLAD::M 0 4 0) (IRONCLAD::M 1 3 -8)
; (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40)
; (IRONCLAD::M 6 6 -48) (IRONCLAD::M 7 5 -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 5))
; (LOGXOR (IRONCLAD::M 0 5 0) (IRONCLAD::M 1 4 -8)
; (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 7 -48) (IRONCLAD::M 7 6 -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 6))
; (LOGXOR (IRONCLAD::M 0 6 0) (IRONCLAD::M 1 5 -8)
; (IRONCLAD::M 2 4 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 7 -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 7))
; (LOGXOR (IRONCLAD::M 0 7 0) (IRONCLAD::M 1 6 -8)
; (IRONCLAD::M 2 5 -16) (IRONCLAD::M 3 4 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 1 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 6 -16)
; (IRONCLAD::M 3 5 -24) (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -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 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 6 -16)
; (IRONCLAD::M 3 5 -24) (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 6 -16)
; (IRONCLAD::M 3 5 -24) (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -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 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 6 -16)
; (IRONCLAD::M 3 5 -24) (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -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 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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 6 -16)
; (IRONCLAD::M 3 5 -24) (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -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 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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 6 -16)
; (IRONCLAD::M 3 5 -24) (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 6 -16)
; (IRONCLAD::M 3 5 -24) (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -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 7 -8)
; (IRONCLAD::M 2 6 -16) (IRONCLAD::M 3 5 -24)
; (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 7 -16)
; (IRONCLAD::M 3 6 -24) (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40)
; (IRONCLAD::M 6 3 -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 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 7 -16)
; (IRONCLAD::M 3 6 -24) (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40)
; (IRONCLAD::M 6 3 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 7 -16)
; (IRONCLAD::M 3 6 -24) (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40)
; (IRONCLAD::M 6 3 -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 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 7 -16)
; (IRONCLAD::M 3 6 -24) (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40)
; (IRONCLAD::M 6 3 -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 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.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 7 -16)
; (IRONCLAD::M 3 6 -24) (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40)
; (IRONCLAD::M 6 3 -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 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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 7 -16)
; (IRONCLAD::M 3 6 -24) (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40)
; (IRONCLAD::M 6 3 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 7 -16)
; (IRONCLAD::M 3 6 -24) (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40)
; (IRONCLAD::M 6 3 -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 0 -8)
; (IRONCLAD::M 2 7 -16) (IRONCLAD::M 3 6 -24)
; (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40)
; (IRONCLAD::M 6 3 -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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 7 -24) (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40)
; (IRONCLAD::M 6 4 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 7 -24) (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40)
; (IRONCLAD::M 6 4 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 7 -24) (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40)
; (IRONCLAD::M 6 4 -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 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 7 -24) (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40)
; (IRONCLAD::M 6 4 -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 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.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 7 -24) (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40)
; (IRONCLAD::M 6 4 -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 4 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 7 -24) (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40)
; (IRONCLAD::M 6 4 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 7 -24) (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40)
; (IRONCLAD::M 6 4 -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 1 -8)
; (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 7 -24)
; (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40)
; (IRONCLAD::M 6 4 -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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40)
; (IRONCLAD::M 6 5 -48) (IRONCLAD::M 7 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40)
; (IRONCLAD::M 6 5 -48) (IRONCLAD::M 7 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40)
; (IRONCLAD::M 6 5 -48) (IRONCLAD::M 7 4 -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 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40)
; (IRONCLAD::M 6 5 -48) (IRONCLAD::M 7 4 -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 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.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40)
; (IRONCLAD::M 6 5 -48) (IRONCLAD::M 7 4 -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 5 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40)
; (IRONCLAD::M 6 5 -48) (IRONCLAD::M 7 4 -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 4 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40)
; (IRONCLAD::M 6 5 -48) (IRONCLAD::M 7 4 -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 2 -8)
; (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40)
; (IRONCLAD::M 6 5 -48) (IRONCLAD::M 7 4 -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 4 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 4 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40)
; (IRONCLAD::M 6 6 -48) (IRONCLAD::M 7 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 4 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40)
; (IRONCLAD::M 6 6 -48) (IRONCLAD::M 7 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 4 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40)
; (IRONCLAD::M 6 6 -48) (IRONCLAD::M 7 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 4 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40)
; (IRONCLAD::M 6 6 -48) (IRONCLAD::M 7 5 -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 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.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 4 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40)
; (IRONCLAD::M 6 6 -48) (IRONCLAD::M 7 5 -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 6 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 4 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40)
; (IRONCLAD::M 6 6 -48) (IRONCLAD::M 7 5 -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 5 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 4 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40)
; (IRONCLAD::M 6 6 -48) (IRONCLAD::M 7 5 -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 4))
; (LOGXOR (IRONCLAD::M 0 4 0) (IRONCLAD::M 1 3 -8)
; (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40)
; (IRONCLAD::M 6 6 -48) (IRONCLAD::M 7 5 -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 5 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 1 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 5 0) (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 7 -48) (IRONCLAD::M 7 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 5 0) (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 7 -48) (IRONCLAD::M 7 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 5 0) (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 7 -48) (IRONCLAD::M 7 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 5 0) (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 7 -48) (IRONCLAD::M 7 6 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 5 0) (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 7 -48) (IRONCLAD::M 7 6 -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 7 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 5 0) (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 7 -48) (IRONCLAD::M 7 6 -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 6 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 5 0) (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 7 -48) (IRONCLAD::M 7 6 -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 5))
; (LOGXOR (IRONCLAD::M 0 5 0) (IRONCLAD::M 1 4 -8)
; (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 7 -48) (IRONCLAD::M 7 6 -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 6 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 1 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 6 0) (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 7 -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 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 6 0) (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 6 0) (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 6 0) (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 7 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 6 0) (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 7 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 6 0) (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 7 -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 7 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 6 0) (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 7 -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 6))
; (LOGXOR (IRONCLAD::M 0 6 0) (IRONCLAD::M 1 5 -8)
; (IRONCLAD::M 2 4 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 7 -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 7 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 1 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 7 0) (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16)
; (IRONCLAD::M 3 4 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -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 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 7 0) (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16)
; (IRONCLAD::M 3 4 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 7 0) (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16)
; (IRONCLAD::M 3 4 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 7 0) (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16)
; (IRONCLAD::M 3 4 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -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 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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 7 0) (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16)
; (IRONCLAD::M 3 4 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -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 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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 7 0) (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16)
; (IRONCLAD::M 3 4 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 7 0) (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16)
; (IRONCLAD::M 3 4 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -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 7))
; (LOGXOR (IRONCLAD::M 0 7 0) (IRONCLAD::M 1 6 -8)
; (IRONCLAD::M 2 5 -16) (IRONCLAD::M 3 4 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -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-IMC512))
; processing (DEFUN KALYNA-IMC512 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFUN KALYNA-IMC512
; (IRONCLAD::M 0 0 0 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 (SIGNED-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 (SIGNED-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 (SIGNED-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.
; (IRONCLAD::M 0 0 4 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 1 1 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 4 0) (IRONCLAD::M 1 1 4 -8) (IRONCLAD::M 2 2 4 -16)
; (IRONCLAD::M 3 3 4 -24) (IRONCLAD::M 4 0 4 -32)
; (IRONCLAD::M 5 1 4 -40) (IRONCLAD::M 6 2 4 -48)
; (IRONCLAD::M 7 3 4 -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 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 4 0) (IRONCLAD::M 1 1 4 -8) (IRONCLAD::M 2 2 4 -16)
; (IRONCLAD::M 3 3 4 -24) (IRONCLAD::M 4 0 4 -32)
; (IRONCLAD::M 5 1 4 -40) (IRONCLAD::M 6 2 4 -48)
; (IRONCLAD::M 7 3 4 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 4 0) (IRONCLAD::M 1 1 4 -8) (IRONCLAD::M 2 2 4 -16)
; (IRONCLAD::M 3 3 4 -24) (IRONCLAD::M 4 0 4 -32)
; (IRONCLAD::M 5 1 4 -40) (IRONCLAD::M 6 2 4 -48)
; (IRONCLAD::M 7 3 4 -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 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 4 0) (IRONCLAD::M 1 1 4 -8) (IRONCLAD::M 2 2 4 -16)
; (IRONCLAD::M 3 3 4 -24) (IRONCLAD::M 4 0 4 -32)
; (IRONCLAD::M 5 1 4 -40) (IRONCLAD::M 6 2 4 -48)
; (IRONCLAD::M 7 3 4 -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 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.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 4 0) (IRONCLAD::M 1 1 4 -8) (IRONCLAD::M 2 2 4 -16)
; (IRONCLAD::M 3 3 4 -24) (IRONCLAD::M 4 0 4 -32)
; (IRONCLAD::M 5 1 4 -40) (IRONCLAD::M 6 2 4 -48)
; (IRONCLAD::M 7 3 4 -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 4 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 4 0) (IRONCLAD::M 1 1 4 -8) (IRONCLAD::M 2 2 4 -16)
; (IRONCLAD::M 3 3 4 -24) (IRONCLAD::M 4 0 4 -32)
; (IRONCLAD::M 5 1 4 -40) (IRONCLAD::M 6 2 4 -48)
; (IRONCLAD::M 7 3 4 -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 4 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 4 0) (IRONCLAD::M 1 1 4 -8) (IRONCLAD::M 2 2 4 -16)
; (IRONCLAD::M 3 3 4 -24) (IRONCLAD::M 4 0 4 -32)
; (IRONCLAD::M 5 1 4 -40) (IRONCLAD::M 6 2 4 -48)
; (IRONCLAD::M 7 3 4 -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 5 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 1 1 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 5 0) (IRONCLAD::M 1 1 5 -8) (IRONCLAD::M 2 2 5 -16)
; (IRONCLAD::M 3 3 5 -24) (IRONCLAD::M 4 0 5 -32)
; (IRONCLAD::M 5 1 5 -40) (IRONCLAD::M 6 2 5 -48)
; (IRONCLAD::M 7 3 5 -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 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 5 0) (IRONCLAD::M 1 1 5 -8) (IRONCLAD::M 2 2 5 -16)
; (IRONCLAD::M 3 3 5 -24) (IRONCLAD::M 4 0 5 -32)
; (IRONCLAD::M 5 1 5 -40) (IRONCLAD::M 6 2 5 -48)
; (IRONCLAD::M 7 3 5 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 5 0) (IRONCLAD::M 1 1 5 -8) (IRONCLAD::M 2 2 5 -16)
; (IRONCLAD::M 3 3 5 -24) (IRONCLAD::M 4 0 5 -32)
; (IRONCLAD::M 5 1 5 -40) (IRONCLAD::M 6 2 5 -48)
; (IRONCLAD::M 7 3 5 -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 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 5 0) (IRONCLAD::M 1 1 5 -8) (IRONCLAD::M 2 2 5 -16)
; (IRONCLAD::M 3 3 5 -24) (IRONCLAD::M 4 0 5 -32)
; (IRONCLAD::M 5 1 5 -40) (IRONCLAD::M 6 2 5 -48)
; (IRONCLAD::M 7 3 5 -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 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.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 5 0) (IRONCLAD::M 1 1 5 -8) (IRONCLAD::M 2 2 5 -16)
; (IRONCLAD::M 3 3 5 -24) (IRONCLAD::M 4 0 5 -32)
; (IRONCLAD::M 5 1 5 -40) (IRONCLAD::M 6 2 5 -48)
; (IRONCLAD::M 7 3 5 -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 5 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 5 0) (IRONCLAD::M 1 1 5 -8) (IRONCLAD::M 2 2 5 -16)
; (IRONCLAD::M 3 3 5 -24) (IRONCLAD::M 4 0 5 -32)
; (IRONCLAD::M 5 1 5 -40) (IRONCLAD::M 6 2 5 -48)
; (IRONCLAD::M 7 3 5 -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 5 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 5 0) (IRONCLAD::M 1 1 5 -8) (IRONCLAD::M 2 2 5 -16)
; (IRONCLAD::M 3 3 5 -24) (IRONCLAD::M 4 0 5 -32)
; (IRONCLAD::M 5 1 5 -40) (IRONCLAD::M 6 2 5 -48)
; (IRONCLAD::M 7 3 5 -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 6 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 1 1 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 6 0) (IRONCLAD::M 1 1 6 -8) (IRONCLAD::M 2 2 6 -16)
; (IRONCLAD::M 3 3 6 -24) (IRONCLAD::M 4 0 6 -32)
; (IRONCLAD::M 5 1 6 -40) (IRONCLAD::M 6 2 6 -48)
; (IRONCLAD::M 7 3 6 -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 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 6 0) (IRONCLAD::M 1 1 6 -8) (IRONCLAD::M 2 2 6 -16)
; (IRONCLAD::M 3 3 6 -24) (IRONCLAD::M 4 0 6 -32)
; (IRONCLAD::M 5 1 6 -40) (IRONCLAD::M 6 2 6 -48)
; (IRONCLAD::M 7 3 6 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 6 0) (IRONCLAD::M 1 1 6 -8) (IRONCLAD::M 2 2 6 -16)
; (IRONCLAD::M 3 3 6 -24) (IRONCLAD::M 4 0 6 -32)
; (IRONCLAD::M 5 1 6 -40) (IRONCLAD::M 6 2 6 -48)
; (IRONCLAD::M 7 3 6 -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 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 6 0) (IRONCLAD::M 1 1 6 -8) (IRONCLAD::M 2 2 6 -16)
; (IRONCLAD::M 3 3 6 -24) (IRONCLAD::M 4 0 6 -32)
; (IRONCLAD::M 5 1 6 -40) (IRONCLAD::M 6 2 6 -48)
; (IRONCLAD::M 7 3 6 -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 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.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 6 0) (IRONCLAD::M 1 1 6 -8) (IRONCLAD::M 2 2 6 -16)
; (IRONCLAD::M 3 3 6 -24) (IRONCLAD::M 4 0 6 -32)
; (IRONCLAD::M 5 1 6 -40) (IRONCLAD::M 6 2 6 -48)
; (IRONCLAD::M 7 3 6 -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 6 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 6 0) (IRONCLAD::M 1 1 6 -8) (IRONCLAD::M 2 2 6 -16)
; (IRONCLAD::M 3 3 6 -24) (IRONCLAD::M 4 0 6 -32)
; (IRONCLAD::M 5 1 6 -40) (IRONCLAD::M 6 2 6 -48)
; (IRONCLAD::M 7 3 6 -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 6 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 6 0) (IRONCLAD::M 1 1 6 -8) (IRONCLAD::M 2 2 6 -16)
; (IRONCLAD::M 3 3 6 -24) (IRONCLAD::M 4 0 6 -32)
; (IRONCLAD::M 5 1 6 -40) (IRONCLAD::M 6 2 6 -48)
; (IRONCLAD::M 7 3 6 -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 7 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 1 1 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 7 0) (IRONCLAD::M 1 1 7 -8) (IRONCLAD::M 2 2 7 -16)
; (IRONCLAD::M 3 3 7 -24) (IRONCLAD::M 4 0 7 -32)
; (IRONCLAD::M 5 1 7 -40) (IRONCLAD::M 6 2 7 -48)
; (IRONCLAD::M 7 3 7 -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 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 7 0) (IRONCLAD::M 1 1 7 -8) (IRONCLAD::M 2 2 7 -16)
; (IRONCLAD::M 3 3 7 -24) (IRONCLAD::M 4 0 7 -32)
; (IRONCLAD::M 5 1 7 -40) (IRONCLAD::M 6 2 7 -48)
; (IRONCLAD::M 7 3 7 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 7 0) (IRONCLAD::M 1 1 7 -8) (IRONCLAD::M 2 2 7 -16)
; (IRONCLAD::M 3 3 7 -24) (IRONCLAD::M 4 0 7 -32)
; (IRONCLAD::M 5 1 7 -40) (IRONCLAD::M 6 2 7 -48)
; (IRONCLAD::M 7 3 7 -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 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 7 0) (IRONCLAD::M 1 1 7 -8) (IRONCLAD::M 2 2 7 -16)
; (IRONCLAD::M 3 3 7 -24) (IRONCLAD::M 4 0 7 -32)
; (IRONCLAD::M 5 1 7 -40) (IRONCLAD::M 6 2 7 -48)
; (IRONCLAD::M 7 3 7 -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 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.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 7 0) (IRONCLAD::M 1 1 7 -8) (IRONCLAD::M 2 2 7 -16)
; (IRONCLAD::M 3 3 7 -24) (IRONCLAD::M 4 0 7 -32)
; (IRONCLAD::M 5 1 7 -40) (IRONCLAD::M 6 2 7 -48)
; (IRONCLAD::M 7 3 7 -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 7 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 7 0) (IRONCLAD::M 1 1 7 -8) (IRONCLAD::M 2 2 7 -16)
; (IRONCLAD::M 3 3 7 -24) (IRONCLAD::M 4 0 7 -32)
; (IRONCLAD::M 5 1 7 -40) (IRONCLAD::M 6 2 7 -48)
; (IRONCLAD::M 7 3 7 -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 7 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 7 0) (IRONCLAD::M 1 1 7 -8) (IRONCLAD::M 2 2 7 -16)
; (IRONCLAD::M 3 3 7 -24) (IRONCLAD::M 4 0 7 -32)
; (IRONCLAD::M 5 1 7 -40) (IRONCLAD::M 6 2 7 -48)
; (IRONCLAD::M 7 3 7 -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-IG512))
; processing (DEFUN KALYNA-IG512 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFUN KALYNA-IG512
; (IRONCLAD::M 0 0 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 1 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 5 -40) (IRONCLAD::M 6 6 -48)
; (IRONCLAD::M 7 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 5 -40) (IRONCLAD::M 6 6 -48)
; (IRONCLAD::M 7 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 5 -40) (IRONCLAD::M 6 6 -48)
; (IRONCLAD::M 7 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 5 -40) (IRONCLAD::M 6 6 -48)
; (IRONCLAD::M 7 7 -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 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 5 -40) (IRONCLAD::M 6 6 -48)
; (IRONCLAD::M 7 7 -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 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.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 5 -40) (IRONCLAD::M 6 6 -48)
; (IRONCLAD::M 7 7 -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 6 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 5 -40) (IRONCLAD::M 6 6 -48)
; (IRONCLAD::M 7 7 -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 7 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 5 -40) (IRONCLAD::M 6 6 -48)
; (IRONCLAD::M 7 7 -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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 2 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 4 -24)
; (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 6 -40) (IRONCLAD::M 6 7 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 4 -24)
; (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 6 -40) (IRONCLAD::M 6 7 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 4 -24)
; (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 6 -40) (IRONCLAD::M 6 7 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 4 -24)
; (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 6 -40) (IRONCLAD::M 6 7 -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 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 4 -24)
; (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 6 -40) (IRONCLAD::M 6 7 -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 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.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 4 -24)
; (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 6 -40) (IRONCLAD::M 6 7 -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 7 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 4 -24)
; (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 6 -40) (IRONCLAD::M 6 7 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 4 -24)
; (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 6 -40) (IRONCLAD::M 6 7 -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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 3 -8) (IRONCLAD::M 2 4 -16) (IRONCLAD::M 3 5 -24)
; (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 7 -40) (IRONCLAD::M 6 0 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 4 -16) (IRONCLAD::M 3 5 -24)
; (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 7 -40) (IRONCLAD::M 6 0 -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 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 4 -16) (IRONCLAD::M 3 5 -24)
; (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 7 -40) (IRONCLAD::M 6 0 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 4 -16) (IRONCLAD::M 3 5 -24)
; (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 7 -40) (IRONCLAD::M 6 0 -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 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 4 -16) (IRONCLAD::M 3 5 -24)
; (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 7 -40) (IRONCLAD::M 6 0 -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 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.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 4 -16) (IRONCLAD::M 3 5 -24)
; (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 7 -40) (IRONCLAD::M 6 0 -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 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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 4 -16) (IRONCLAD::M 3 5 -24)
; (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 7 -40) (IRONCLAD::M 6 0 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 4 -16) (IRONCLAD::M 3 5 -24)
; (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 7 -40) (IRONCLAD::M 6 0 -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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 4 -8) (IRONCLAD::M 2 5 -16) (IRONCLAD::M 3 6 -24)
; (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 1 -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 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 5 -16) (IRONCLAD::M 3 6 -24)
; (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 1 -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 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 5 -16) (IRONCLAD::M 3 6 -24)
; (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 1 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 5 -16) (IRONCLAD::M 3 6 -24)
; (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 1 -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 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 5 -16) (IRONCLAD::M 3 6 -24)
; (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 1 -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 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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 5 -16) (IRONCLAD::M 3 6 -24)
; (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 1 -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 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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 5 -16) (IRONCLAD::M 3 6 -24)
; (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 1 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 5 -16) (IRONCLAD::M 3 6 -24)
; (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 1 -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 4 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 4)) (IRONCLAD::M 0 4 0)
; (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 6 -16) (IRONCLAD::M 3 7 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 2 -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 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 4)) (IRONCLAD::M 0 4 0)
; (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 6 -16) (IRONCLAD::M 3 7 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 2 -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 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 4)) (IRONCLAD::M 0 4 0)
; (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 6 -16) (IRONCLAD::M 3 7 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 2 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 4)) (IRONCLAD::M 0 4 0)
; (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 6 -16) (IRONCLAD::M 3 7 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 2 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 4)) (IRONCLAD::M 0 4 0)
; (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 6 -16) (IRONCLAD::M 3 7 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 2 -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 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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 4)) (IRONCLAD::M 0 4 0)
; (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 6 -16) (IRONCLAD::M 3 7 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 2 -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 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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 4)) (IRONCLAD::M 0 4 0)
; (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 6 -16) (IRONCLAD::M 3 7 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 2 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 4)) (IRONCLAD::M 0 4 0)
; (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 6 -16) (IRONCLAD::M 3 7 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 2 -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 5 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 5)) (IRONCLAD::M 0 5 0)
; (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 7 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 4 -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 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 5)) (IRONCLAD::M 0 5 0)
; (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 7 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 4 -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 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 5)) (IRONCLAD::M 0 5 0)
; (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 7 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 5)) (IRONCLAD::M 0 5 0)
; (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 7 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 5)) (IRONCLAD::M 0 5 0)
; (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 7 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 4 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 5)) (IRONCLAD::M 0 5 0)
; (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 7 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 4 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 5)) (IRONCLAD::M 0 5 0)
; (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 7 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 4 -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 4 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 5)) (IRONCLAD::M 0 5 0)
; (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 7 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 4 -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 6 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 6)) (IRONCLAD::M 0 6 0)
; (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 4 -48)
; (IRONCLAD::M 7 5 -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 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 6)) (IRONCLAD::M 0 6 0)
; (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 4 -48)
; (IRONCLAD::M 7 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 6)) (IRONCLAD::M 0 6 0)
; (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 4 -48)
; (IRONCLAD::M 7 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 6)) (IRONCLAD::M 0 6 0)
; (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 4 -48)
; (IRONCLAD::M 7 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 6)) (IRONCLAD::M 0 6 0)
; (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 4 -48)
; (IRONCLAD::M 7 5 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 6)) (IRONCLAD::M 0 6 0)
; (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 4 -48)
; (IRONCLAD::M 7 5 -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 4 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 6)) (IRONCLAD::M 0 6 0)
; (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 4 -48)
; (IRONCLAD::M 7 5 -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 5 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 6)) (IRONCLAD::M 0 6 0)
; (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 4 -48)
; (IRONCLAD::M 7 5 -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 7 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 7)) (IRONCLAD::M 0 7 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 4 -40) (IRONCLAD::M 6 5 -48)
; (IRONCLAD::M 7 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 7)) (IRONCLAD::M 0 7 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 4 -40) (IRONCLAD::M 6 5 -48)
; (IRONCLAD::M 7 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 7)) (IRONCLAD::M 0 7 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 4 -40) (IRONCLAD::M 6 5 -48)
; (IRONCLAD::M 7 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 7)) (IRONCLAD::M 0 7 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 4 -40) (IRONCLAD::M 6 5 -48)
; (IRONCLAD::M 7 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 7)) (IRONCLAD::M 0 7 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 4 -40) (IRONCLAD::M 6 5 -48)
; (IRONCLAD::M 7 6 -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 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.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 7)) (IRONCLAD::M 0 7 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 4 -40) (IRONCLAD::M 6 5 -48)
; (IRONCLAD::M 7 6 -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 5 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 7)) (IRONCLAD::M 0 7 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 4 -40) (IRONCLAD::M 6 5 -48)
; (IRONCLAD::M 7 6 -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 6 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 7)) (IRONCLAD::M 0 7 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 4 -40) (IRONCLAD::M 6 5 -48)
; (IRONCLAD::M 7 6 -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-IGL512))
; processing (DEFUN KALYNA-IGL512 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFUN KALYNA-IGL512
; (IRONCLAD::MOD64-
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 1 -8 8)
; (IRONCLAD::M 2 2 -16 16) (IRONCLAD::M 3 3 -24 24)
; (IRONCLAD::M 0 4 -32 32) (IRONCLAD::M 1 5 -40 40)
; (IRONCLAD::M 2 6 -48 48) (IRONCLAD::M 3 7 -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 2 -8 8)
; (IRONCLAD::M 2 3 -16 16) (IRONCLAD::M 3 4 -24 24)
; (IRONCLAD::M 0 5 -32 32) (IRONCLAD::M 1 6 -40 40)
; (IRONCLAD::M 2 7 -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 3 -8 8)
; (IRONCLAD::M 2 4 -16 16) (IRONCLAD::M 3 5 -24 24)
; (IRONCLAD::M 0 6 -32 32) (IRONCLAD::M 1 7 -40 40)
; (IRONCLAD::M 2 0 -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 4 -8 8)
; (IRONCLAD::M 2 5 -16 16) (IRONCLAD::M 3 6 -24 24)
; (IRONCLAD::M 0 7 -32 32) (IRONCLAD::M 1 0 -40 40)
; (IRONCLAD::M 2 1 -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::MOD64-
; (LOGXOR (IRONCLAD::M 0 4 0 0) (IRONCLAD::M 1 5 -8 8)
; (IRONCLAD::M 2 6 -16 16) (IRONCLAD::M 3 7 -24 24)
; (IRONCLAD::M 0 0 -32 32) (IRONCLAD::M 1 1 -40 40)
; (IRONCLAD::M 2 2 -48 48) (IRONCLAD::M 3 3 -56 56))
; (AREF IRONCLAD::K (+ IRONCLAD::K-START 4)))
; ==>
; 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 5 0 0) (IRONCLAD::M 1 6 -8 8)
; (IRONCLAD::M 2 7 -16 16) (IRONCLAD::M 3 0 -24 24)
; (IRONCLAD::M 0 1 -32 32) (IRONCLAD::M 1 2 -40 40)
; (IRONCLAD::M 2 3 -48 48) (IRONCLAD::M 3 4 -56 56))
; (AREF IRONCLAD::K (+ IRONCLAD::K-START 5)))
; ==>
; 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 6 0 0) (IRONCLAD::M 1 7 -8 8)
; (IRONCLAD::M 2 0 -16 16) (IRONCLAD::M 3 1 -24 24)
; (IRONCLAD::M 0 2 -32 32) (IRONCLAD::M 1 3 -40 40)
; (IRONCLAD::M 2 4 -48 48) (IRONCLAD::M 3 5 -56 56))
; (AREF IRONCLAD::K (+ IRONCLAD::K-START 6)))
; ==>
; 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 7 0 0) (IRONCLAD::M 1 0 -8 8)
; (IRONCLAD::M 2 1 -16 16) (IRONCLAD::M 3 2 -24 24)
; (IRONCLAD::M 0 3 -32 32) (IRONCLAD::M 1 4 -40 40)
; (IRONCLAD::M 2 5 -48 48) (IRONCLAD::M 3 6 -56 56))
; (AREF IRONCLAD::K (+ IRONCLAD::K-START 7)))
; ==>
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 0 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 1 -8 8) (IRONCLAD::M 2 2 -16 16)
; (IRONCLAD::M 3 3 -24 24) (IRONCLAD::M 0 4 -32 32)
; (IRONCLAD::M 1 5 -40 40) (IRONCLAD::M 2 6 -48 48)
; (IRONCLAD::M 3 7 -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 5 -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 (SIGNED-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 1 -8 8) (IRONCLAD::M 2 2 -16 16)
; (IRONCLAD::M 3 3 -24 24) (IRONCLAD::M 0 4 -32 32)
; (IRONCLAD::M 1 5 -40 40) (IRONCLAD::M 2 6 -48 48)
; (IRONCLAD::M 3 7 -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 6 -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 (SIGNED-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 1 -8 8) (IRONCLAD::M 2 2 -16 16)
; (IRONCLAD::M 3 3 -24 24) (IRONCLAD::M 0 4 -32 32)
; (IRONCLAD::M 1 5 -40 40) (IRONCLAD::M 2 6 -48 48)
; (IRONCLAD::M 3 7 -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 7 -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 (SIGNED-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 1 -8 8) (IRONCLAD::M 2 2 -16 16)
; (IRONCLAD::M 3 3 -24 24) (IRONCLAD::M 0 4 -32 32)
; (IRONCLAD::M 1 5 -40 40) (IRONCLAD::M 2 6 -48 48)
; (IRONCLAD::M 3 7 -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 1 -8 8)
; (IRONCLAD::M 2 2 -16 16) (IRONCLAD::M 3 3 -24 24)
; (IRONCLAD::M 0 4 -32 32) (IRONCLAD::M 1 5 -40 40)
; (IRONCLAD::M 2 6 -48 48) (IRONCLAD::M 3 7 -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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 3 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 0 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 2 -8 8) (IRONCLAD::M 2 3 -16 16)
; (IRONCLAD::M 3 4 -24 24) (IRONCLAD::M 0 5 -32 32)
; (IRONCLAD::M 1 6 -40 40) (IRONCLAD::M 2 7 -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 6 -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 (SIGNED-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 2 -8 8) (IRONCLAD::M 2 3 -16 16)
; (IRONCLAD::M 3 4 -24 24) (IRONCLAD::M 0 5 -32 32)
; (IRONCLAD::M 1 6 -40 40) (IRONCLAD::M 2 7 -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 7 -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 (SIGNED-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 2 -8 8) (IRONCLAD::M 2 3 -16 16)
; (IRONCLAD::M 3 4 -24 24) (IRONCLAD::M 0 5 -32 32)
; (IRONCLAD::M 1 6 -40 40) (IRONCLAD::M 2 7 -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 (SIGNED-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 2 -8 8) (IRONCLAD::M 2 3 -16 16)
; (IRONCLAD::M 3 4 -24 24) (IRONCLAD::M 0 5 -32 32)
; (IRONCLAD::M 1 6 -40 40) (IRONCLAD::M 2 7 -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 2 -8 8)
; (IRONCLAD::M 2 3 -16 16) (IRONCLAD::M 3 4 -24 24)
; (IRONCLAD::M 0 5 -32 32) (IRONCLAD::M 1 6 -40 40)
; (IRONCLAD::M 2 7 -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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 2 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 3 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 0 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 3 -8 8) (IRONCLAD::M 2 4 -16 16)
; (IRONCLAD::M 3 5 -24 24) (IRONCLAD::M 0 6 -32 32)
; (IRONCLAD::M 1 7 -40 40) (IRONCLAD::M 2 0 -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 7 -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 (SIGNED-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 3 -8 8) (IRONCLAD::M 2 4 -16 16)
; (IRONCLAD::M 3 5 -24 24) (IRONCLAD::M 0 6 -32 32)
; (IRONCLAD::M 1 7 -40 40) (IRONCLAD::M 2 0 -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 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 (SIGNED-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 3 -8 8) (IRONCLAD::M 2 4 -16 16)
; (IRONCLAD::M 3 5 -24 24) (IRONCLAD::M 0 6 -32 32)
; (IRONCLAD::M 1 7 -40 40) (IRONCLAD::M 2 0 -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 (SIGNED-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 3 -8 8) (IRONCLAD::M 2 4 -16 16)
; (IRONCLAD::M 3 5 -24 24) (IRONCLAD::M 0 6 -32 32)
; (IRONCLAD::M 1 7 -40 40) (IRONCLAD::M 2 0 -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 3 -8 8)
; (IRONCLAD::M 2 4 -16 16) (IRONCLAD::M 3 5 -24 24)
; (IRONCLAD::M 0 6 -32 32) (IRONCLAD::M 1 7 -40 40)
; (IRONCLAD::M 2 0 -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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 1 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 2 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 3 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 0 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 4 -8 8) (IRONCLAD::M 2 5 -16 16)
; (IRONCLAD::M 3 6 -24 24) (IRONCLAD::M 0 7 -32 32)
; (IRONCLAD::M 1 0 -40 40) (IRONCLAD::M 2 1 -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 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 (SIGNED-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 4 -8 8) (IRONCLAD::M 2 5 -16 16)
; (IRONCLAD::M 3 6 -24 24) (IRONCLAD::M 0 7 -32 32)
; (IRONCLAD::M 1 0 -40 40) (IRONCLAD::M 2 1 -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 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 (SIGNED-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 4 -8 8) (IRONCLAD::M 2 5 -16 16)
; (IRONCLAD::M 3 6 -24 24) (IRONCLAD::M 0 7 -32 32)
; (IRONCLAD::M 1 0 -40 40) (IRONCLAD::M 2 1 -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 (SIGNED-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 4 -8 8) (IRONCLAD::M 2 5 -16 16)
; (IRONCLAD::M 3 6 -24 24) (IRONCLAD::M 0 7 -32 32)
; (IRONCLAD::M 1 0 -40 40) (IRONCLAD::M 2 1 -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 4 -8 8)
; (IRONCLAD::M 2 5 -16 16) (IRONCLAD::M 3 6 -24 24)
; (IRONCLAD::M 0 7 -32 32) (IRONCLAD::M 1 0 -40 40)
; (IRONCLAD::M 2 1 -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.
; (IRONCLAD::M 0 4 0 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 1 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 2 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 3 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 4 0 0) (IRONCLAD::M 1 5 -8 8) (IRONCLAD::M 2 6 -16 16)
; (IRONCLAD::M 3 7 -24 24) (IRONCLAD::M 0 0 -32 32)
; (IRONCLAD::M 1 1 -40 40) (IRONCLAD::M 2 2 -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 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 (SIGNED-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 4 0 0) (IRONCLAD::M 1 5 -8 8) (IRONCLAD::M 2 6 -16 16)
; (IRONCLAD::M 3 7 -24 24) (IRONCLAD::M 0 0 -32 32)
; (IRONCLAD::M 1 1 -40 40) (IRONCLAD::M 2 2 -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 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 (SIGNED-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 4 0 0) (IRONCLAD::M 1 5 -8 8) (IRONCLAD::M 2 6 -16 16)
; (IRONCLAD::M 3 7 -24 24) (IRONCLAD::M 0 0 -32 32)
; (IRONCLAD::M 1 1 -40 40) (IRONCLAD::M 2 2 -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 (SIGNED-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 4 0 0) (IRONCLAD::M 1 5 -8 8) (IRONCLAD::M 2 6 -16 16)
; (IRONCLAD::M 3 7 -24 24) (IRONCLAD::M 0 0 -32 32)
; (IRONCLAD::M 1 1 -40 40) (IRONCLAD::M 2 2 -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 4 0 0) (IRONCLAD::M 1 5 -8 8)
; (IRONCLAD::M 2 6 -16 16) (IRONCLAD::M 3 7 -24 24)
; (IRONCLAD::M 0 0 -32 32) (IRONCLAD::M 1 1 -40 40)
; (IRONCLAD::M 2 2 -48 48) (IRONCLAD::M 3 3 -56 56))
; (AREF IRONCLAD::K (+ IRONCLAD::K-START 4)))
; ==>
; 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 5 0 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 1 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 2 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 5 0 0) (IRONCLAD::M 1 6 -8 8) (IRONCLAD::M 2 7 -16 16)
; (IRONCLAD::M 3 0 -24 24) (IRONCLAD::M 0 1 -32 32)
; (IRONCLAD::M 1 2 -40 40) (IRONCLAD::M 2 3 -48 48)
; (IRONCLAD::M 3 4 -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 (SIGNED-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 5 0 0) (IRONCLAD::M 1 6 -8 8) (IRONCLAD::M 2 7 -16 16)
; (IRONCLAD::M 3 0 -24 24) (IRONCLAD::M 0 1 -32 32)
; (IRONCLAD::M 1 2 -40 40) (IRONCLAD::M 2 3 -48 48)
; (IRONCLAD::M 3 4 -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 (SIGNED-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 5 0 0) (IRONCLAD::M 1 6 -8 8) (IRONCLAD::M 2 7 -16 16)
; (IRONCLAD::M 3 0 -24 24) (IRONCLAD::M 0 1 -32 32)
; (IRONCLAD::M 1 2 -40 40) (IRONCLAD::M 2 3 -48 48)
; (IRONCLAD::M 3 4 -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 4 -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 (SIGNED-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 5 0 0) (IRONCLAD::M 1 6 -8 8) (IRONCLAD::M 2 7 -16 16)
; (IRONCLAD::M 3 0 -24 24) (IRONCLAD::M 0 1 -32 32)
; (IRONCLAD::M 1 2 -40 40) (IRONCLAD::M 2 3 -48 48)
; (IRONCLAD::M 3 4 -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 5 0 0) (IRONCLAD::M 1 6 -8 8)
; (IRONCLAD::M 2 7 -16 16) (IRONCLAD::M 3 0 -24 24)
; (IRONCLAD::M 0 1 -32 32) (IRONCLAD::M 1 2 -40 40)
; (IRONCLAD::M 2 3 -48 48) (IRONCLAD::M 3 4 -56 56))
; (AREF IRONCLAD::K (+ IRONCLAD::K-START 5)))
; ==>
; 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 6 0 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD::M 1 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 6 0 0) (IRONCLAD::M 1 7 -8 8) (IRONCLAD::M 2 0 -16 16)
; (IRONCLAD::M 3 1 -24 24) (IRONCLAD::M 0 2 -32 32)
; (IRONCLAD::M 1 3 -40 40) (IRONCLAD::M 2 4 -48 48)
; (IRONCLAD::M 3 5 -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 (SIGNED-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 6 0 0) (IRONCLAD::M 1 7 -8 8) (IRONCLAD::M 2 0 -16 16)
; (IRONCLAD::M 3 1 -24 24) (IRONCLAD::M 0 2 -32 32)
; (IRONCLAD::M 1 3 -40 40) (IRONCLAD::M 2 4 -48 48)
; (IRONCLAD::M 3 5 -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 4 -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 (SIGNED-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 6 0 0) (IRONCLAD::M 1 7 -8 8) (IRONCLAD::M 2 0 -16 16)
; (IRONCLAD::M 3 1 -24 24) (IRONCLAD::M 0 2 -32 32)
; (IRONCLAD::M 1 3 -40 40) (IRONCLAD::M 2 4 -48 48)
; (IRONCLAD::M 3 5 -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 5 -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 (SIGNED-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 6 0 0) (IRONCLAD::M 1 7 -8 8) (IRONCLAD::M 2 0 -16 16)
; (IRONCLAD::M 3 1 -24 24) (IRONCLAD::M 0 2 -32 32)
; (IRONCLAD::M 1 3 -40 40) (IRONCLAD::M 2 4 -48 48)
; (IRONCLAD::M 3 5 -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 6 0 0) (IRONCLAD::M 1 7 -8 8)
; (IRONCLAD::M 2 0 -16 16) (IRONCLAD::M 3 1 -24 24)
; (IRONCLAD::M 0 2 -32 32) (IRONCLAD::M 1 3 -40 40)
; (IRONCLAD::M 2 4 -48 48) (IRONCLAD::M 3 5 -56 56))
; (AREF IRONCLAD::K (+ IRONCLAD::K-START 6)))
; ==>
; 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 7 0 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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 7 0 0) (IRONCLAD::M 1 0 -8 8) (IRONCLAD::M 2 1 -16 16)
; (IRONCLAD::M 3 2 -24 24) (IRONCLAD::M 0 3 -32 32)
; (IRONCLAD::M 1 4 -40 40) (IRONCLAD::M 2 5 -48 48)
; (IRONCLAD::M 3 6 -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 4 -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 (SIGNED-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 7 0 0) (IRONCLAD::M 1 0 -8 8) (IRONCLAD::M 2 1 -16 16)
; (IRONCLAD::M 3 2 -24 24) (IRONCLAD::M 0 3 -32 32)
; (IRONCLAD::M 1 4 -40 40) (IRONCLAD::M 2 5 -48 48)
; (IRONCLAD::M 3 6 -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 5 -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 (SIGNED-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 7 0 0) (IRONCLAD::M 1 0 -8 8) (IRONCLAD::M 2 1 -16 16)
; (IRONCLAD::M 3 2 -24 24) (IRONCLAD::M 0 3 -32 32)
; (IRONCLAD::M 1 4 -40 40) (IRONCLAD::M 2 5 -48 48)
; (IRONCLAD::M 3 6 -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 6 -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 (SIGNED-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 7 0 0) (IRONCLAD::M 1 0 -8 8) (IRONCLAD::M 2 1 -16 16)
; (IRONCLAD::M 3 2 -24 24) (IRONCLAD::M 0 3 -32 32)
; (IRONCLAD::M 1 4 -40 40) (IRONCLAD::M 2 5 -48 48)
; (IRONCLAD::M 3 6 -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 7 0 0) (IRONCLAD::M 1 0 -8 8)
; (IRONCLAD::M 2 1 -16 16) (IRONCLAD::M 3 2 -24 24)
; (IRONCLAD::M 0 3 -32 32) (IRONCLAD::M 1 4 -40 40)
; (IRONCLAD::M 2 5 -48 48) (IRONCLAD::M 3 6 -56 56))
; (AREF IRONCLAD::K (+ IRONCLAD::K-START 7)))
; ==>
; 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 1 -8 8) (IRONCLAD::M 2 2 -16 16)
; (IRONCLAD::M 3 3 -24 24) (IRONCLAD::M 0 4 -32 32)
; (IRONCLAD::M 1 5 -40 40) (IRONCLAD::M 2 6 -48 48)
; (IRONCLAD::M 3 7 -56 56))
;
; note: doing unsigned word to integer coercion (cost 20)
; (LOGXOR (IRONCLAD::M 0 1 0 0) (IRONCLAD::M 1 2 -8 8) (IRONCLAD::M 2 3 -16 16)
; (IRONCLAD::M 3 4 -24 24) (IRONCLAD::M 0 5 -32 32)
; (IRONCLAD::M 1 6 -40 40) (IRONCLAD::M 2 7 -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 3 -8 8) (IRONCLAD::M 2 4 -16 16)
; (IRONCLAD::M 3 5 -24 24) (IRONCLAD::M 0 6 -32 32)
; (IRONCLAD::M 1 7 -40 40) (IRONCLAD::M 2 0 -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 4 -8 8) (IRONCLAD::M 2 5 -16 16)
; (IRONCLAD::M 3 6 -24 24) (IRONCLAD::M 0 7 -32 32)
; (IRONCLAD::M 1 0 -40 40) (IRONCLAD::M 2 1 -48 48)
; (IRONCLAD::M 3 2 -56 56))
;
; note: doing unsigned word to integer coercion (cost 20)
; (LOGXOR (IRONCLAD::M 0 4 0 0) (IRONCLAD::M 1 5 -8 8) (IRONCLAD::M 2 6 -16 16)
; (IRONCLAD::M 3 7 -24 24) (IRONCLAD::M 0 0 -32 32)
; (IRONCLAD::M 1 1 -40 40) (IRONCLAD::M 2 2 -48 48)
; (IRONCLAD::M 3 3 -56 56))
;
; note: doing unsigned word to integer coercion (cost 20)
; (LOGXOR (IRONCLAD::M 0 5 0 0) (IRONCLAD::M 1 6 -8 8) (IRONCLAD::M 2 7 -16 16)
; (IRONCLAD::M 3 0 -24 24) (IRONCLAD::M 0 1 -32 32)
; (IRONCLAD::M 1 2 -40 40) (IRONCLAD::M 2 3 -48 48)
; (IRONCLAD::M 3 4 -56 56))
;
; note: doing unsigned word to integer coercion (cost 20)
; (LOGXOR (IRONCLAD::M 0 6 0 0) (IRONCLAD::M 1 7 -8 8) (IRONCLAD::M 2 0 -16 16)
; (IRONCLAD::M 3 1 -24 24) (IRONCLAD::M 0 2 -32 32)
; (IRONCLAD::M 1 3 -40 40) (IRONCLAD::M 2 4 -48 48)
; (IRONCLAD::M 3 5 -56 56))
;
; note: doing unsigned word to integer coercion (cost 20)
; (LOGXOR (IRONCLAD::M 0 7 0 0) (IRONCLAD::M 1 0 -8 8) (IRONCLAD::M 2 1 -16 16)
; (IRONCLAD::M 3 2 -24 24) (IRONCLAD::M 0 3 -32 32)
; (IRONCLAD::M 1 4 -40 40) (IRONCLAD::M 2 5 -48 48)
; (IRONCLAD::M 3 6 -56 56))
;
; note: doing unsigned word to integer coercion (cost 20)
; processing (DECLAIM (INLINE KALYNA-G512))
; processing (DEFUN KALYNA-G512 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFUN KALYNA-G512
; (IRONCLAD::M 0 0 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 7 -8) (IRONCLAD::M 2 6 -16) (IRONCLAD::M 3 5 -24)
; (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 2 -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 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 6 -16) (IRONCLAD::M 3 5 -24)
; (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 2 -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 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 6 -16) (IRONCLAD::M 3 5 -24)
; (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 2 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 6 -16) (IRONCLAD::M 3 5 -24)
; (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 2 -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 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 6 -16) (IRONCLAD::M 3 5 -24)
; (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 2 -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 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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 6 -16) (IRONCLAD::M 3 5 -24)
; (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 2 -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 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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 6 -16) (IRONCLAD::M 3 5 -24)
; (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 2 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 7 -8) (IRONCLAD::M 2 6 -16) (IRONCLAD::M 3 5 -24)
; (IRONCLAD::M 4 4 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 2 -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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 0 -8) (IRONCLAD::M 2 7 -16) (IRONCLAD::M 3 6 -24)
; (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40) (IRONCLAD::M 6 3 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 7 -16) (IRONCLAD::M 3 6 -24)
; (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40) (IRONCLAD::M 6 3 -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 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 7 -16) (IRONCLAD::M 3 6 -24)
; (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40) (IRONCLAD::M 6 3 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 7 -16) (IRONCLAD::M 3 6 -24)
; (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40) (IRONCLAD::M 6 3 -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 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 7 -16) (IRONCLAD::M 3 6 -24)
; (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40) (IRONCLAD::M 6 3 -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 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.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 7 -16) (IRONCLAD::M 3 6 -24)
; (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40) (IRONCLAD::M 6 3 -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 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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 7 -16) (IRONCLAD::M 3 6 -24)
; (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40) (IRONCLAD::M 6 3 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 7 -16) (IRONCLAD::M 3 6 -24)
; (IRONCLAD::M 4 5 -32) (IRONCLAD::M 5 4 -40) (IRONCLAD::M 6 3 -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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 1 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 7 -24)
; (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40) (IRONCLAD::M 6 4 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 7 -24)
; (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40) (IRONCLAD::M 6 4 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 7 -24)
; (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40) (IRONCLAD::M 6 4 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 7 -24)
; (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40) (IRONCLAD::M 6 4 -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 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 7 -24)
; (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40) (IRONCLAD::M 6 4 -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 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.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 7 -24)
; (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40) (IRONCLAD::M 6 4 -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 4 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 7 -24)
; (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40) (IRONCLAD::M 6 4 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 7 -24)
; (IRONCLAD::M 4 6 -32) (IRONCLAD::M 5 5 -40) (IRONCLAD::M 6 4 -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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 2 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40) (IRONCLAD::M 6 5 -48)
; (IRONCLAD::M 7 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40) (IRONCLAD::M 6 5 -48)
; (IRONCLAD::M 7 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40) (IRONCLAD::M 6 5 -48)
; (IRONCLAD::M 7 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40) (IRONCLAD::M 6 5 -48)
; (IRONCLAD::M 7 4 -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 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40) (IRONCLAD::M 6 5 -48)
; (IRONCLAD::M 7 4 -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 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.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40) (IRONCLAD::M 6 5 -48)
; (IRONCLAD::M 7 4 -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 5 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40) (IRONCLAD::M 6 5 -48)
; (IRONCLAD::M 7 4 -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 4 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 7 -32) (IRONCLAD::M 5 6 -40) (IRONCLAD::M 6 5 -48)
; (IRONCLAD::M 7 4 -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 4 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 4)) (IRONCLAD::M 0 4 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40) (IRONCLAD::M 6 6 -48)
; (IRONCLAD::M 7 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 4)) (IRONCLAD::M 0 4 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40) (IRONCLAD::M 6 6 -48)
; (IRONCLAD::M 7 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 4)) (IRONCLAD::M 0 4 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40) (IRONCLAD::M 6 6 -48)
; (IRONCLAD::M 7 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 4)) (IRONCLAD::M 0 4 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40) (IRONCLAD::M 6 6 -48)
; (IRONCLAD::M 7 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 4)) (IRONCLAD::M 0 4 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40) (IRONCLAD::M 6 6 -48)
; (IRONCLAD::M 7 5 -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 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.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 4)) (IRONCLAD::M 0 4 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40) (IRONCLAD::M 6 6 -48)
; (IRONCLAD::M 7 5 -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 6 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 4)) (IRONCLAD::M 0 4 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40) (IRONCLAD::M 6 6 -48)
; (IRONCLAD::M 7 5 -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 5 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 4)) (IRONCLAD::M 0 4 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 7 -40) (IRONCLAD::M 6 6 -48)
; (IRONCLAD::M 7 5 -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 5 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 5)) (IRONCLAD::M 0 5 0)
; (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 7 -48)
; (IRONCLAD::M 7 6 -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 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 5)) (IRONCLAD::M 0 5 0)
; (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 7 -48)
; (IRONCLAD::M 7 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 5)) (IRONCLAD::M 0 5 0)
; (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 7 -48)
; (IRONCLAD::M 7 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 5)) (IRONCLAD::M 0 5 0)
; (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 7 -48)
; (IRONCLAD::M 7 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 5)) (IRONCLAD::M 0 5 0)
; (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 7 -48)
; (IRONCLAD::M 7 6 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 5)) (IRONCLAD::M 0 5 0)
; (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 7 -48)
; (IRONCLAD::M 7 6 -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 7 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 5)) (IRONCLAD::M 0 5 0)
; (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 7 -48)
; (IRONCLAD::M 7 6 -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 6 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 5)) (IRONCLAD::M 0 5 0)
; (IRONCLAD::M 1 4 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 7 -48)
; (IRONCLAD::M 7 6 -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 6 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 6)) (IRONCLAD::M 0 6 0)
; (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 7 -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 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 6)) (IRONCLAD::M 0 6 0)
; (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 7 -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 4 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 6)) (IRONCLAD::M 0 6 0)
; (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 6)) (IRONCLAD::M 0 6 0)
; (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 7 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 6)) (IRONCLAD::M 0 6 0)
; (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 7 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 6)) (IRONCLAD::M 0 6 0)
; (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 7 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 6)) (IRONCLAD::M 0 6 0)
; (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 7 -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 7 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 6)) (IRONCLAD::M 0 6 0)
; (IRONCLAD::M 1 5 -8) (IRONCLAD::M 2 4 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 7 -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 7 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 7)) (IRONCLAD::M 0 7 0)
; (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16) (IRONCLAD::M 3 4 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 1 -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 6 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 7)) (IRONCLAD::M 0 7 0)
; (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16) (IRONCLAD::M 3 4 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 1 -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 5 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 7)) (IRONCLAD::M 0 7 0)
; (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16) (IRONCLAD::M 3 4 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 1 -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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 7)) (IRONCLAD::M 0 7 0)
; (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16) (IRONCLAD::M 3 4 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 1 -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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 7)) (IRONCLAD::M 0 7 0)
; (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16) (IRONCLAD::M 3 4 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 1 -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 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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 7)) (IRONCLAD::M 0 7 0)
; (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16) (IRONCLAD::M 3 4 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 1 -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 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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 7)) (IRONCLAD::M 0 7 0)
; (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16) (IRONCLAD::M 3 4 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 1 -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 (SIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 7)) (IRONCLAD::M 0 7 0)
; (IRONCLAD::M 1 6 -8) (IRONCLAD::M 2 5 -16) (IRONCLAD::M 3 4 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 1 -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 KALYNA512 ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFMETHOD SCHEDULE-KEY (KALYNA512 T)
; (IRONCLAD::KALYNA-GL512 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 144
; IRONCLAD::KSC 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).
;
; 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-GL512 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).
;
; 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-GL512 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 0
; IRONCLAD::KSC 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).
;
; 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-GL512 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS
; IRONCLAD::N IRONCLAD::KSC 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).
;
; 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-G512 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KSC 0)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-GL512 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS
; IRONCLAD::N IRONCLAD::KSC 0)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 8 IRONCLAD::ENCRYPTION-ROUND-KEYS IRONCLAD::N
; IRONCLAD::ENCRYPTION-ROUND-KEYS (+ IRONCLAD::N 8))
; --> BLOCK MACROLET ECASE LET COND IF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF IF PROGN IRONCLAD::M SETF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF IF PROGN IRONCLAD::M SETF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF IF PROGN IRONCLAD::M SETF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF IF PROGN IRONCLAD::M SETF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF IF PROGN IRONCLAD::M SETF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF IF PROGN IRONCLAD::M SETF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF IF PROGN IRONCLAD::M SETF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF IF PROGN IRONCLAD::M SETF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G512 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KEY 0)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-GL512 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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-G0512 IRONCLAD::T2 IRONCLAD::KS)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-G512 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KSC 0)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-GL512 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 0
; IRONCLAD::KSC 0)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 8 IRONCLAD::ENCRYPTION-ROUND-KEYS 0
; IRONCLAD::ENCRYPTION-ROUND-KEYS 8)
; --> BLOCK MACROLET ECASE LET COND IF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF IF PROGN IRONCLAD::M SETF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF IF PROGN IRONCLAD::M SETF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF IF PROGN IRONCLAD::M SETF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF IF PROGN IRONCLAD::M SETF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF IF PROGN IRONCLAD::M SETF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF IF PROGN IRONCLAD::M SETF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF IF PROGN IRONCLAD::M SETF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF IF PROGN IRONCLAD::M SETF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF 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 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G512 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KSC 0)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-GL512 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 144
; IRONCLAD::KSC 0)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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-IMC512 IRONCLAD::DECRYPTION-ROUND-KEYS IRONCLAD::N)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 KALYNA512 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFINE-BLOCK-ENCRYPTOR KALYNA512
; (IRONCLAD::KALYNA-ADD-KEY 8 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).
;
; 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:UB64REF/LE IRONCLAD::PLAINTEXT (+ IRONCLAD::PLAINTEXT-START 40))
; --> 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:UB64REF/LE IRONCLAD::PLAINTEXT (+ IRONCLAD::PLAINTEXT-START 8))
; --> 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:UB64REF/LE IRONCLAD::PLAINTEXT (+ IRONCLAD::PLAINTEXT-START 32))
; --> 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: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-GL512 IRONCLAD::T2 IRONCLAD::T1 0
; IRONCLAD::ENCRYPTION-ROUND-KEYS 144)
; --> 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).
;
; 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 16))
; --> 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:UB64REF/LE IRONCLAD::PLAINTEXT (+ IRONCLAD::PLAINTEXT-START 56))
; --> 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:UB64REF/LE IRONCLAD::PLAINTEXT (+ IRONCLAD::PLAINTEXT-START 48))
; --> 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:UB64REF/LE IRONCLAD::PLAINTEXT (+ IRONCLAD::PLAINTEXT-START 24))
; --> 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-ADD-KEY 8 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.
;
; 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-G512 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 8)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-G512 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 16)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-G512 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 24)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-G512 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 32)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-G512 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 40)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-G512 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 48)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-G512 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 56)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-G512 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 64)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-G512 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 72)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-G512 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 80)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-G512 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 88)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-G512 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 96)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-G512 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 104)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-G512 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 112)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-G512 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 120)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-G512 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 128)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-G512 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 136)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-GL512 IRONCLAD::T2 IRONCLAD::T1 0
; IRONCLAD::ENCRYPTION-ROUND-KEYS 144)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; 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)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 32))
; (AREF IRONCLAD::T1 4)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 40))
; (AREF IRONCLAD::T1 5)
; ...)
; --> SETF LET* FUNCALL
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 32))
; (AREF IRONCLAD::T1 4)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 40))
; (AREF IRONCLAD::T1 5)
; ...)
; --> SETF LET* FUNCALL
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 32))
; (AREF IRONCLAD::T1 4)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 40))
; (AREF IRONCLAD::T1 5)
; ...)
; --> SETF LET* FUNCALL
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 32))
; (AREF IRONCLAD::T1 4)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 40))
; (AREF IRONCLAD::T1 5)
; ...)
; --> SETF LET* FUNCALL
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (AREF IRONCLAD::T1 4)
;
; 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)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 32))
; (AREF IRONCLAD::T1 4)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 40))
; (AREF IRONCLAD::T1 5)
; ...)
; --> SETF LET* FUNCALL
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (AREF IRONCLAD::T1 5)
;
; 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)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 32))
; (AREF IRONCLAD::T1 4)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 40))
; (AREF IRONCLAD::T1 5)
; ...)
; --> SETF LET* FUNCALL
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (AREF IRONCLAD::T1 6)
;
; 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)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 32))
; (AREF IRONCLAD::T1 4)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 40))
; (AREF IRONCLAD::T1 5)
; ...)
; --> SETF LET* FUNCALL
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
; (AREF IRONCLAD::T1 7)
;
; 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)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 32))
; (AREF IRONCLAD::T1 4)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 40))
; (AREF IRONCLAD::T1 5)
; ...)
; --> SETF LET* FUNCALL
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; unable to do #1# (cost 3) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; 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))
; --> 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 16))
; --> 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 24))
; --> 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 32))
; --> 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 40))
; --> 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 48))
; --> 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 56))
; --> BLOCK DPB
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
; processing (DEFINE-BLOCK-DECRYPTOR KALYNA512 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFINE-BLOCK-DECRYPTOR KALYNA512
; (IRONCLAD::KALYNA-SUB-KEY 8 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 144)
; --> 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).
;
; 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:UB64REF/LE IRONCLAD::CIPHERTEXT (+ IRONCLAD::CIPHERTEXT-START 24))
; --> 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:UB64REF/LE IRONCLAD::CIPHERTEXT (+ IRONCLAD::CIPHERTEXT-START 16))
; --> 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-IGL512 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).
;
; 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).
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT (+ IRONCLAD::CIPHERTEXT-START 40))
; --> 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:UB64REF/LE IRONCLAD::CIPHERTEXT (+ IRONCLAD::CIPHERTEXT-START 48))
; --> 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:UB64REF/LE IRONCLAD::CIPHERTEXT (+ IRONCLAD::CIPHERTEXT-START 8))
; --> 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:UB64REF/LE IRONCLAD::CIPHERTEXT (+ IRONCLAD::CIPHERTEXT-START 56))
; --> 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:UB64REF/LE IRONCLAD::CIPHERTEXT (+ IRONCLAD::CIPHERTEXT-START 32))
; --> 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-SUB-KEY 8 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 144)
; --> 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.
;
; 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-IMC512 IRONCLAD::T1 0)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) 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 first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-IG512 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::DECRYPTION-ROUND-KEYS 136)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-IG512 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 128)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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-IG512 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::DECRYPTION-ROUND-KEYS 120)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) 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 inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES 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 (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2#), not a (VALUES
; (SIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&