Input buildinfo: https://buildinfos.debian.net/buildinfo-pool/p/pgloader/pgloader_3.6.3-1+b1_amd64.buildinfo Use metasnap for getting required timestamps New buildinfo file: /tmp/pgloader-3.6.3-1+b1pe5fhgiw/pgloader_3.6.3-1+b1_amd64.buildinfo Get source package info: pgloader=3.6.3-1 Source URL: http://snapshot.notset.fr/mr/package/pgloader/3.6.3-1/srcfiles?fileinfo=1 env -i PATH=/usr/sbin:/usr/bin:/sbin:/bin TMPDIR=/tmp mmdebstrap --arch=amd64 --include=autoconf=2.71-2 automake=1:1.16.5-1.3 autopoint=0.21-6 autotools-dev=20220109.1 base-files=12.2 base-passwd=3.5.52 bash=5.1-6+b1 binutils=2.38-4 binutils-common=2.38-4 binutils-x86-64-linux-gnu=2.38-4 bsdextrautils=2.38-4 bsdutils=1:2.38-4 build-essential=12.9 buildapp=1.5.6-3 bzip2=1.0.8-5 ca-certificates=20211016 cl-abnf=20200229.gitba1fbb1-1 cl-alexandria=20211025.gita67c3a6-1 cl-anaphora=20210111.gitab5f07e-1 cl-asdf=2:3.3.5-1 cl-asdf-finalizers=20170403-1.1 cl-asdf-system-connections=20170124-1.1 cl-babel=20200719.gitf892d05-2 cl-base64=3.4.0-1 cl-bordeaux-threads=0.8.8-5 cl-cffi=1:0.24.1-2 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=20201106.git70a1137-1 cl-ironclad=0.57-1 cl-iterate=20210519.gitb0f9a9c-1 cl-ixf=20180228-1.1 cl-kmrcl=1.111-2 cl-local-time=20180228-1.1 cl-log=1.0.1-1.1 cl-lparallel=20160825-1.1 cl-markdown=20101006-2.1 cl-md5=1:20210622.git906593f-1 cl-metabang-bind=20200101.git9ab6e64-1 cl-metatilities-base=20170403-1.1 cl-mssql=20180228-1.1 cl-mustache=0.12.1-9-g684f227-1.1 cl-named-readtables=20201221.gitc5689a4-1 cl-parse-number=1.7-1.1 cl-plus-ssl=20220328.git8b91648-3 cl-postgres=20211113.git9d4332f-1 cl-postmodern=20211113.git9d4332f-1 cl-ppcre=20220126.gitb4056c5-1 cl-puri=1:1.5.7.2-1 cl-py-configparser=20170830-1.1 cl-qmynd=20180131-1.1 cl-quri=20150804-1.1 cl-rt=20090812.gita6a7503-1 cl-s-sql=20211113.git9d4332f-1 cl-simple-date=20211113.git9d4332f-1 cl-split-sequence=1:2.0.1-1 cl-sqlite=20130615-2.1 cl-trivial-backtrace=20200511.git6eb65bd-1 cl-trivial-features=20210228.gitf6e8dd7-2 cl-trivial-garbage=20211229.gitb3af9c0-1 cl-trivial-gray-streams=20210117.git2b3823e-1 cl-trivial-utf-8=20111001-1.1 cl-uax-15=0~20211021.git75c8a87-3 cl-unicode=20201101.git54bdf2c-1 cl-usocket=0.8.3-2 cl-utilities=1.2.4-3.2 cl-uuid=20130813-1.1 cl-yason=0.7.6-1.1 cl-zs3=1.3.1-1.1 coreutils=8.32-4.1 cpp=4:11.2.0-2 cpp-11=11.3.0-1 dash=0.5.11+git20210903+057cd650a4ed-8 debconf=1.5.79 debhelper=13.7.1 debianutils=5.7-0.2 dh-autoreconf=20 dh-strip-nondeterminism=1.13.0-1 diffutils=1:3.7-5 docutils-common=0.17.1+dfsg-2 dpkg=1.21.7 dpkg-dev=1.21.7 dwz=0.14-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:11.2.0-2 g++-11=11.3.0-1 gawk=1:5.1.0-1 gcc=4:11.2.0-2 gcc-11=11.3.0-1 gcc-11-base=11.3.0-1 gcc-12-base=12.1.0-1 gettext=0.21-6 gettext-base=0.21-6 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.62 intltool-debian=0.35.0+20060710.5 libacl1=2.3.1-1 libarchive-zip-perl=1.68-1 libasan6=11.3.0-1 libatomic1=12.1.0-1 libattr1=1:2.5.1-1 libaudit-common=1:3.0.7-1 libaudit1=1:3.0.7-1+b1 libbinutils=2.38-4 libblkid1=2.38-4 libbz2-1.0=1.0.8-5 libc-bin=2.33-7 libc-dev-bin=2.33-7 libc6=2.33-7 libc6-dev=2.33-7 libcap-ng0=0.7.9-2.2+b2 libcap2=1:2.44-1 libcc1-0=12.1.0-1 libcom-err2=1.46.5-2 libcrypt-dev=1:4.4.27-1.1 libcrypt1=1:4.4.27-1.1 libct4=1.3.6-1.1 libctf-nobfd0=2.38-4 libctf0=2.38-4 libdb5.3=5.3.28+dfsg1-0.8 libdebconfclient0=0.262 libdebhelper-perl=13.7.1 libdpkg-perl=1.21.7 libelf1=0.187-1 libexpat1=2.4.8-1 libffi-dev=3.4.2-4 libffi8=3.4.2-4 libfile-stripnondeterminism-perl=1.13.0-1 libgcc-11-dev=11.3.0-1 libgcc-s1=12.1.0-1 libgcrypt20=1.10.1-2 libgdbm-compat4=1.23-1 libgdbm6=1.23-1 libglib2.0-0=2.72.1-1 libgmp10=2:6.2.1+dfsg-3 libgnutls30=3.7.4-2 libgomp1=12.1.0-1 libgpg-error0=1.45-2 libgssapi-krb5-2=1.19.2-2+b1 libhogweed6=3.7.3-1 libicu71=71.1-3 libidn2-0=2.3.2-2 libisl23=0.24-2 libitm1=12.1.0-1 libjs-jquery=3.6.0+dfsg+~3.5.13-1 libjs-sphinxdoc=4.5.0-3 libjs-underscore=1.13.3~dfsg+~1.11.4-1 libk5crypto3=1.19.2-2+b1 libkeyutils1=1.6.1-3 libkrb5-3=1.19.2-2+b1 libkrb5support0=1.19.2-2+b1 liblocale-gettext-perl=1.07-4+b2 liblsan0=12.1.0-1 liblz4-1=1.9.3-2 liblzma5=5.2.5-2.1 libmagic-mgc=1:5.41-4 libmagic1=1:5.41-4 libmount1=2.38-4 libmpc3=1.2.1-2 libmpdec3=2.5.1-2 libmpfr6=4.1.0-3 libncursesw6=6.3+20220423-2 libnettle8=3.7.3-1 libnsl-dev=1.3.0-2 libnsl2=1.3.0-2 libp11-kit0=0.24.1-1 libpam-modules=1.4.0-13 libpam-modules-bin=1.4.0-13 libpam-runtime=1.4.0-13 libpam0g=1.4.0-13 libpcre2-8-0=10.40-1 libpcre3=2:8.39-14 libperl5.34=5.34.0-4 libpipeline1=1.5.6-1 libpython3-stdlib=3.10.4-1+b1 libpython3.10-minimal=3.10.4-4+b1 libpython3.10-stdlib=3.10.4-4+b1 libquadmath0=12.1.0-1 libreadline8=8.1.2-1.2 libseccomp2=2.5.4-1 libselinux1=3.3-1+b2 libsigsegv2=2.14-1 libsmartcols1=2.38-4 libsqlite3-0=3.38.5-1 libssl1.1=1.1.1o-1 libssl3=3.0.3-2 libstdc++-11-dev=11.3.0-1 libstdc++6=12.1.0-1 libsub-override-perl=0.09-2 libsybdb5=1.3.6-1.1 libsystemd0=250.4-1 libtasn1-6=4.18.0-4 libtinfo6=6.3+20220423-2 libtirpc-common=1.3.2-2 libtirpc-dev=1.3.2-2 libtirpc3=1.3.2-2 libtool=2.4.7-4 libtsan0=11.3.0-1 libubsan1=12.1.0-1 libuchardet0=0.0.7-1 libudev1=250.4-1 libunicode-escape-perl=0.0.2-4.1 libunicode-string-perl=2.10-1+b7 libunistring2=1.0-1 libuuid1=2.38-4 libxml2=2.9.14+dfsg-1 libzstd1=1.5.2+dfsg-1 linux-libc-dev=5.17.3-1 login=1:4.11.1+dfsg1-2 lsb-base=11.1.0 m4=1.4.18-5 make=4.3-4.1 man-db=2.10.2-1 mawk=1.3.4.20200120-3+b1 media-types=7.1.0 ncurses-base=6.3+20220423-2 ncurses-bin=6.3+20220423-2 openssl=1.1.1o-1 patch=2.7.6-7 perl=5.34.0-4 perl-base=5.34.0-4 perl-modules-5.34=5.34.0-4 pkg-config=0.29.2-1 po-debconf=1.0.21+nmu1 python-babel-localedata=2.8.0+dfsg.1-7 python3=3.10.4-1+b1 python3-alabaster=0.7.12-1 python3-babel=2.8.0+dfsg.1-7 python3-certifi=2020.6.20-1 python3-chardet=4.0.0-2 python3-charset-normalizer=2.0.6-2 python3-distutils=3.9.12-1 python3-docutils=0.17.1+dfsg-2 python3-idna=3.3-1 python3-imagesize=1.3.0-1 python3-importlib-metadata=4.6.4-1 python3-jinja2=3.0.3-1 python3-lib2to3=3.9.12-1 python3-markupsafe=2.0.1-2+b1 python3-minimal=3.10.4-1+b1 python3-more-itertools=8.10.0-2 python3-packaging=21.3-1 python3-pkg-resources=59.6.0-1.2 python3-pygments=2.11.2+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-3 python3-snowballstemmer=2.2.0-1 python3-sphinx=4.5.0-3 python3-sphinx-rtd-theme=1.0.0+dfsg-1 python3-tz=2022.1-1 python3-urllib3=1.26.9-1 python3-zipp=1.0.0-3 python3.10=3.10.4-4+b1 python3.10-minimal=3.10.4-4+b1 readline-common=8.1.2-1.2 rpcsvc-proto=1.4.2-4 sbcl=2:2.2.3-1 sed=4.8-1 sensible-utils=0.0.17 sgml-base=1.30 sphinx-common=4.5.0-3 sphinx-rtd-theme-common=1.0.0+dfsg-1 sysvinit-utils=3.03-1 tar=1.34+dfsg-1 tzdata=2022a-1 util-linux=2.38-4 util-linux-extra=2.38-4 xml-core=0.18+nmu1 xz-utils=5.2.5-2.1 zlib1g=1:1.2.11.dfsg-4 zlib1g-dev=1:1.2.11.dfsg-4 --variant=apt --aptopt=Acquire::Check-Valid-Until "false" --aptopt=Acquire::http::Dl-Limit "1000"; --aptopt=Acquire::https::Dl-Limit "1000"; --aptopt=Acquire::Retries "5"; --aptopt=APT::Get::allow-downgrades "true"; --keyring=/usr/share/keyrings/ --essential-hook=chroot "$1" sh -c "apt-get --yes install fakeroot util-linux" --essential-hook=copy-in /usr/share/keyrings/debian-archive-bullseye-automatic.gpg /usr/share/keyrings/debian-archive-bullseye-security-automatic.gpg /usr/share/keyrings/debian-archive-bullseye-stable.gpg /usr/share/keyrings/debian-archive-buster-automatic.gpg /usr/share/keyrings/debian-archive-buster-security-automatic.gpg /usr/share/keyrings/debian-archive-buster-stable.gpg /usr/share/keyrings/debian-archive-keyring.gpg /usr/share/keyrings/debian-archive-removed-keys.gpg /usr/share/keyrings/debian-archive-stretch-automatic.gpg /usr/share/keyrings/debian-archive-stretch-security-automatic.gpg /usr/share/keyrings/debian-archive-stretch-stable.gpg /usr/share/keyrings/debian-ports-archive-keyring-removed.gpg /usr/share/keyrings/debian-ports-archive-keyring.gpg /usr/share/keyrings/debian-keyring.gpg /etc/apt/trusted.gpg.d/ --essential-hook=chroot "$1" sh -c "rm /etc/apt/sources.list && echo 'deb http://snapshot.notset.fr/archive/debian/20211228T091540Z/ bookworm main deb-src http://snapshot.notset.fr/archive/debian/20211228T091540Z/ bookworm main deb http://snapshot.notset.fr/archive/debian/20220514T220115Z/ unstable main deb http://snapshot.notset.fr/archive/debian/20220511T204932Z/ unstable main' >> /etc/apt/sources.list && apt-get update" --customize-hook=chroot "$1" useradd --no-create-home -d /nonexistent -p "" builduser -s /bin/bash --customize-hook=chroot "$1" env sh -c "apt-get source --only-source -d pgloader=3.6.3-1 && mkdir -p /build/pgloader-JXcgv0 && dpkg-source --no-check -x /*.dsc /build/pgloader-JXcgv0/pgloader-3.6.3 && cd /build/pgloader-JXcgv0/pgloader-3.6.3 && { printf '%s' 'pgloader (3.6.3-1+b1) sid; urgency=low, binary-only=yes * Binary-only non-maintainer upload for amd64; no source changes. * Rebuild against libssl3 -- amd64 / i386 Build Daemon (x86-csail-01) Sat, 14 May 2022 18:58:41 +0000 '; cat debian/changelog; } > debian/changelog.debrebuild && mv debian/changelog.debrebuild debian/changelog && chown -R builduser:builduser /build/pgloader-JXcgv0" --customize-hook=chroot "$1" env --unset=TMPDIR runuser builduser -c "cd /build/pgloader-JXcgv0/pgloader-3.6.3 && env DEB_BUILD_OPTIONS="parallel=4" LC_ALL="C.UTF-8" LC_COLLATE="C.UTF-8" SOURCE_DATE_EPOCH="1652554721" DEB_BUILD_OPTIONS=nocheck dpkg-buildpackage -uc -a amd64 --build=any" --customize-hook=sync-out /build/pgloader-JXcgv0 /tmp/pgloader-3.6.3-1+b1pe5fhgiw bookworm /dev/null deb http://snapshot.notset.fr/archive/debian/20220511T204932Z unstable main I: automatically chosen mode: root I: chroot architecture amd64 is equal to the host's architecture I: automatically chosen format: null I: using /tmp/mmdebstrap.yarj3qq8PU as tempdir I: running apt-get update... I: downloading packages with apt... I: extracting archives... I: installing essential packages... I: running --essential-hook in shell: sh -c 'chroot "$1" sh -c "apt-get --yes install fakeroot util-linux"' exec /tmp/mmdebstrap.yarj3qq8PU Reading package lists... Building dependency tree... util-linux is already the newest version (2.38-4). The following NEW packages will be installed: fakeroot libfakeroot 0 upgraded, 2 newly installed, 0 to remove and 0 not upgraded. Need to get 135 kB of archives. After this operation, 406 kB of additional disk space will be used. Get:1 http://snapshot.notset.fr/archive/debian/20220511T204932Z unstable/main amd64 libfakeroot amd64 1.28-1 [48.2 kB] Get:2 http://snapshot.notset.fr/archive/debian/20220511T204932Z unstable/main amd64 fakeroot amd64 1.28-1 [87.2 kB] debconf: delaying package configuration, since apt-utils is not installed Fetched 135 kB in 0s (1052 kB/s) Selecting previously unselected package libfakeroot:amd64. (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 4628 files and directories currently installed.) Preparing to unpack .../libfakeroot_1.28-1_amd64.deb ... Unpacking libfakeroot:amd64 (1.28-1) ... Selecting previously unselected package fakeroot. Preparing to unpack .../fakeroot_1.28-1_amd64.deb ... Unpacking fakeroot (1.28-1) ... Setting up libfakeroot:amd64 (1.28-1) ... Setting up fakeroot (1.28-1) ... update-alternatives: using /usr/bin/fakeroot-sysv to provide /usr/bin/fakeroot (fakeroot) in auto mode Processing triggers for libc-bin (2.33-7) ... I: running special hook: copy-in /usr/share/keyrings/debian-archive-bullseye-automatic.gpg /usr/share/keyrings/debian-archive-bullseye-security-automatic.gpg /usr/share/keyrings/debian-archive-bullseye-stable.gpg /usr/share/keyrings/debian-archive-buster-automatic.gpg /usr/share/keyrings/debian-archive-buster-security-automatic.gpg /usr/share/keyrings/debian-archive-buster-stable.gpg /usr/share/keyrings/debian-archive-keyring.gpg /usr/share/keyrings/debian-archive-removed-keys.gpg /usr/share/keyrings/debian-archive-stretch-automatic.gpg /usr/share/keyrings/debian-archive-stretch-security-automatic.gpg /usr/share/keyrings/debian-archive-stretch-stable.gpg /usr/share/keyrings/debian-ports-archive-keyring-removed.gpg /usr/share/keyrings/debian-ports-archive-keyring.gpg /usr/share/keyrings/debian-keyring.gpg /etc/apt/trusted.gpg.d/ I: running --essential-hook in shell: sh -c 'chroot "$1" sh -c "rm /etc/apt/sources.list && echo 'deb http://snapshot.notset.fr/archive/debian/20211228T091540Z/ bookworm main deb-src http://snapshot.notset.fr/archive/debian/20211228T091540Z/ bookworm main deb http://snapshot.notset.fr/archive/debian/20220514T220115Z/ unstable main deb http://snapshot.notset.fr/archive/debian/20220511T204932Z/ unstable main' >> /etc/apt/sources.list && apt-get update"' exec /tmp/mmdebstrap.yarj3qq8PU Get:1 http://snapshot.notset.fr/archive/debian/20211228T091540Z bookworm InRelease [129 kB] Get:2 http://snapshot.notset.fr/archive/debian/20220514T220115Z unstable InRelease [165 kB] Hit:3 http://snapshot.notset.fr/archive/debian/20220511T204932Z unstable InRelease Ign:4 http://snapshot.notset.fr/archive/debian/20211228T091540Z bookworm/main Sources Ign:5 http://snapshot.notset.fr/archive/debian/20211228T091540Z bookworm/main amd64 Packages Ign:4 http://snapshot.notset.fr/archive/debian/20211228T091540Z bookworm/main Sources Ign:5 http://snapshot.notset.fr/archive/debian/20211228T091540Z bookworm/main amd64 Packages Ign:4 http://snapshot.notset.fr/archive/debian/20211228T091540Z bookworm/main Sources Ign:5 http://snapshot.notset.fr/archive/debian/20211228T091540Z bookworm/main amd64 Packages Get:4 http://snapshot.notset.fr/archive/debian/20211228T091540Z bookworm/main Sources [11.8 MB] Get:5 http://snapshot.notset.fr/archive/debian/20211228T091540Z bookworm/main amd64 Packages [11.2 MB] Ign:6 http://snapshot.notset.fr/archive/debian/20220514T220115Z unstable/main amd64 Packages Err:6 http://snapshot.notset.fr/archive/debian/20220514T220115Z unstable/main amd64 Packages 404 Not Found [IP: 10.13.0.253 80] Ign:6 http://snapshot.notset.fr/archive/debian/20220514T220115Z unstable/main amd64 Packages Get:6 http://snapshot.notset.fr/archive/debian/20220514T220115Z unstable/main amd64 Packages [12.4 MB] Fetched 35.7 MB in 30s (1209 kB/s) Reading package lists... I: installing remaining packages inside the chroot... I: running --customize-hook in shell: sh -c 'chroot "$1" useradd --no-create-home -d /nonexistent -p "" builduser -s /bin/bash' exec /tmp/mmdebstrap.yarj3qq8PU I: running --customize-hook in shell: sh -c 'chroot "$1" env sh -c "apt-get source --only-source -d pgloader=3.6.3-1 && mkdir -p /build/pgloader-JXcgv0 && dpkg-source --no-check -x /*.dsc /build/pgloader-JXcgv0/pgloader-3.6.3 && cd /build/pgloader-JXcgv0/pgloader-3.6.3 && { printf '%s' 'pgloader (3.6.3-1+b1) sid; urgency=low, binary-only=yes * Binary-only non-maintainer upload for amd64; no source changes. * Rebuild against libssl3 -- amd64 / i386 Build Daemon (x86-csail-01) Sat, 14 May 2022 18:58:41 +0000 '; cat debian/changelog; } > debian/changelog.debrebuild && mv debian/changelog.debrebuild debian/changelog && chown -R builduser:builduser /build/pgloader-JXcgv0"' exec /tmp/mmdebstrap.yarj3qq8PU 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 3730 kB of source archives. Get:1 http://snapshot.notset.fr/archive/debian/20211228T091540Z bookworm/main pgloader 3.6.3-1 (dsc) [2680 B] Get:2 http://snapshot.notset.fr/archive/debian/20211228T091540Z bookworm/main pgloader 3.6.3-1 (tar) [3718 kB] Get:3 http://snapshot.notset.fr/archive/debian/20211228T091540Z bookworm/main pgloader 3.6.3-1 (diff) [8708 B] Fetched 3730 kB in 3s (1265 kB/s) Download complete and in download only mode W: Download is performed unsandboxed as root as file 'pgloader_3.6.3-1.dsc' couldn't be accessed by user '_apt'. - pkgAcquire::Run (13: Permission denied) dpkg-source: info: extracting pgloader in /build/pgloader-JXcgv0/pgloader-3.6.3 dpkg-source: info: unpacking pgloader_3.6.3.orig.tar.gz dpkg-source: info: unpacking pgloader_3.6.3-1.debian.tar.xz I: running --customize-hook in shell: sh -c 'chroot "$1" env --unset=TMPDIR runuser builduser -c "cd /build/pgloader-JXcgv0/pgloader-3.6.3 && env DEB_BUILD_OPTIONS="parallel=4" LC_ALL="C.UTF-8" LC_COLLATE="C.UTF-8" SOURCE_DATE_EPOCH="1652554721" DEB_BUILD_OPTIONS=nocheck dpkg-buildpackage -uc -a amd64 --build=any"' exec /tmp/mmdebstrap.yarj3qq8PU dpkg-buildpackage: info: source package pgloader dpkg-buildpackage: info: source version 3.6.3-1+b1 dpkg-buildpackage: info: source distribution sid dpkg-buildpackage: info: source changed by amd64 / i386 Build Daemon (x86-csail-01) dpkg-source --before-build . dpkg-buildpackage: info: host architecture amd64 dpkg-source: info: using options from pgloader-3.6.3/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 '/build/pgloader-JXcgv0/pgloader-3.6.3' dh_auto_clean make -j10 clean make[2]: Entering directory '/build/pgloader-JXcgv0/pgloader-3.6.3' rm -rf build/libs.stamp build/quicklisp build/manifest.ql build/bin/buildapp.sbcl build/bin/pgloader docs/_build make[2]: Leaving directory '/build/pgloader-JXcgv0/pgloader-3.6.3' rm -rf debian/home make[1]: Leaving directory '/build/pgloader-JXcgv0/pgloader-3.6.3' 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 '/build/pgloader-JXcgv0/pgloader-3.6.3' mkdir -p build/bin mkdir -p /build/pgloader-JXcgv0/pgloader-3.6.3/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 4096 \ --compress-core \ --logfile buildapp.log \ --output build/bin/pgloader \ || echo $? > buildapp.fail ; compiling file "/usr/share/common-lisp/source/cl-asdf/build/asdf.lisp" (written 12 OCT 2021 01:11:59 PM): ; file: /usr/share/common-lisp/source/cl-asdf/build/asdf.lisp ; in: DEFUN CALL-WITH-OUTPUT ; (WITH-OUTPUT-TO-STRING (STREAM NIL :ELEMENT-TYPE UIOP/STREAM::ELEMENT-TYPE) ; (FUNCALL FUNCTION STREAM)) ; --> LET ; ==> ; (MAKE-STRING 31 :ELEMENT-TYPE UIOP/STREAM::ELEMENT-TYPE) ; ; note: could not stack allocate: ; (WITH-OUTPUT-TO-STRING (STREAM NIL :ELEMENT-TYPE ELEMENT-TYPE) ; (FUNCALL FUNCTION STREAM)) ; in: DEFUN SLURP-STREAM-STRING ; (WITH-OUTPUT-TO-STRING ; (UIOP/STREAM::OUTPUT NIL :ELEMENT-TYPE UIOP/STREAM::ELEMENT-TYPE) ; (UIOP/STREAM:COPY-STREAM-TO-STREAM UIOP/STREAM::INPUT UIOP/STREAM::OUTPUT ; :ELEMENT-TYPE UIOP/STREAM::ELEMENT-TYPE)) ; --> LET ; ==> ; (MAKE-STRING 31 :ELEMENT-TYPE UIOP/STREAM::ELEMENT-TYPE) ; ; note: could not stack allocate: ; (WITH-OUTPUT-TO-STRING (OUTPUT NIL :ELEMENT-TYPE ELEMENT-TYPE) ; (COPY-STREAM-TO-STREAM INPUT OUTPUT :ELEMENT-TYPE ELEMENT-TYPE)) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-asdf/build/asdf-tmpGHU3ALSV.fasl ; compilation finished in 0:00:08.668 ; ; compilation unit finished ; printed 2 notes ;; 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"/build/pgloader-JXcgv0/pgloader-3.6.3/src/hooks.lisp" ;; loading system "pgloader" compressed 0 bytes into 8 at level -1 compressed 32768 bytes into 537 at level -1 compressed 116195328 bytes into 20374176 at level -1 compressed 3080192 bytes into 886269 at level -1 compressed 22511616 bytes into 6912853 at level -1 cat buildapp.log ;; loading file #P"/usr/share/common-lisp/source/cl-asdf/build/asdf.lisp" ;; loading #P"/usr/share/common-lisp/source/cl-asdf/build/asdf.lisp" ;; # ;; # ;; (:ASDF3.3 :ASDF3.2 :ASDF3.1 :ASDF3 :ASDF2 :ASDF :OS-UNIX :NON-BASE-CHARS-EXIST-P :ASDF-UNICODE :X86-64 :GENCGC :64-BIT :ANSI-CL :COMMON-LISP :ELF :IEEE-FLOATING-POINT :LINUX :LITTLE-ENDIAN :PACKAGE-LOCAL-NICKNAMES :SB-CORE-COMPRESSION :SB-LDB :SB-PACKAGE-LOCKS :SB-THREAD :SB-UNICODE :SBCL :UNIX) ;; # ;; HOME-PACKAGE-P ;; UNREIFY-SYMBOL ;; NOTE-PACKAGE-FISHINESS ;; RENAME-PACKAGE-AWAY ;; PACKAGE-DEFINITION-FORM ;; ENSURE-PACKAGE ;; PARSE-DEFINE-PACKAGE-FORM ;; DEFINE-PACKAGE ;; # ;; # ;; # ;; (:ASDF3.3 :ASDF3.2 :ASDF3.1 :ASDF3 :ASDF2 :ASDF :OS-UNIX :NON-BASE-CHARS-EXIST-P :ASDF-UNICODE :X86-64 :GENCGC :64-BIT :ANSI-CL :COMMON-LISP :ELF :IEEE-FLOATING-POINT :LINUX :LITTLE-ENDIAN :PACKAGE-LOCAL-NICKNAMES :SB-CORE-COMPRESSION :SB-LDB :SB-PACKAGE-LOCKS :SB-THREAD :SB-UNICODE :SBCL :UNIX) ;; NIL ;; COMPATFMT ;; # ;; # ;; 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 :X86-64 :GENCGC :64-BIT :ANSI-CL :COMMON-LISP :ELF :IEEE-FLOATING-POINT :LINUX :LITTLE-ENDIAN :PACKAGE-LOCAL-NICKNAMES :SB-CORE-COMPRESSION :SB-LDB :SB-PACKAGE-LOCKS :SB-THREAD :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 ;; # ;; # ;; VERSION<= ;; WITH-DEPRECATION ;; # ;; # ;; :OS-UNIX ;; GETENVP ;; IMPLEMENTATION-IDENTIFIER ;; HOSTNAME ;; CHDIR ;; PARSE-WINDOWS-SHORTCUT ;; # ;; # ;; WITH-PATHNAME-DEFAULTS ;; FILE-PATHNAME-P ;; ENSURE-DIRECTORY-PATHNAME ;; UNIX-NAMESTRING ;; WITH-ENOUGH-PATHNAME ;; WILDEN ;; *OUTPUT-TRANSLATION-FUNCTION* ;; # ;; # ;; PARSE-NATIVE-NAMESTRING ;; COLLECT-SUB*DIRECTORIES ;; RESOLVE-SYMLINKS* ;; ENSURE-PATHNAME ;; WITH-CURRENT-DIRECTORY ;; LISP-IMPLEMENTATION-PATHNAME-P ;; DELETE-DIRECTORY-TREE ;; # ;; # ;; # ;; 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 ;; # ;; # ;; *IMAGE-DUMP-HOOK* ;; FATAL-CONDITION ;; SHELL-BOOLEAN-EXIT ;; CALL-IMAGE-DUMP-HOOK ;; RESTORE-IMAGE ;; CREATE-IMAGE ;; NIL ;; # ;; # ;; *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 ;; # ;; # ;; ESCAPE-SHELL-COMMAND ;; LAUNCH-PROGRAM ;; # ;; # ;; # ;; # ;; RUN-PROGRAM ;; # ;; # ;; UIOP-DIRECTORY ;; # ;; # ;; VERSION-COMPATIBLE-P ;; # ;; T ;; T ;; # ;; # ;; NIL ;; NIL ;; WITH-ASDF-DEPRECATION ;; # ;; # ;; SYSDEF-ERROR ;; # ;; # ;; DUPLICATE-NAMES ;; # ;; # ;; COMPUTE-CHILDREN-BY-NAME ;; # ;; # ;; # ;; # ;; # ;; SUB-COMPONENTS ;; # ;; # ;; NIL ;; # ;; # ;; # ;; # ;; # ;; RESET-SYSTEM-CLASS ;; COERCE-FILENAME ;; SYSTEM-LICENSE ;; # ;; # ;; # ;; SYSDEF-CENTRAL-REGISTRY-SEARCH ;; # ;; # ;; OPERATION-DESIGNATOR ;; ACTION-COMPONENT ;; FIND-ACTION ;; DEFINE-CONVENIENCE-ACTION-METHODS ;; FORMAT-ACTION ;; WHILE-VISITING-ACTION ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; NIL ;; +STATUS-VOID+ ;; # ;; # ;; # ;; ACTION-UP-TO-DATE-P ;; REQUIRED-COMPONENTS ;; # ;; # ;; # ;; RECURSIVE-OPERATE ;; NIL ;; TEST-SYSTEM ;; ALREADY-LOADED-SYSTEMS ;; MODULE-PROVIDE-ASDF ;; NIL ;; # ;; # ;; MARK-COMPONENT-PRELOADED ;; # ;; # ;; DETERMINE-SYSTEM-DIRECTORY ;; NIL ;; # ;; NORMALIZE-VERSION ;; %REFRESH-COMPONENT-INLINE-METHODS ;; DEFSYSTEM ;; # ;; # ;; # ;; NIL ;; USER-SYSTEM-P ;; USER-SYSTEM ;; SELECT-BUNDLE-OPERATION ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; # ;; SYSDEF-PACKAGE-INFERRED-SYSTEM-SEARCH ;; (DUMPER518::SYSTEM-SEARCH-FUNCTION SYSDEF-PACKAGE-INFERRED-SYSTEM-SEARCH SYSDEF-CENTRAL-REGISTRY-SEARCH SYSDEF-SOURCE-REGISTRY-SEARCH) ;; # ;; # ;; NIL ;; APPLY-OUTPUT-TRANSLATIONS ;; # ;; # ;; SYSDEF-SOURCE-REGISTRY-SEARCH ;; # ;; # ;; LOAD-SYSDEF ;; # ;; # ;; # ;; REQUIRE-SYSTEM ;; # ;; # ;; # ;; # ;; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/asdf-finalizers/pkgdcl-tmpAAURSO1.fasl ; compilation finished in 0:00:00.004 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/asdf-finalizers/finalizers-tmp5GEXGEG5.fasl ; compilation finished in 0:00:00.021 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/asdf-finalizers/asdf-support-tmpAR3FSGEY.fasl ; compilation finished in 0:00:00.003 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/asdf-finalizers/initialization-tmpJAIDFZTC.fasl ; compilation finished in 0:00:00.001 ;; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/asdf-system-connections/dev/asdf-system-connections-tmp8V3J6PE9.fasl ; compilation finished in 0:00:00.010 WARNING: Lisp compilation had style-warnings while compiling # ; ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/package-tmp9V47YWQF.fasl ; compilation finished in 0:00:00.002 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/definitions-tmp9BN22RMA.fasl ; compilation finished in 0:00:00.008 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/binding-tmp1CXFJSK9.fasl ; compilation finished in 0:00:00.011 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/strings-tmpX4BRKI0R.fasl ; compilation finished in 0:00:00.001 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/conditions-tmpQ371UGST.fasl ; compilation finished in 0:00:00.014 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/symbols-tmp2OWI3Q7U.fasl ; compilation finished in 0:00:00.011 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/macros-tmp9KKTJMYV.fasl ; compilation finished in 0:00:00.049 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/functions-tmpJU0JWO19.fasl ; compilation finished in 0:00:00.055 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/lists-tmpZX2WN8N4.fasl ; compilation finished in 0:00:00.079 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/types-tmpOU81XRV0.fasl ; compilation finished in 0:00:00.056 ; 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 ...) ; file: /usr/share/common-lisp/source/alexandria/alexandria-1/io.lisp ; in: DEFUN READ-STREAM-CONTENT-INTO-STRING ; (WITH-OUTPUT-TO-STRING ; (ALEXANDRIA::DATUM NIL :ELEMENT-TYPE ALEXANDRIA::ELEMENT-TYPE) ; (LET ((ALEXANDRIA::BUFFER ; (MAKE-ARRAY ALEXANDRIA::BUFFER-SIZE :ELEMENT-TYPE ; ALEXANDRIA::ELEMENT-TYPE))) ; (LOOP :FOR ALEXANDRIA::BYTES-READ = (READ-SEQUENCE ALEXANDRIA::BUFFER ; STREAM) ; :DO (WRITE-SEQUENCE ALEXANDRIA::BUFFER ALEXANDRIA::DATUM :START 0 ; :END ALEXANDRIA::BYTES-READ) ; :WHILE (= ALEXANDRIA::BYTES-READ ALEXANDRIA::BUFFER-SIZE)))) ; --> LET ; ==> ; (MAKE-STRING 31 :ELEMENT-TYPE ALEXANDRIA::ELEMENT-TYPE) ; ; note: could not stack allocate: ; (WITH-OUTPUT-TO-STRING (DATUM NIL :ELEMENT-TYPE ELEMENT-TYPE) ; (LET ((BUFFER (MAKE-ARRAY BUFFER-SIZE :ELEMENT-TYPE ELEMENT-TYPE))) ; (LOOP :FOR BYTES-READ = (READ-SEQUENCE BUFFER STREAM) ; :DO (WRITE-SEQUENCE BUFFER DATUM :START 0 :END BYTES-READ) ; :WHILE (= BYTES-READ BUFFER-SIZE)))) ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/io-tmpY2ML9CFA.fasl ; compilation finished in 0:00:00.107 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables-tmpX2JYJDQE.fasl ; compilation finished in 0:00:00.050 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow-tmpOPCILR65.fasl ; compilation finished in 0:00:00.070 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/arrays-tmpRV9F8A9A.fasl ; compilation finished in 0:00:00.011 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/sequences-tmpK2ZAJT4I.fasl ; compilation finished in 0:00:00.165 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/numbers-tmpUX5S4ADN.fasl ; compilation finished in 0:00:00.097 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/features-tmp10401X32.fasl ; compilation finished in 0:00:00.010 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-2/package-tmpZ7CBRM0G.fasl ; compilation finished in 0:00:00.005 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-2/arrays-tmp9OZEQ0G2.fasl ; compilation finished in 0:00:00.015 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow-tmpB2JTL1W9.fasl ; compilation finished in 0:00:00.007 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-2/sequences-tmpP3BI68WQ.fasl ; compilation finished in 0:00:00.003 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-2/lists-tmpQDARA81Z.fasl ; compilation finished in 0:00:00.005 ; 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 # ...) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/trivial-features/src/tf-sbcl-tmpYEMMM7SE.fasl ; compilation finished in 0:00:00.005 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/babel/src/packages-tmp73HU0RPK.fasl ; compilation finished in 0:00:00.002 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/babel/src/encodings-tmpIO5N7K88.fasl ; compilation finished in 0:00:00.109 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/babel/src/enc-ascii-tmpCM21U60Z.fasl ; compilation finished in 0:00:00.007 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/babel/src/enc-ebcdic-tmp9DT7SEFG.fasl ; compilation finished in 0:00:00.016 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/babel/src/enc-ebcdic-int-tmp8065ESJT.fasl ; compilation finished in 0:00:00.007 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/babel/src/enc-iso-8859-tmp7S8Z6FGF.fasl ; compilation finished in 0:00:00.095 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/babel/src/enc-unicode-tmpSIT3QPKP.fasl ; compilation finished in 0:00:00.229 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/babel/src/enc-cp437-tmpE0PA0714.fasl ; compilation finished in 0:00:00.011 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/babel/src/enc-cp1251-tmpJRWHHVG0.fasl ; compilation finished in 0:00:00.011 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/babel/src/enc-cp1252-tmp4WZVROCX.fasl ; compilation finished in 0:00:00.011 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/babel/src/jpn-table-tmpA0I3UKX8.fasl ; compilation finished in 0:00:00.142 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/babel/src/enc-jpn-tmp267Y2N80.fasl ; compilation finished in 0:00:00.069 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/babel/src/enc-gbk-tmpOUPE5FSJ.fasl ; compilation finished in 0:00:00.018 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/babel/src/enc-koi8-tmpIGHCU6ZA.fasl ; compilation finished in 0:00:00.022 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/babel/src/external-format-tmpBO0TUGLK.fasl ; compilation finished in 0:00:00.017 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/babel/src/strings-tmpIIXPIQNW.fasl ; compilation finished in 0:00:03.026 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/babel/src/gbk-map-tmpOHM494YR.fasl ; compilation finished in 0:00:00.032 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/babel/src/sharp-backslash-tmpOVFB07XF.fasl ; compilation finished in 0:00:00.005 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-cffi/src/cffi-sbcl-tmpG6VFGMYP.fasl ; compilation finished in 0:00:00.466 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-cffi/src/package-tmp4QIPRMOF.fasl ; compilation finished in 0:00:00.003 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-cffi/src/utils-tmpGW0QV22K.fasl ; compilation finished in 0:00:00.023 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-cffi/src/libraries-tmp2K9J0HSR.fasl ; compilation finished in 0:00:00.154 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-cffi/src/early-types-tmpP44I4E0Y.fasl ; compilation finished in 0:00:00.277 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-cffi/src/types-tmp63LQ7EX6.fasl ; compilation finished in 0:00:00.354 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-cffi/src/enum-tmp86F1A8FB.fasl ; compilation finished in 0:00:00.074 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-cffi/src/strings-tmpH7D4HL98.fasl ; compilation finished in 0:00:01.350 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-cffi/src/structures-tmpCDM7YXYI.fasl ; compilation finished in 0:00:00.028 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-cffi/src/functions-tmpLM57P5P.fasl ; compilation finished in 0:00:00.096 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-cffi/src/foreign-vars-tmpZE69DN33.fasl ; compilation finished in 0:00:00.013 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-cffi/src/features-tmpG8099TO3.fasl ; compilation finished in 0:00:00.007 ; ; compilation unit finished ; printed 3 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl+ssl/src/config-tmpTASQCYAW.fasl ; compilation finished in 0:00:00.005 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-trivial-gray-streams/package-tmp35U57IV6.fasl ; compilation finished in 0:00:00.002 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-trivial-gray-streams/streams-tmpTZOONXRW.fasl ; compilation finished in 0:00:00.031 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-flexi-streams/packages-tmpWN0UKDSV.fasl ; compilation finished in 0:00:00.001 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-flexi-streams/mapping-tmpBF3HHBTQ.fasl ; compilation finished in 0:00:00.007 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-flexi-streams/ascii-tmpGYUNPZCY.fasl ; compilation finished in 0:00:00.001 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-flexi-streams/koi8-r-tmpD68Q8WCA.fasl ; compilation finished in 0:00:00.000 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-flexi-streams/mac-tmp7MK9KM9C.fasl ; compilation finished in 0:00:00.001 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-flexi-streams/iso-8859-tmpJJ71X849.fasl ; compilation finished in 0:00:00.004 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-flexi-streams/enc-cn-tbl-tmp1VUK6SR2.fasl ; compilation finished in 0:00:00.284 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-flexi-streams/code-pages-tmpR2FIHSUG.fasl ; compilation finished in 0:00:00.005 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-flexi-streams/specials-tmp8PYELRKX.fasl ; compilation finished in 0:00:00.010 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-flexi-streams/util-tmpEHTOKYT0.fasl ; compilation finished in 0:00:00.027 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-flexi-streams/conditions-tmpS6U1VHI9.fasl ; compilation finished in 0:00:00.005 ; 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: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; processing (DEFUN NORMALIZE-EXTERNAL-FORMAT ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-flexi-streams/external-format-tmpVTFK6ZJW.fasl ; compilation finished in 0:00:00.050 ; 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: forced to do GENERIC-* (cost 30) ; unable to do inline float arithmetic (cost 5) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES (OR (COMPLEX DOUBLE-FLOAT) DOUBLE-FLOAT) ; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T). ; unable to do inline float arithmetic (cost 5) because: ; The first argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES (OR (COMPLEX DOUBLE-FLOAT) DOUBLE-FLOAT) ; &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) ; &REST T). ; processing (DEFGENERIC CHECK-END ...) ; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp ; in: DEFGENERIC CHECK-END ; (- FLEXI-STREAMS::I FLEXI-STREAMS::END) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; 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) ; (- FLEXI-STREAMS::END FLEXI-STREAMS::START) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) 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-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 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 GENERIC-= (cost 10) ; 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 (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; 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-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::END FLEXI-STREAMS::START) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) 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-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. ; 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. ; 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 ...) ; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp ; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-UTF-32-FORMAT T T T) ; (CEILING (- FLEXI-STREAMS::END FLEXI-STREAMS::START) 4) ; ; note: forced to do +/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -9223372036854775804 9223372036854775810) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -9223372036854775804 9223372036854775810) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER -9223372036854775804 9223372036854775810), not a FIXNUM. ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER -9223372036854775804 9223372036854775810), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER -2305843009213693951 2305843009213693952) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; processing (DEFMETHOD COMPUTE-NUMBER-OF-CHARS ...) ; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp ; in: ; DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-UTF-32-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 open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; 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 (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; (DECF LENGTH) ; --> THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * 2305843009213693952), not a FIXNUM. ; The result is a (VALUES (INTEGER * 2305843009213693951) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 2305843009213693952), not a FIXNUM. ; The result is a (VALUES (INTEGER * 2305843009213693951) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; etc. ; processing (DEFMETHOD COMPUTE-NUMBER-OF-CHARS ...) ; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp ; in: ; DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-UTF-32-BE-FORMAT T T T) ; (AREF SEQUENCE FLEXI-STREAMS::J) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (= FLEXI-STREAMS:OCTET (AREF SEQUENCE FLEXI-STREAMS::J)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; 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 (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; (DECF LENGTH) ; --> THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * 2305843009213693952), not a FIXNUM. ; The result is a (VALUES (INTEGER * 2305843009213693951) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 2305843009213693952), not a FIXNUM. ; The result is a (VALUES (INTEGER * 2305843009213693951) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; etc. ; processing (DEFGENERIC COMPUTE-NUMBER-OF-OCTETS ...) ; processing (DEFMETHOD COMPUTE-NUMBER-OF-OCTETS ...) ; processing (DEFMETHOD COMPUTE-NUMBER-OF-OCTETS ...) ; file: /usr/share/common-lisp/source/cl-flexi-streams/length.lisp ; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-8-BIT-FORMAT T T T) ; (- FLEXI-STREAMS::END FLEXI-STREAMS::START) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; 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. ; 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. ; 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. ; 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. ; 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. ; 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. ; 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. ; 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 */SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -36893488147419103228 36893488147419103228) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -36893488147419103228 36893488147419103228) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; 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: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (MOD 18446744073709551601), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a (MOD 18446744073709551601), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the second argument of GENERIC-+ ; 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: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; processing (DEFMETHOD CHARACTER-LENGTH ...) ; processing (DEFMETHOD CHARACTER-LENGTH ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-flexi-streams/length-tmp75WVSJEW.fasl ; compilation finished in 0:00:00.115 ; 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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not a LATIN-1 character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not a LATIN-1 character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-LATIN-1-FORMAT ; FLEXI-STREAMS::FLEXI-CR-LATIN-1-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-LATIN-1-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (WHEN (> FLEXI-STREAMS:OCTET 255) ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not a LATIN-1 character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET)) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY LET WHEN IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY LET WHEN IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; 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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not an ASCII character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not an ASCII character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (WHEN (> FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not an ASCII character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET)) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY LET WHEN IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY LET WHEN IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; 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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::ENCODING-HASH ; FLEXI-STREAMS::EXTERNAL-FORMAT-ENCODING-HASH)) ; FORMAT ; (LET ((FLEXI-STREAMS:OCTET #)) ; (UNLESS FLEXI-STREAMS:OCTET ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET)) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY WITH-ACCESSORS LET SYMBOL-MACROLET LET GETHASH ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY WITH-ACCESSORS LET SYMBOL-MACROLET LET UNLESS IF ; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY WITH-ACCESSORS LET SYMBOL-MACROLET LET GETHASH ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY WITH-ACCESSORS LET SYMBOL-MACROLET LET UNLESS IF ; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; 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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (TAGBODY ; (COND (# # #) (# # #) (# # #) (T #)) ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #)) ; FLEXI-STREAMS::TWO ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #)) ; FLEXI-STREAMS::ONE ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #)) ; FLEXI-STREAMS::ZERO))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; 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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-16-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-16-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-LE-FORMAT) ; (FLET ((FLEXI-STREAMS::WRITE-WORD (FLEXI-STREAMS::WORD) ; (FLEXI-STREAMS::OCTET-WRITER #) ; (FLEXI-STREAMS::OCTET-WRITER #))) ; (DECLARE (INLINE FLEXI-STREAMS::WRITE-WORD)) ; (LET ((CHAR-CODE #)) ; (DECLARE (TYPE FLEXI-STREAMS::CHAR-CODE-INTEGER CHAR-CODE)) ; (COND (# #) (T # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; 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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT) ; (FLET ((FLEXI-STREAMS::WRITE-WORD (FLEXI-STREAMS::WORD) ; (FLEXI-STREAMS::OCTET-WRITER #) ; (FLEXI-STREAMS::OCTET-WRITER #))) ; (DECLARE (INLINE FLEXI-STREAMS::WRITE-WORD)) ; (LET ((CHAR-CODE #)) ; (DECLARE (TYPE FLEXI-STREAMS::CHAR-CODE-INTEGER CHAR-CODE)) ; (COND (# #) (T # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; 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) ; (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::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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (IF (<= FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET) ; (FLET (#) ; (DECLARE #) ; (DECLARE #) ; (COND # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY LET IF FLET COND IF IF THE LET IF ; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY LET IF FLET COND IF IF THE LET IF ; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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 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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> 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), for: ; the second argument of GENERIC-* ; 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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGAND* 255 CHAR-CODE)) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -8))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -16))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -24))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; 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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -24))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -16))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -8))) ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGAND* 255 CHAR-CODE)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY LET CHAR-CODE LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF PROGN ; --> FLEXI-STREAMS::ITERATE LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET ; --> LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET ; ==> ; (POSITION #\Newline SEQUENCE :TEST #'CHAR= :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> 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 GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (-1) (1))) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; processing (DEFMETHOD CHAR-TO-OCTETS ...) ; processing (DEFMETHOD CHAR-TO-OCTETS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-flexi-streams/encode-tmpBU5UM3S4.fasl ; compilation finished in 0:00:00.832 ; 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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-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 PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK ; --> PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET PROGN FLEXI-STREAMS::OCTET-GETTER ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFINE-CHAR-DECODERS (FLEXI-ASCII-FORMAT FLEXI-CR-ASCII-FORMAT ...) ...) ; file: /usr/share/common-lisp/source/cl-flexi-streams/decode.lisp ; in: ; DEFINE-CHAR-DECODERS (FLEXI-ASCII-FORMAT FLEXI-CR-ASCII-FORMAT ; FLEXI-CRLF-ASCII-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET))) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET)) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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)). ; (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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFINE-CHAR-DECODERS (FLEXI-8-BIT-FORMAT FLEXI-CR-8-BIT-FORMAT ...) ...) ; file: /usr/share/common-lisp/source/cl-flexi-streams/decode.lisp ; in: ; DEFINE-CHAR-DECODERS (FLEXI-8-BIT-FORMAT FLEXI-CR-8-BIT-FORMAT ; FLEXI-CRLF-8-BIT-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE ; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE)) ; FORMAT ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET (#) ; (IF # ; # ; CHAR-CODE))))) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET ((CHAR-CODE (AREF # #))) ; (IF (OR (NULL CHAR-CODE) (= # 65533)) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; CHAR-CODE))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE ; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE)) ; FORMAT ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET (#) ; (IF # ; # ; CHAR-CODE))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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)). ; (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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFINE-CHAR-DECODERS (FLEXI-UTF-8-FORMAT FLEXI-CR-UTF-8-FORMAT ...) ...) ; file: /usr/share/common-lisp/source/cl-flexi-streams/decode.lisp ; in: ; DEFINE-CHAR-DECODERS (FLEXI-UTF-8-FORMAT FLEXI-CR-UTF-8-FORMAT ; FLEXI-CRLF-UTF-8-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (LET # ; # ; #))))) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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)). ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (LET # ; # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: Allocating a value-cell at runtime for checking possibly out of extent exit via ; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare ; the exit function DYNAMIC-EXTENT to avoid. ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFINE-CHAR-DECODERS (FLEXI-UTF-16-LE-FORMAT FLEXI-CR-UTF-16-LE-FORMAT ...) ...) ; file: /usr/share/common-lisp/source/cl-flexi-streams/decode.lisp ; in: ; DEFINE-CHAR-DECODERS (FLEXI-UTF-16-LE-FORMAT FLEXI-CR-UTF-16-LE-FORMAT ; FLEXI-CRLF-UTF-16-LE-FORMAT) ; (FLEXI-STREAMS::READ-NEXT-WORD) ; ; note: implementation limitation: couldn't inline expand because expansion refers to the optimized away object #. ; ; note: deleting unused function ; (SB-C::LOCAL-INLINE READ-NEXT-WORD) ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; --> LET OR ; ==> ; (LET ((#:G33 FLEXI-STREAMS::OCTET-GETTER)) ; (IF #:G33 ; #:G33 ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE #)) ; (T (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE NIL))))) ; ; note: deleting unused function ; (LET ((#:G33 OCTET-GETTER))) ; (FLEXI-STREAMS::READ-NEXT-WORD) ; ; note: implementation limitation: couldn't inline expand because expansion refers to the optimized away object #. ; ; note: deleting unused function ; (SB-C::LOCAL-INLINE READ-NEXT-WORD) ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; --> LET OR ; ==> ; (LET ((#:G35 FLEXI-STREAMS::OCTET-GETTER)) ; (IF #:G35 ; #:G35 ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE #)) ; (T (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE NIL))))) ; ; note: deleting unused function ; (LET ((#:G35 OCTET-GETTER))) ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-16-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-16-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (DECLARE #) ; (LET # ; # ; #))))) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET ; ==> ; (BLOCK FLEXI-STREAMS::OCTETS-TO-CHAR-CODE ; (SYMBOL-MACROLET ((FLEXI-STREAMS::OCTET-GETTER ; (FUNCALL FLEXI-STREAMS::READER))) ; (LET ((#:CHAR-CODE0 #)) ; (WHEN (AND #:CHAR-CODE0 #) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "Illegal code point ~A (#x~:*~X)." #:CHAR-CODE0)) ; #:CHAR-CODE0))) ; ; note: Allocating a value-cell at runtime for checking possibly out of extent exit via ; (RETURN-FROM OCTETS-TO-CHAR-CODE NIL). Use GO/RETURN-FROM with SAFETY 0, or ; declare the exit function DYNAMIC-EXTENT to avoid. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> LET OR LET IF COND IF THE RETURN-FROM ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a (MOD 1114112): ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> LET OR LET IF COND IF THE RETURN-FROM ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a (MOD 1114112): ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-16-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-16-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (DECLARE #) ; (LET # ; # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET ; ==> ; (BLOCK FLEXI-STREAMS::CHAR-DECODER ; (LOCALLY ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (FLET ((#:GET-CHAR-CODE4 # ; #)) ; (LET (#) ; (CASE #:CHAR-CODE2 # #))))) ; ; note: Allocating a value-cell at runtime for checking possibly out of extent exit via ; (RETURN-FROM CHAR-DECODER ; (RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.")). ; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT ; to avoid. ; ; note: Allocating a value-cell at runtime for checking possibly out of extent exit via ; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare ; the exit function DYNAMIC-EXTENT to avoid. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET ; ==> ; (BLOCK FLEXI-STREAMS::CHAR-DECODER ; (LOCALLY ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (FLET ((#:GET-CHAR-CODE4 # ; #)) ; (LET (#) ; (CASE #:CHAR-CODE2 # #))))) ; ; note: Allocating a value-cell at runtime for checking possibly out of extent exit via ; (RETURN-FROM CHAR-DECODER ; (RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.")). ; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT ; to avoid. ; ; note: Allocating a value-cell at runtime for checking possibly out of extent exit via ; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare ; the exit function DYNAMIC-EXTENT to avoid. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET ; ==> ; (BLOCK FLEXI-STREAMS::CHAR-DECODER ; (LOCALLY ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (FLET ((#:GET-CHAR-CODE4 # ; #)) ; (LET (#) ; (CASE #:CHAR-CODE2 # #))))) ; ; note: Allocating a value-cell at runtime for checking possibly out of extent exit via ; (RETURN-FROM CHAR-DECODER ; (RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.")). ; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT ; to avoid. ; ; note: Allocating a value-cell at runtime for checking possibly out of extent exit via ; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare ; the exit function DYNAMIC-EXTENT to avoid. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; --> LET OR LET IF COND IF THE ; ==> ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL) ; ; caught STYLE-WARNING: ; Result is a (VALUES &OPTIONAL NULL &REST T), not a (MOD 1114112). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> 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: 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 GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFINE-CHAR-DECODERS (FLEXI-UTF-16-BE-FORMAT FLEXI-CR-UTF-16-BE-FORMAT ...) ...) ; file: /usr/share/common-lisp/source/cl-flexi-streams/decode.lisp ; in: ; DEFINE-CHAR-DECODERS (FLEXI-UTF-16-BE-FORMAT FLEXI-CR-UTF-16-BE-FORMAT ; FLEXI-CRLF-UTF-16-BE-FORMAT) ; (FLEXI-STREAMS::READ-NEXT-WORD) ; ; note: implementation limitation: couldn't inline expand because expansion refers to the optimized away object #. ; ; note: deleting unused function ; (SB-C::LOCAL-INLINE READ-NEXT-WORD) ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; --> LET OR ; ==> ; (LET ((#:G33 FLEXI-STREAMS::OCTET-GETTER)) ; (IF #:G33 ; #:G33 ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE #)) ; (T (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE NIL))))) ; ; note: deleting unused function ; (LET ((#:G33 OCTET-GETTER))) ; (FLEXI-STREAMS::READ-NEXT-WORD) ; ; note: implementation limitation: couldn't inline expand because expansion refers to the optimized away object #. ; ; note: deleting unused function ; (SB-C::LOCAL-INLINE READ-NEXT-WORD) ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; --> LET OR ; ==> ; (LET ((#:G35 FLEXI-STREAMS::OCTET-GETTER)) ; (IF #:G35 ; #:G35 ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE #)) ; (T (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE NIL))))) ; ; note: deleting unused function ; (LET ((#:G35 OCTET-GETTER))) ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (DECLARE #) ; (LET # ; # ; #))))) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET ; ==> ; (BLOCK FLEXI-STREAMS::OCTETS-TO-CHAR-CODE ; (SYMBOL-MACROLET ((FLEXI-STREAMS::OCTET-GETTER ; (FUNCALL FLEXI-STREAMS::READER))) ; (LET ((#:CHAR-CODE0 #)) ; (WHEN (AND #:CHAR-CODE0 #) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "Illegal code point ~A (#x~:*~X)." #:CHAR-CODE0)) ; #:CHAR-CODE0))) ; ; note: Allocating a value-cell at runtime for checking possibly out of extent exit via ; (RETURN-FROM OCTETS-TO-CHAR-CODE NIL). Use GO/RETURN-FROM with SAFETY 0, or ; declare the exit function DYNAMIC-EXTENT to avoid. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> LET OR LET IF COND IF THE RETURN-FROM ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a (MOD 1114112): ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> LET OR LET IF COND IF THE RETURN-FROM ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a (MOD 1114112): ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (DECLARE #) ; (LET # ; # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET ; ==> ; (BLOCK FLEXI-STREAMS::CHAR-DECODER ; (LOCALLY ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (FLET ((#:GET-CHAR-CODE4 # ; #)) ; (LET (#) ; (CASE #:CHAR-CODE2 # #))))) ; ; note: Allocating a value-cell at runtime for checking possibly out of extent exit via ; (RETURN-FROM CHAR-DECODER ; (RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.")). ; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT ; to avoid. ; ; note: Allocating a value-cell at runtime for checking possibly out of extent exit via ; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare ; the exit function DYNAMIC-EXTENT to avoid. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET ; ==> ; (BLOCK FLEXI-STREAMS::CHAR-DECODER ; (LOCALLY ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (FLET ((#:GET-CHAR-CODE4 # ; #)) ; (LET (#) ; (CASE #:CHAR-CODE2 # #))))) ; ; note: Allocating a value-cell at runtime for checking possibly out of extent exit via ; (RETURN-FROM CHAR-DECODER ; (RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.")). ; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT ; to avoid. ; ; note: Allocating a value-cell at runtime for checking possibly out of extent exit via ; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare ; the exit function DYNAMIC-EXTENT to avoid. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET ; ==> ; (BLOCK FLEXI-STREAMS::CHAR-DECODER ; (LOCALLY ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (FLET ((#:GET-CHAR-CODE4 # ; #)) ; (LET (#) ; (CASE #:CHAR-CODE2 # #))))) ; ; note: Allocating a value-cell at runtime for checking possibly out of extent exit via ; (RETURN-FROM CHAR-DECODER ; (RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.")). ; Use GO/RETURN-FROM with SAFETY 0, or declare the exit function DYNAMIC-EXTENT ; to avoid. ; ; note: Allocating a value-cell at runtime for checking possibly out of extent exit via ; (RETURN-FROM CHAR-DECODER NIL). Use GO/RETURN-FROM with SAFETY 0, or declare ; the exit function DYNAMIC-EXTENT to avoid. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; --> LET OR LET IF COND IF THE ; ==> ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL) ; ; caught STYLE-WARNING: ; Result is a (VALUES &OPTIONAL NULL &REST T), not a (MOD 1114112). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (DECLARE #) ; (LET # ; # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: 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 GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFINE-CHAR-DECODERS (FLEXI-GBK-FORMAT FLEXI-CR-GBK-FORMAT ...) ...) ; file: /usr/share/common-lisp/source/cl-flexi-streams/decode.lisp ; in: ; DEFINE-CHAR-DECODERS (FLEXI-GBK-FORMAT FLEXI-CR-GBK-FORMAT ; FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733) ; (T ; (LET # ; #))))) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER)) ; (IF (NULL FLEXI-STREAMS::NEXT-BYTE) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in GBK sequence.") ; (LET ((FLEXI-STREAMS::WORD #)) ; (DECLARE (TYPE # FLEXI-STREAMS::WORD)) ; (LET (#) ; (IF FLEXI-STREAMS:OCTET ; FLEXI-STREAMS:OCTET ; #))))) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER)) ; (IF (NULL FLEXI-STREAMS::NEXT-BYTE) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in GBK sequence.") ; (LET ((FLEXI-STREAMS::WORD #)) ; (DECLARE (TYPE # FLEXI-STREAMS::WORD)) ; (LET (#) ; (IF FLEXI-STREAMS:OCTET ; FLEXI-STREAMS:OCTET ; #))))) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER)) ; (IF (NULL FLEXI-STREAMS::NEXT-BYTE) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in GBK sequence.") ; (LET ((FLEXI-STREAMS::WORD #)) ; (DECLARE (TYPE # FLEXI-STREAMS::WORD)) ; (LET (#) ; (IF FLEXI-STREAMS:OCTET ; FLEXI-STREAMS:OCTET ; #))))) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733) ; (T ; (LET # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER)) ; (IF (NULL FLEXI-STREAMS::NEXT-BYTE) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in GBK sequence.") ; (LET ((FLEXI-STREAMS::WORD #)) ; (DECLARE (TYPE # FLEXI-STREAMS::WORD)) ; (LET (#) ; (IF FLEXI-STREAMS:OCTET ; FLEXI-STREAMS:OCTET ; #))))) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733) ; (T ; (LET # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER)) ; (IF (NULL FLEXI-STREAMS::NEXT-BYTE) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in GBK sequence.") ; (LET ((FLEXI-STREAMS::WORD #)) ; (DECLARE (TYPE # FLEXI-STREAMS::WORD)) ; (LET (#) ; (IF FLEXI-STREAMS:OCTET ; FLEXI-STREAMS:OCTET ; #))))) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER)) ; (IF (NULL FLEXI-STREAMS::NEXT-BYTE) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in GBK sequence.") ; (LET ((FLEXI-STREAMS::WORD #)) ; (DECLARE (TYPE # FLEXI-STREAMS::WORD)) ; (LET (#) ; (IF FLEXI-STREAMS:OCTET ; FLEXI-STREAMS:OCTET ; #))))) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER)) ; (IF (NULL FLEXI-STREAMS::NEXT-BYTE) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in GBK sequence.") ; (LET ((FLEXI-STREAMS::WORD #)) ; (DECLARE (TYPE # FLEXI-STREAMS::WORD)) ; (LET (#) ; (IF FLEXI-STREAMS:OCTET ; FLEXI-STREAMS:OCTET ; #))))) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733) ; (T ; (LET # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER)) ; (IF (NULL FLEXI-STREAMS::NEXT-BYTE) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in GBK sequence.") ; (LET ((FLEXI-STREAMS::WORD #)) ; (DECLARE (TYPE # FLEXI-STREAMS::WORD)) ; (LET (#) ; (IF FLEXI-STREAMS:OCTET ; FLEXI-STREAMS:OCTET ; #))))) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733) ; (T ; (LET # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER)) ; (IF (NULL FLEXI-STREAMS::NEXT-BYTE) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in GBK sequence.") ; (LET ((FLEXI-STREAMS::WORD #)) ; (DECLARE (TYPE # FLEXI-STREAMS::WORD)) ; (LET (#) ; (IF FLEXI-STREAMS:OCTET ; FLEXI-STREAMS:OCTET ; #))))) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER)) ; (IF (NULL FLEXI-STREAMS::NEXT-BYTE) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in GBK sequence.") ; (LET ((FLEXI-STREAMS::WORD #)) ; (DECLARE (TYPE # FLEXI-STREAMS::WORD)) ; (LET (#) ; (IF FLEXI-STREAMS:OCTET ; FLEXI-STREAMS:OCTET ; #))))) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER)) ; (IF (NULL FLEXI-STREAMS::NEXT-BYTE) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in GBK sequence.") ; (LET ((FLEXI-STREAMS::WORD #)) ; (DECLARE (TYPE # FLEXI-STREAMS::WORD)) ; (LET (#) ; (IF FLEXI-STREAMS:OCTET ; FLEXI-STREAMS:OCTET ; #))))) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733) ; (T ; (LET # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF 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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-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 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-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)). ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (LET ((FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER)) ; (IF (NULL FLEXI-STREAMS::NEXT-BYTE) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in GBK sequence.") ; (LET ((FLEXI-STREAMS::WORD #)) ; (DECLARE (TYPE # FLEXI-STREAMS::WORD)) ; (LET (#) ; (IF FLEXI-STREAMS:OCTET ; FLEXI-STREAMS:OCTET ; #))))) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733) ; (T ; (LET # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFINE-CHAR-DECODERS (FLEXI-UTF-32-LE-FORMAT FLEXI-CR-UTF-32-LE-FORMAT ...) ...) ; file: /usr/share/common-lisp/source/cl-flexi-streams/decode.lisp ; in: ; DEFINE-CHAR-DECODERS (FLEXI-UTF-32-LE-FORMAT FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-16 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; 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. ; (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-124 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; 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-139 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; 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-107 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; (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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; 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. ; (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-453 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; 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-469 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; 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-435 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; (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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; 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. ; (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-805 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; 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-788 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; 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-769 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; (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: 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFINE-CHAR-DECODERS (FLEXI-UTF-32-BE-FORMAT FLEXI-CR-UTF-32-BE-FORMAT ...) ...) ; file: /usr/share/common-lisp/source/cl-flexi-streams/decode.lisp ; in: ; DEFINE-CHAR-DECODERS (FLEXI-UTF-32-BE-FORMAT FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-16 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; 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. ; (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-124 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; 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-139 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; 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-107 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; (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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; 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. ; (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-453 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; 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-469 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY LET PROGN LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; 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-435 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; (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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; 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. ; (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-769 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; 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-788 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF PROGN FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; 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-805 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF PROGN FLEXI-STREAMS::ITERATE ; --> FLET LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK ; --> LOCALLY FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF > IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; (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: 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFMETHOD OCTETS-TO-CHAR-CODE ...) ; processing (DEFMETHOD OCTETS-TO-CHAR-CODE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-flexi-streams/decode-tmpOBHVA3CD.fasl ; compilation finished in 0:00:02.402 WARNING: Lisp compilation had style-warnings while compiling # ; 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 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (PLUSP BYTE) ; ; note: forced to do FAST-IF->-ZERO (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFMETHOD PEEK-BYTE ...) ; file: /usr/share/common-lisp/source/cl-flexi-streams/in-memory.lisp ; in: DEFMETHOD PEEK-BYTE (LIST-INPUT-STREAM) ; (= BYTE FLEXI-STREAMS::PEEK-TYPE) ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP BYTE) ; ; note: forced to do FAST-IF->-ZERO (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; 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 FAST-IF-<-ZERO (cost 9) ; 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. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; 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 FAST-IF-<-ZERO (cost 9) ; 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. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-flexi-streams/in-memory-tmpJ6ELVFLF.fasl ; compilation finished in 0:00:00.229 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-flexi-streams/stream-tmpULDB0RG.fasl ; compilation finished in 0:00:00.027 ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFMETHOD STREAM-CLEAR-OUTPUT ...) ; processing (DEFMETHOD STREAM-FINISH-OUTPUT ...) ; processing (DEFMETHOD STREAM-FORCE-OUTPUT ...) ; processing (DEFMETHOD STREAM-LINE-COLUMN ...) ; processing (DEFMETHOD STREAM-WRITE-BYTE ...) ; processing (DEFMETHOD STREAM-WRITE-SEQUENCE ...) ; processing (DEFMETHOD STREAM-WRITE-STRING ...) ; file: /usr/share/common-lisp/source/cl-flexi-streams/output.lisp ; in: DEFMETHOD STREAM-WRITE-STRING (FLEXI-OUTPUT-STREAM T) ; (LENGTH STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-flexi-streams/output-tmpUTZ0UUTE.fasl ; compilation finished in 0:00:00.022 ; 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 GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; (INCF POSITION) ; ==> ; (+ 1 (THE INTEGER (FLEXI-STREAMS:FLEXI-STREAM-POSITION #:G08))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (DECF POSITION) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFMETHOD STREAM-CLEAR-INPUT ...) ; processing (DEFMETHOD STREAM-LISTEN ...) ; file: /usr/share/common-lisp/source/cl-flexi-streams/input.lisp ; in: DEFMETHOD STREAM-LISTEN (FLEXI-INPUT-STREAM) ; (>= POSITION FLEXI-STREAMS::BOUND) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; 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: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFMETHOD STREAM-READ-CHAR ...) ; file: /usr/share/common-lisp/source/cl-flexi-streams/input.lisp ; in: DEFMETHOD STREAM-READ-CHAR (FLEXI-INPUT-STREAM) ; (OR (CODE-CHAR CHAR-CODE) CHAR-CODE) ; --> IF ; ==> ; CHAR-CODE ; ; note: deleting unreachable code ; processing (DEFMETHOD STREAM-READ-CHAR-NO-HANG ...) ; processing (DEFMETHOD STREAM-READ-SEQUENCE ...) ; file: /usr/share/common-lisp/source/cl-flexi-streams/input.lisp ; in: DEFMETHOD STREAM-READ-SEQUENCE (FLEXI-INPUT-STREAM T T T) ; (- FLEXI-STREAMS::BOUND POSITION) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; (+ 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)). ; (REPLACE SEQUENCE FLEXI-STREAMS::OCTET-STACK :START1 FLEXI-STREAMS::START ; :END1 FLEXI-STREAMS::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY * (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; (LENGTH FLEXI-STREAMS::OCTET-STACK) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (ELT SEQUENCE (1- FLEXI-STREAMS::INDEX)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (INCF POSITION (- FLEXI-STREAMS::INDEX FLEXI-STREAMS::START)) ; ==> ; (+ (- FLEXI-STREAMS::INDEX FLEXI-STREAMS::START) ; (FLEXI-STREAMS:FLEXI-STREAM-POSITION #:G1130)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; (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 GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (+ FLEXI-STREAMS::START (- FLEXI-STREAMS::BOUND POSITION)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MIN FLEXI-STREAMS::END ; (+ FLEXI-STREAMS::START (- FLEXI-STREAMS::BOUND POSITION))) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; (INCF POSITION (- FLEXI-STREAMS::INDEX FLEXI-STREAMS::START)) ; ==> ; (+ (- FLEXI-STREAMS::INDEX FLEXI-STREAMS::START) ; (FLEXI-STREAMS:FLEXI-STREAM-POSITION #:G1130)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -4611686018427387902 9223372036854775804), not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-+ ; 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 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 open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; 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 (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; (DECF (THE INTEGER POSITION)) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFMETHOD PEEK-BYTE ...) ; file: /usr/share/common-lisp/source/cl-flexi-streams/input.lisp ; in: DEFMETHOD PEEK-BYTE (FLEXI-INPUT-STREAM) ; (= FLEXI-STREAMS:OCTET FLEXI-STREAMS::PEEK-TYPE) ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP FLEXI-STREAMS:OCTET) ; ; note: forced to do FAST-IF->-ZERO (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-flexi-streams/input-tmpOOSRA8PZ.fasl ; compilation finished in 0:00:00.043 ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-flexi-streams/io-tmpDMIL0RVK.fasl ; compilation finished in 0:00:00.023 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-flexi-streams/strings-tmp8MR9IMIO.fasl ; compilation finished in 0:00:00.013 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/bordeaux-threads/src/pkgdcl-tmpJQDKAVAY.fasl ; compilation finished in 0:00:00.001 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/bordeaux-threads/src/bordeaux-threads-tmp3I8CEEQY.fasl ; compilation finished in 0:00:00.027 ; compiling file "/usr/share/common-lisp/source/bordeaux-threads/src/impl-sbcl.lisp" (written 07 JUN 2020 09:11:43 PM): ; processing (IN-PACKAGE #:BORDEAUX-THREADS) ; processing (DEFTYPE THREAD ...) ; processing (DEFUN %MAKE-THREAD ...) ; processing (DEFUN CURRENT-THREAD ...) ; processing (DEFUN THREADP ...) ; processing (DEFUN THREAD-NAME ...) ; processing (DEFTYPE LOCK ...) ; processing (DEFTYPE RECURSIVE-LOCK ...) ; processing (DEFUN LOCK-P ...) ; processing (DEFUN RECURSIVE-LOCK-P ...) ; processing (DEFUN MAKE-LOCK ...) ; processing (DEFUN ACQUIRE-LOCK ...) ; processing (DEFUN RELEASE-LOCK ...) ; processing (DEFMACRO WITH-LOCK-HELD ...) ; processing (DEFUN MAKE-RECURSIVE-LOCK ...) ; processing (DEFMACRO WITH-RECURSIVE-LOCK-HELD ...) ; processing (DEFUN MAKE-CONDITION-VARIABLE ...) ; processing (DEFUN CONDITION-WAIT ...) ; processing (DEFUN CONDITION-NOTIFY ...) ; processing (DEFUN THREAD-YIELD ...) ; processing (DEFTYPE TIMEOUT ...) ; processing (DEFMACRO WITH-TIMEOUT ...) ; processing (DEFTYPE SEMAPHORE ...) ; processing (DEFUN MAKE-SEMAPHORE ...) ; processing (DEFUN SIGNAL-SEMAPHORE ...) ; processing (DEFUN WAIT-ON-SEMAPHORE ...) ; processing (DEFUN ALL-THREADS ...) ; processing (DEFUN INTERRUPT-THREAD ...) ; processing (DEFUN DESTROY-THREAD ...) ; processing (DEFUN THREAD-ALIVE-P ...) ; processing (DEFUN JOIN-THREAD ...) ; processing (MARK-SUPPORTED) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/bordeaux-threads/src/impl-sbcl-tmpA3RHFLWZ.fasl ; compilation finished in 0:00:00.028 ; 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 ...) ; processing (DEFDFUN ALL-THREADS ...) ; processing (DEFDFUN INTERRUPT-THREAD ...) ; processing (DEFDFUN DESTROY-THREAD ...) ; processing (DEFDFUN THREAD-ALIVE-P ...) ; processing (DEFDFUN JOIN-THREAD ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/bordeaux-threads/src/default-implementations-tmpYZIB7VXO.fasl ; compilation finished in 0:00:00.054 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/trivial-garbage/trivial-garbage-tmpR8PK79V8.fasl ; compilation finished in 0:00:00.016 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-split-sequence/package-tmpN1ZVB1HZ.fasl ; compilation finished in 0:00:00.001 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-split-sequence/vector-tmpZGRRPISB.fasl ; compilation finished in 0:00:00.073 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-split-sequence/list-tmpFNKDE5XP.fasl ; compilation finished in 0:00:00.112 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-split-sequence/extended-sequence-tmpRJTU435C.fasl ; compilation finished in 0:00:00.065 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-split-sequence/api-tmpI9WG87JK.fasl ; compilation finished in 0:00:00.287 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-split-sequence/documentation-tmpYDE6I9E6.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/usocket/package.lisp" (written 23 DEC 2019 01:05:56 PM): ; processing (DEFPACKAGE :USOCKET ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/usocket/package-tmp319UV2V8.fasl ; compilation finished in 0:00:00.001 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/usocket/usocket-tmpLYQINFYS.fasl ; compilation finished in 0:00:00.082 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/usocket/condition-tmpGA31XWNO.fasl ; compilation finished in 0:00:00.022 ; 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 #'#:G11) ; ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/usocket/backend/sbcl-tmp5HT23M6C.fasl ; compilation finished in 0:00:00.067 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/usocket/option-tmpA60KLDKY.fasl ; compilation finished in 0:00:00.034 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl+ssl/src/package-tmpD801X3GJ.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/cl+ssl/src/reload.lisp" (written 01 APR 2022 06:14:25 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl+ssl/src/reload-tmpGOW1GC70.fasl ; compilation finished in 0:00:00.004 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl+ssl/src/conditions-tmpPQ1X28TL.fasl ; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/cl+ssl/src/ffi.lisp" (written 01 APR 2022 06:14:25 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) ...) ; processing (DECLAIM (INLINE SSL-WRITE ...)) ; processing (CFFI:DEFCTYPE SSL-METHOD ...) ; processing (CFFI:DEFCTYPE SSL-CTX ...) ; processing (CFFI:DEFCTYPE SSL-POINTER ...) ; processing (DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLeay" CL+SSL::SSL-EAY) ; :LONG) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-EAY ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-EAY ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLeay" (:LONG) :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:SINCE "1.1.0") ; ("OpenSSL_version_num" CL+SSL::OPENSSL-VERSION-NUM) ; :LONG) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::OPENSSL-VERSION-NUM ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::OPENSSL-VERSION-NUM ; (CFFI-SYS:%FOREIGN-FUNCALL "OpenSSL_version_num" (:LONG) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBCRYPTO))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; processing (DEFUN COMPAT-OPENSSL-VERSION ...) ; processing (DEFUN ENCODE-OPENSSL-VERSION ...) ; processing (DEFUN OPENSSL-IS-AT-LEAST ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFUN OPENSSL-IS-AT-LEAST ; (>= (CL+SSL::COMPAT-OPENSSL-VERSION) ; (CL+SSL::ENCODE-OPENSSL-VERSION CL+SSL::MAJOR CL+SSL::MINOR CL+SSL::PATCH ; CL+SSL::PRERELEASE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * 8.15792463d8) ; (SINGLE-FLOAT * 8.1579245e8) ; (RATIONAL * 815792463)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; 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 GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; 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 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) ; #) ; ; 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") ...) ; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...) ; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv23_client_method" CL+SSL::SSL-V23-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V23-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_client_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv23_server_method" CL+SSL::SSL-V23-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V23-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_server_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv23_method" CL+SSL::SSL-V23-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V23-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv3_client_method" CL+SSL::SSL-V3-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V3-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_client_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv3_server_method" CL+SSL::SSL-V3-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V3-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_server_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv3_method" CL+SSL::SSL-V3-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V3-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_method" (:POINTER) :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-SSL-FUNCTION ("TLSv1_client_method" SSL-TLSV1-CLIENT-METHOD) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("TLSv1_client_method" SSL-TLSV1-CLIENT-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("TLSv1_client_method" CL+SSL::SSL-TLSV1-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_client_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-SSL-FUNCTION ("TLSv1_server_method" SSL-TLSV1-SERVER-METHOD) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("TLSv1_server_method" SSL-TLSV1-SERVER-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("TLSv1_server_method" CL+SSL::SSL-TLSV1-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_server_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-SSL-FUNCTION ("TLSv1_method" SSL-TLSV1-METHOD) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("TLSv1_method" SSL-TLSV1-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("TLSv1_method" CL+SSL::SSL-TLSV1-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_method" (:POINTER) :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_1_client_method" CL+SSL::SSL-TLSV1-1-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-1-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_client_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_1_server_method" CL+SSL::SSL-TLSV1-1-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-1-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_server_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_1_method" CL+SSL::SSL-TLSV1-1-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-1-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_2_client_method" CL+SSL::SSL-TLSV1-2-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-2-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_client_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_2_server_method" CL+SSL::SSL-TLSV1-2-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-2-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_server_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_2_method" CL+SSL::SSL-TLSV1-2-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-2-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.1.0") ; ("TLS_method" CL+SSL::TLS-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::TLS-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::TLS-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLS_method" (:POINTER) :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_new" SSL-CTX-NEW) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("SSL_CTX_new" SSL-CTX-NEW) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_CTX_new" CL+SSL::SSL-CTX-NEW) ; CL+SSL::SSL-CTX ; (METHOD CL+SSL::SSL-METHOD)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-NEW ; (METHOD) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-CTX-NEW ; (LET ((#:G0 METHOD)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_new" (:POINTER #:G0 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-SSL-FUNCTION ("SSL_new" SSL-NEW) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("SSL_new" SSL-NEW) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_new" CL+SSL::SSL-NEW) ; CL+SSL::SSL-POINTER ; (CL+SSL::CTX CL+SSL::SSL-CTX)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-NEW ; (CL+SSL::CTX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-NEW ; (LET ((#:G0 CL+SSL::CTX)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_new" (:POINTER #:G0 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-SSL-FUNCTION ("SSL_get_fd" SSL-GET-FD) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_set_fd" SSL-SET-FD) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_set_bio" SSL-SET-BIO) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_get_error" SSL-GET-ERROR) ...) ; 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) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_accept" SSL-ACCEPT) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_write" SSL-WRITE) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_read" SSL-READ) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_shutdown" SSL-SHUTDOWN) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_free" SSL-FREE) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_free" SSL-CTX-FREE) ...) ; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0") ...) ; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0") ...) ; processing (DEFINE-CRYPTO-FUNCTION ("BIO_ctrl" BIO-SET-FD) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("BIO_ctrl" BIO-SET-FD) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("BIO_ctrl" CL+SSL::BIO-SET-FD) ; :LONG ; (CL+SSL::BIO :POINTER) ; (CL+SSL::CMD :INT) ; (CL+SSL::LARG :LONG) ; (CL+SSL::PARG :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-SET-FD ; (CL+SSL::BIO CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-SET-FD ; (LET ((#:G0 CL+SSL::BIO)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION ("BIO_new_socket" BIO-NEW-SOCKET) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("BIO_new_socket" BIO-NEW-SOCKET) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("BIO_new_socket" CL+SSL::BIO-NEW-SOCKET) ; :POINTER ; (CL+SSL::FD :INT) ; (CL+SSL::CLOSE-FLAG :INT)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-NEW-SOCKET ; (CL+SSL::FD CL+SSL::CLOSE-FLAG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-NEW-SOCKET ; (LET ((#:G0 CL+SSL::FD)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_new_socket" # :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBCRYPTO))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION ("BIO_new" BIO-NEW) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("BIO_new" BIO-NEW) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("BIO_new" CL+SSL::BIO-NEW) ; :POINTER ; (METHOD :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-NEW ; (METHOD) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-NEW ; (LET ((#:G0 METHOD)) ; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_new" (:POINTER #:G0 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION ("BIO_free" BIO-FREE) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("BIO_free" BIO-FREE) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("BIO_free" CL+SSL::BIO-FREE) ; :POINTER ; (METHOD :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-FREE ; (METHOD) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-FREE ; (LET ((#:G0 METHOD)) ; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_free" (:POINTER #:G0 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...) ; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:SINCE "1.1.0") ; ("BIO_meth_new" CL+SSL::BIO-METH-NEW) ; :POINTER ; (TYPE :INT) ; (CL+SSL::NAME :STRING)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-METH-NEW ; (TYPE CL+SSL::NAME) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-METH-NEW ; (LET ((#:G0 TYPE)) ; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM2) ; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::NAME #) ; (UNWIND-PROTECT # #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...) ; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...) ; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...) ; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...) ; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...) ; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...) ; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...) ; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...) ; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...) ; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...) ; processing (DEFINE-CRYPTO-FUNCTION ("ERR_get_error" ERR-GET-ERROR) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("ERR_get_error" ERR-GET-ERROR) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("ERR_get_error" CL+SSL::ERR-GET-ERROR) ; :UNSIGNED-LONG) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::ERR-GET-ERROR ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::ERR-GET-ERROR ; (CFFI-SYS:%FOREIGN-FUNCALL "ERR_get_error" (:UNSIGNED-LONG) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBCRYPTO))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; 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) ; #) ; ; 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) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_use_RSAPrivateKey_file" SSL-USE-RSA-PRIVATEKEY-FILE) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_use_RSAPrivateKey_file" SSL-CTX-USE-RSA-PRIVATEKEY-FILE) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_use_PrivateKey_file" SSL-USE-PRIVATEKEY-FILE) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_use_PrivateKey_file" SSL-CTX-USE-PRIVATEKEY-FILE) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_use_certificate_file" SSL-USE-CERTIFICATE-FILE) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_ctrl" SSL-CTX-CTRL) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("SSL_CTX_ctrl" SSL-CTX-CTRL) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_CTX_ctrl" CL+SSL::SSL-CTX-CTRL) ; :LONG ; (CL+SSL::CTX CL+SSL::SSL-CTX) ; (CL+SSL::CMD :INT) ; (CL+SSL::LARG :UNSIGNED-LONG) ; (CL+SSL::PARG :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-CTRL ; (CL+SSL::CTX CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-CTX-CTRL ; (LET ((#:G0 CL+SSL::CTX)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; processing (DEFINE-SSL-FUNCTION ("SSL_ctrl" SSL-CTRL) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("SSL_ctrl" SSL-CTRL) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_ctrl" CL+SSL::SSL-CTRL) ; :LONG ; (CL+SSL::SSL :POINTER) ; (CL+SSL::CMD :INT) ; (CL+SSL::LARG :LONG) ; (CL+SSL::PARG :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTRL ; (CL+SSL::SSL CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-CTRL ; (LET ((#:G0 CL+SSL::SSL)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; 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%) ...) ; processing (DEFUN SSL-CTX-SET-CIPHER-LIST ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_use_certificate_chain_file" SSL-CTX-USE-CERTIFICATE-CHAIN-FILE) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_load_verify_locations" SSL-CTX-LOAD-VERIFY-LOCATIONS) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_set_client_CA_list" SSL-CTX-SET-CLIENT-CA-LIST) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_load_client_CA_file" SSL-LOAD-CLIENT-CA-FILE) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: ; DEFINE-SSL-FUNCTION ("SSL_load_client_CA_file" SSL-LOAD-CLIENT-CA-FILE) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_load_client_CA_file" CL+SSL::SSL-LOAD-CLIENT-CA-FILE) ; CL+SSL::SSL-POINTER ; (CL+SSL::FILE :STRING)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-LOAD-CLIENT-CA-FILE ; (CL+SSL::FILE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-LOAD-CLIENT-CA-FILE ; (MULTIPLE-VALUE-BIND (#:G0 #:PARAM1) ; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::FILE ; #) ; (UNWIND-PROTECT (PROGN #) ; (CFFI:FREE-TRANSLATED-OBJECT #:G0 # #:PARAM1))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; 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") ...) ; 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) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_set_verify_depth" SSL-CTX-SET-VERIFY-DEPTH) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_set_verify" SSL-CTX-SET-VERIFY) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_get_verify_result" SSL-GET-VERIFY-RESULT) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION ("SSL_get_verify_result" SSL-GET-VERIFY-RESULT) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_get_verify_result" CL+SSL::SSL-GET-VERIFY-RESULT) ; :LONG ; (CL+SSL::SSL CL+SSL::SSL-POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET-VERIFY-RESULT ; (CL+SSL::SSL) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-GET-VERIFY-RESULT ; (LET ((#:G0 CL+SSL::SSL)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_verify_result" ; (:POINTER #:G0 :LONG) :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBSSL)))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "3.0.0") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "3.0.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "3.0.0") ; ("SSL_get_peer_certificate" CL+SSL::SSL-GET-PEER-CERTIFICATE) ; :POINTER ; (CL+SSL::SSL CL+SSL::SSL-POINTER)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET-PEER-CERTIFICATE ; (CL+SSL::SSL) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-GET-PEER-CERTIFICATE ; (LET ((#:G0 CL+SSL::SSL)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_peer_certificate" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "3.0.0") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION-EX (:SINCE "3.0.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "3.0.0") ; ("SSL_get1_peer_certificate" CL+SSL::SSL-GET1-PEER-CERTIFICATE) ; :POINTER ; (CL+SSL::SSL CL+SSL::SSL-POINTER)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET1-PEER-CERTIFICATE ; (CL+SSL::SSL) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-GET1-PEER-CERTIFICATE ; (LET ((#:G0 CL+SSL::SSL)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get1_peer_certificate" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION ("X509_free" X509-FREE) ...) ; processing (DEFINE-CRYPTO-FUNCTION ("X509_NAME_oneline" X509-NAME-ONELINE) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("X509_NAME_oneline" X509-NAME-ONELINE) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_NAME_oneline" CL+SSL::X509-NAME-ONELINE) ; :POINTER ; (CL+SSL::X509-NAME :POINTER) ; (CL+SSL::BUF :POINTER) ; (CL+SSL::SIZE :INT)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-ONELINE ; (CL+SSL::X509-NAME CL+SSL::BUF CL+SSL::SIZE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-NAME-ONELINE ; (LET ((#:G0 CL+SSL::X509-NAME)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION ("X509_NAME_get_index_by_NID" X509-NAME-GET-INDEX-BY-NID) ...) ; processing (DEFINE-CRYPTO-FUNCTION ("X509_NAME_get_entry" X509-NAME-GET-ENTRY) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("X509_NAME_get_entry" X509-NAME-GET-ENTRY) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_NAME_get_entry" CL+SSL::X509-NAME-GET-ENTRY) ; :POINTER ; (CL+SSL::NAME :POINTER) ; (LOG :INT)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-GET-ENTRY ; (CL+SSL::NAME LOG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-NAME-GET-ENTRY ; (LET ((#:G0 CL+SSL::NAME)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_NAME_get_entry" # :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION ("X509_NAME_ENTRY_get_data" X509-NAME-ENTRY-GET-DATA) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: ; DEFINE-CRYPTO-FUNCTION ("X509_NAME_ENTRY_get_data" X509-NAME-ENTRY-GET-DATA) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_NAME_ENTRY_get_data" CL+SSL::X509-NAME-ENTRY-GET-DATA) ; :POINTER ; (CL+SSL::NAME-ENTRY :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-ENTRY-GET-DATA ; (CL+SSL::NAME-ENTRY) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-NAME-ENTRY-GET-DATA ; (LET ((#:G0 CL+SSL::NAME-ENTRY)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_NAME_ENTRY_get_data" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION ("X509_get_issuer_name" X509-GET-ISSUER-NAME) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: ; DEFINE-CRYPTO-FUNCTION ("X509_get_issuer_name" X509-GET-ISSUER-NAME) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_get_issuer_name" CL+SSL::X509-GET-ISSUER-NAME) ; :POINTER ; (CL+SSL::X509 :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-ISSUER-NAME ; (CL+SSL::X509) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET-ISSUER-NAME ; (LET ((#:G0 CL+SSL::X509)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get_issuer_name" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION ("X509_get_subject_name" X509-GET-SUBJECT-NAME) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: ; DEFINE-CRYPTO-FUNCTION ("X509_get_subject_name" X509-GET-SUBJECT-NAME) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_get_subject_name" CL+SSL::X509-GET-SUBJECT-NAME) ; :POINTER ; (CL+SSL::X509 :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-SUBJECT-NAME ; (CL+SSL::X509) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET-SUBJECT-NAME ; (LET ((#:G0 CL+SSL::X509)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get_subject_name" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:SINCE "1.1.0") ; ("X509_get0_notBefore" CL+SSL::X509-GET0-NOT-BEFORE) ; :POINTER ; (CL+SSL::X509 :POINTER)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET0-NOT-BEFORE ; (CL+SSL::X509) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET0-NOT-BEFORE ; (LET ((#:G0 CL+SSL::X509)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get0_notBefore" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:SINCE "1.1.0") ; ("X509_get0_notAfter" CL+SSL::X509-GET0-NOT-AFTER) ; :POINTER ; (CL+SSL::X509 :POINTER)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET0-NOT-AFTER ; (CL+SSL::X509) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET0-NOT-AFTER ; (LET ((#:G0 CL+SSL::X509)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get0_notAfter" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION ("X509_get_ext_d2i" X509-GET-EXT-D2I) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("X509_get_ext_d2i" X509-GET-EXT-D2I) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_get_ext_d2i" CL+SSL::X509-GET-EXT-D2I) ; :POINTER ; (CL+SSL::CERT :POINTER) ; (CL+SSL::NID :INT) ; (CL+SSL::CRIT :POINTER) ; (CL+SSL::IDX :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-EXT-D2I ; (CL+SSL::CERT CL+SSL::NID CL+SSL::CRIT CL+SSL::IDX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET-EXT-D2I ; (LET ((#:G0 CL+SSL::CERT)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION ("X509_STORE_CTX_get_error" X509-STORE-CTX-GET-ERROR) ...) ; processing (DEFINE-CRYPTO-FUNCTION ("d2i_X509" D2I-X509) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("d2i_X509" D2I-X509) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("d2i_X509" CL+SSL::D2I-X509) ; :POINTER ; (CL+SSL::*PX :POINTER) ; (CL+SSL::IN :POINTER) ; (CL+SSL::LEN :INT)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::D2I-X509 ; (CL+SSL::*PX CL+SSL::IN CL+SSL::LEN) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::D2I-X509 ; (LET ((#:G0 CL+SSL::*PX)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION ("X509_digest" X509-DIGEST) ...) ; processing (DEFINE-CRYPTO-FUNCTION ("PEM_write_bio_X509" PEM-WRITE-X509) ...) ; processing (DEFINE-CRYPTO-FUNCTION ("PEM_read_bio_X509" PEM-READ-X509) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("PEM_read_bio_X509" PEM-READ-X509) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("PEM_read_bio_X509" CL+SSL::PEM-READ-X509) ; :POINTER ; (CL+SSL::BIO :POINTER) ; (CL+SSL::X509 :INT) ; (CL+SSL::CALLBACK :INT) ; (CL+SSL::PASSPHRASE :INT)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::PEM-READ-X509 ; (CL+SSL::BIO CL+SSL::X509 CL+SSL::CALLBACK CL+SSL::PASSPHRASE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::PEM-READ-X509 ; (LET ((#:G0 CL+SSL::BIO)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION ("EVP_get_digestbyname" EVP-GET-DIGEST-BY-NAME) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: ; DEFINE-CRYPTO-FUNCTION ("EVP_get_digestbyname" EVP-GET-DIGEST-BY-NAME) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("EVP_get_digestbyname" CL+SSL::EVP-GET-DIGEST-BY-NAME) ; :POINTER ; (CL+SSL::NAME :STRING)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::EVP-GET-DIGEST-BY-NAME ; (CL+SSL::NAME) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::EVP-GET-DIGEST-BY-NAME ; (MULTIPLE-VALUE-BIND (#:G0 #:PARAM1) ; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::NAME ; #) ; (UNWIND-PROTECT (PROGN #) ; (CFFI:FREE-TRANSLATED-OBJECT #:G0 # #:PARAM1))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "3.0.0") ...) ; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "3.0.0") ...) ; processing (DEFCONSTANT +GEN-OTHERNAME+ ...) ; processing (DEFCONSTANT +GEN-EMAIL+ ...) ; processing (DEFCONSTANT +GEN-DNS+ ...) ; processing (DEFCONSTANT +GEN-X400+ ...) ; processing (DEFCONSTANT +GEN-DIRNAME+ ...) ; processing (DEFCONSTANT +GEN-EDIPARTY+ ...) ; processing (DEFCONSTANT +GEN-URI+ ...) ; processing (DEFCONSTANT +GEN-IPADD+ ...) ; processing (DEFCONSTANT +GEN-RID+ ...) ; processing (DEFCONSTANT +V-ASN1-OCTET-STRING+ ...) ; processing (DEFCONSTANT +V-ASN1-UTF8STRING+ ...) ; processing (DEFCONSTANT +V-ASN1-PRINTABLESTRING+ ...) ; processing (DEFCONSTANT +V-ASN1-TELETEXSTRING+ ...) ; processing (DEFCONSTANT +V-ASN1-IASTRING+ ...) ; processing (DEFCONSTANT +V-ASN1-UNIVERSALSTRING+ ...) ; processing (DEFCONSTANT +V-ASN1-BMPSTRING+ ...) ; processing (DEFCONSTANT +NID-SUBJECT-ALT-NAME+ ...) ; processing (DEFCONSTANT +NID-COMMONNAME+ ...) ; processing (CFFI:DEFCSTRUCT GENERAL-NAME ...) ; processing (DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("sk_value" CL+SSL::SK-VALUE) ; :POINTER ; (CL+SSL::STACK :POINTER) ; (CL+SSL::INDEX :INT)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-VALUE ; (CL+SSL::STACK CL+SSL::INDEX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SK-VALUE ; (LET ((#:G0 CL+SSL::STACK)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "sk_value" # :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ...) ; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:SINCE "1.1.0") ; ("OPENSSL_sk_value" CL+SSL::OPENSSL-SK-VALUE) ; :POINTER ; (CL+SSL::STACK :POINTER) ; (CL+SSL::INDEX :INT)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::OPENSSL-SK-VALUE ; (CL+SSL::STACK CL+SSL::INDEX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::OPENSSL-SK-VALUE ; (LET ((#:G0 CL+SSL::STACK)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "OPENSSL_sk_value" # :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBCRYPTO))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN SK-GENERAL-NAME-VALUE ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFUN SK-GENERAL-NAME-VALUE ; (DEFUN CL+SSL::SK-GENERAL-NAME-VALUE (CL+SSL::NAMES CL+SSL::INDEX) ; (IF (AND (NOT (CL+SSL::LIBRESSLP)) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1)) ; (CL+SSL::OPENSSL-SK-VALUE CL+SSL::NAMES CL+SSL::INDEX) ; (CL+SSL::SK-VALUE CL+SSL::NAMES CL+SSL::INDEX))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-GENERAL-NAME-VALUE ; (CL+SSL::NAMES CL+SSL::INDEX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SK-GENERAL-NAME-VALUE ; (IF (AND (NOT #) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1)) ; (CL+SSL::OPENSSL-SK-VALUE CL+SSL::NAMES CL+SSL::INDEX) ; (CL+SSL::SK-VALUE CL+SSL::NAMES CL+SSL::INDEX)))) ; ; note: Type assertion too complex to check: ; (VALUES SB-SYS:SYSTEM-AREA-POINTER &REST T). ; It allows an unknown number of values, consider using ; (VALUES SB-SYS:SYSTEM-AREA-POINTER &OPTIONAL). ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN SK-GENERAL-NAME-NUM ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFUN SK-GENERAL-NAME-NUM ; (DEFUN CL+SSL::SK-GENERAL-NAME-NUM (CL+SSL::NAMES) ; (IF (AND (NOT (CL+SSL::LIBRESSLP)) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1)) ; (CL+SSL::OPENSSL-SK-NUM CL+SSL::NAMES) ; (CL+SSL::SK-NUM CL+SSL::NAMES))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-GENERAL-NAME-NUM ; (CL+SSL::NAMES) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SK-GENERAL-NAME-NUM ; (IF (AND (NOT #) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1)) ; (CL+SSL::OPENSSL-SK-NUM CL+SSL::NAMES) ; (CL+SSL::SK-NUM CL+SSL::NAMES)))) ; ; note: Type assertion too complex to check: ; (VALUES FIXNUM &REST T). ; It allows an unknown number of values, consider using ; (VALUES FIXNUM &OPTIONAL). ; processing (DEFINE-CRYPTO-FUNCTION ("GENERAL_NAMES_free" GENERAL-NAMES-FREE) ...) ; processing (DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_data" ASN1-STRING-DATA) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_data" ASN1-STRING-DATA) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("ASN1_STRING_data" CL+SSL::ASN1-STRING-DATA) ; :POINTER ; (CL+SSL::ASN1-STRING :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::ASN1-STRING-DATA ; (CL+SSL::ASN1-STRING) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::ASN1-STRING-DATA ; (LET ((#:G0 CL+SSL::ASN1-STRING)) ; (CFFI-SYS:%FOREIGN-FUNCALL "ASN1_STRING_data" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_length" ASN1-STRING-LENGTH) ...) ; processing (DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_type" ASN1-STRING-TYPE) ...) ; processing (CFFI:DEFCSTRUCT ASN1_STRING_ST ...) ; processing (DEFINE-CRYPTO-FUNCTION ("ASN1_TIME_check" ASN1-TIME-CHECK) ...) ; processing (DEFINE-CRYPTO-FUNCTION ("ASN1_UTCTIME_check" ASN1-UTCTIME-CHECK) ...) ; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_set_default_verify_paths" SSL-CTX-SET-DEFAULT-VERIFY-PATHS) ...) ; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0") ...) ; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0") ...) ; processing (DEFINE-CRYPTO-FUNCTION ("RSA_generate_key" RSA-GENERATE-KEY) ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-CRYPTO-FUNCTION ("RSA_generate_key" RSA-GENERATE-KEY) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("RSA_generate_key" CL+SSL::RSA-GENERATE-KEY) ; :POINTER ; (CL+SSL::NUM :INT) ; (CL+SSL::E :UNSIGNED-LONG) ; (CL+SSL::CALLBACK :POINTER) ; (CL+SSL::OPT :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::RSA-GENERATE-KEY ; (CL+SSL::NUM CL+SSL::E CL+SSL::CALLBACK CL+SSL::OPT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::RSA-GENERATE-KEY ; (LET ((#:G0 CL+SSL::NUM)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; processing (DEFINE-CRYPTO-FUNCTION ("RSA_free" RSA-FREE) ...) ; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSL_CTX_set_tmp_rsa_callback" CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK) ; :POINTER ; (CL+SSL::CTX :POINTER) ; (CL+SSL::CALLBACK :POINTER)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK ; (CL+SSL::CTX CL+SSL::CALLBACK) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK ; (LET ((#:G0 CL+SSL::CTX)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_set_tmp_rsa_callback" # ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; 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 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 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 GENERIC-> (cost 10) ; 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 GENERIC-> (cost 10) ; 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)). ; (/ (- 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 ; 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 GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; 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 ; (*)). ; 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. ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFVAR *SSL-CHECK-VERIFY-P* ...) ; processing (DEFUN DEFAULT-SSL-METHOD ...) ; processing (DEFUN INITIALIZE ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp ; in: DEFUN INITIALIZE ; (FUNCALL (OR METHOD (CL+SSL::DEFAULT-SSL-METHOD))) ; ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl+ssl/src/ffi-tmpE92ECU7O.fasl ; compilation finished in 0:00:00.215 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl+ssl/src/ffi-buffer-all-tmp8S0II570.fasl ; compilation finished in 0:00:00.002 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl+ssl/src/ffi-buffer-tmpJE88A12F.fasl ; compilation finished in 0:00:00.021 ; 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. ; 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. ; processing (DEFMETHOD STREAM-READ-SEQUENCE ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp ; in: DEFMETHOD STREAM-READ-SEQUENCE (SSL-STREAM T T T) ; (- CL+SSL::END CL+SSL::START) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (PLUSP LENGTH) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (< CL+SSL::START CL+SSL::END) ; ; note: unable to ; open-code float 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. ; (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. ; (+ 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)). ; (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 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (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 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (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 (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL 0)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (< CL+SSL::START CL+SSL::END) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (MIN (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (PLUSP LENGTH) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (+ CL+SSL::START CL+SSL::READ-BYTES) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (INCF CL+SSL::START CL+SSL::READ-BYTES) ; ; note: doing signed 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (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. ; (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. ; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; ==> ; (+ 1 (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM4)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFMETHOD STREAM-WRITE-SEQUENCE ...) ; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp ; in: DEFMETHOD STREAM-WRITE-SEQUENCE (SSL-STREAM T T T) ; (- CL+SSL::END CL+SSL::START) ; ; note: unable to ; 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. ; (+ (- 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. ; (> ; (+ (- 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. ; (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 #:STREAM28)) ; ; 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)). ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) ; --> BLOCK ; ==> ; (LENGTH CL+SSL::BUF) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL+SSL::B/S-REPLACE CL+SSL::BUF CL+SSL::SEQ :START2 CL+SSL::START) ; --> BLOCK ; ==> ; (REPLACE CL+SSL::BUF CL+SSL::SEQ :START1 CL+SSL::START1 :END1 CL+SSL::END1 ; :START2 CL+SSL::START2 :END2 CL+SSL::END2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY * (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; (- CL+SSL::END CL+SSL::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (> ; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; (- CL+SSL::END CL+SSL::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (> (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; (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 #:STREAM28)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; 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 GENERIC-> (cost 10) ; 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 INSTALL-NONBLOCK-FLAG ...) ; 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: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-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of ALLOC-ALIEN-STACK-SPACE ; 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 ; 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)). ; (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 open code because: The operands might not be the same type. ; (1- CL+SSL::LEN) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; processing (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 open code because: The operands might not be the same type. ; 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) ; processing (DEFGENERIC STREAM-FD ...) ; processing (DEFMETHOD STREAM-FD ...) ; processing (DEFMETHOD STREAM-FD ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl+ssl/src/streams-tmpA5FNLPLT.fasl ; compilation finished in 0:00:00.314 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl+ssl/src/bio-tmpHKCV9TP8.fasl ; compilation finished in 0:00:00.144 ; compiling file "/usr/share/common-lisp/source/cl+ssl/src/x509.lisp" (written 01 APR 2022 06:14:25 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl+ssl/src/x509-tmpZ18MA7XE.fasl ; compilation finished in 0:00:00.078 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl+ssl/src/random-tmp6LQJ9T0C.fasl ; compilation finished in 0:00:00.011 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl+ssl/src/context-tmpTX7OA81T.fasl ; compilation finished in 0:00:00.032 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl+ssl/src/verify-hostname-tmpWOTC3PB7.fasl ; compilation finished in 0:00:00.020 ; ; compilation unit finished ; caught 6 STYLE-WARNING conditions ; printed 1628 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/iterate/package-tmpHQE95SAC.fasl ; compilation finished in 0:00:00.005 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/iterate/iterate-tmpO87FP9NR.fasl ; compilation finished in 0:00:00.857 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/garbage-pools/garbage-pools-tmpP6A3E92I.fasl ; compilation finished in 0:00:00.014 ; 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. ; (- ORG.MAPCAR.PARSE-NUMBER::END-POS ORG.MAPCAR.PARSE-NUMBER::START ; (LOOP :FOR ORG.MAPCAR.PARSE-NUMBER::POS :FROM (- ; ORG.MAPCAR.PARSE-NUMBER::END-POS ; 1) :DOWNTO ORG.MAPCAR.PARSE-NUMBER::START ; :WHILE (MEMBER (CHAR STRING ORG.MAPCAR.PARSE-NUMBER::POS) ; ORG.MAPCAR.PARSE-NUMBER::*WHITE-SPACE-CHARACTERS*) ; :COUNT 1)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; 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::RIGHT :RADIX ; ORG.MAPCAR.PARSE-NUMBER::RADIX) ; ; 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::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: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (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: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/parse-number/parse-number-tmpUSHT8RIL.fasl ; compilation finished in 0:00:00.071 ; compiling file "/usr/share/common-lisp/source/mssql/src/packages.lisp" (written 21 JUN 2017 01:29:38 PM): ; processing (DEFPACKAGE #:MSSQL ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/mssql/src/packages-tmp7YCPD44Y.fasl ; compilation finished in 0:00:00.000 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/mssql/src/mssql-tmpQXR7SNXD.fasl ; compilation finished in 0:00:00.035 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/mssql/src/connection-tmp6FLI1OC3.fasl ; compilation finished in 0:00:00.044 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/mssql/src/query-tmpWBK8JTS9.fasl ; compilation finished in 0:00:00.057 WARNING: Lisp compilation had style-warnings while compiling # ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/mssql/src/execute-tmpUVEUD2ZN.fasl ; compilation finished in 0:00:00.009 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/mssql/src/remote-tmpOWNJOEU.fasl ; compilation finished in 0:00:00.013 ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 6 notes ;; loading file #P"/build/pgloader-JXcgv0/pgloader-3.6.3/src/hooks.lisp" ;; loading #P"/build/pgloader-JXcgv0/pgloader-3.6.3/src/hooks.lisp" ;; # ;; (:PGLOADER-IMAGE :SPLIT-SEQUENCE :BORDEAUX-THREADS :FLEXI-STREAMS :THREAD-SUPPORT CFFI-FEATURES:FLAT-NAMESPACE CFFI-FEATURES:X86-64 CFFI-FEATURES:UNIX :CFFI CFFI-SYS::FLAT-NAMESPACE ALEXANDRIA::SEQUENCE-EMPTYP :ASDF-SYSTEM-CONNECTIONS :ASDF3.3 :ASDF3.2 :ASDF3.1 :ASDF3 :ASDF2 :ASDF :OS-UNIX :NON-BASE-CHARS-EXIST-P :ASDF-UNICODE :X86-64 :GENCGC :64-BIT :ANSI-CL :COMMON-LISP :ELF :IEEE-FLOATING-POINT :LINUX :LITTLE-ENDIAN :PACKAGE-LOCAL-NICKNAMES :SB-CORE-COMPRESSION :SB-LDB :SB-PACKAGE-LOCKS :SB-THREAD :SB-UNICODE :SBCL :UNIX) ;; T ;; CLOSE-FOREIGN-LIBS ;; OPEN-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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-log/pkg-tmpVT5BMTA5.fasl ; compilation finished in 0:00:00.001 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-log/cl-log-tmpN3CFVWZF.fasl ; compilation finished in 0:00:00.147 ; 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 ...) ; processing (DEFUN G ...) ; processing (DEFUN H ...) ; processing (DEFUN I ...) ; processing (DECLAIM (INLINE MOD32+) ...) ; processing (DEFUN MOD32+ ...) ; processing (DEFINE-COMPILER-MACRO MOD32+ ...) ; processing (DECLAIM (INLINE ROL32) ...) ; processing (DEFUN ROL32 ...) ; 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 4611686018427387839) MD5::OFFSET) ; (TYPE MD5::MD5-BLOCK BLOCK) ; (TYPE SIMPLE-STRING MD5::BUFFER) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA MD5:FILL-BLOCK-CHAR ; (BLOCK MD5::BUFFER MD5::OFFSET) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "DEPRECATED: Convert a complete 64 character input string segment ; starting from `offset' into the given 16 word MD5 block." ; (DECLARE (TYPE (INTEGER 0 4611686018427387839) MD5::OFFSET) ; (TYPE MD5::MD5-BLOCK BLOCK) ; (TYPE SIMPLE-STRING MD5::BUFFER) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0))) ; (BLOCK MD5:FILL-BLOCK-CHAR)) ; ; caught STYLE-WARNING: ; The variable BLOCK is defined but never used. ; ; caught STYLE-WARNING: ; The variable BUFFER is defined but never used. ; ; caught STYLE-WARNING: ; The variable OFFSET is defined but never used. ; processing (DEFUN FILL-BLOCK ...) ; file: /usr/share/common-lisp/source/md5/md5.lisp ; in: DEFUN FILL-BLOCK ; (MD5:FILL-BLOCK-CHAR BLOCK MD5::BUFFER MD5::OFFSET) ; ; caught STYLE-WARNING: ; The variable BLOCK is defined but never used. ; ; caught STYLE-WARNING: ; The variable BUFFER is defined but never used. ; ; caught STYLE-WARNING: ; The variable OFFSET is defined but never used. ; (MD5:FILL-BLOCK-UB8 BLOCK MD5::BUFFER MD5::OFFSET) ; --> BLOCK SB-KERNEL:%BYTE-BLT ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SB-ALIEN-INTERNALS:ALIEN-VALUE, not a (SB-ALIEN:ALIEN ; (* T)). ; ; note: unable to optimize because: can't tell function type at compile time ; ; note: doing SAP to pointer coercion (cost 20), for: ; the second argument of SET-SLOT ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; processing (DECLAIM (INLINE MD5REGS-DIGEST)) ; processing (DEFUN MD5REGS-DIGEST ...) ; processing (LOCALLY (DECLARE #) ...) ; file: /usr/share/common-lisp/source/md5/md5.lisp ; in: DEFSTRUCT MD5-STATE ; (MD5::AMOUNT 0 :TYPE (INTEGER 0 *)) ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET SB-KERNEL:THE* MULTIPLE-VALUE-BIND ; --> LET PROGN UNLESS IF AND IF LOCALLY AND THE >= ; ==> ; 1 ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (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 %EQL/INTEGER (cost 10) ; 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. ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; 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 ; (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 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (LDB (BYTE 32 32) MD5::TOTAL-LENGTH) ; ; 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 result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; 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::REAL-START (- MD5::END MD5::START)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/md5/md5-tmpNK27C0R1.fasl ; compilation finished in 0:00:00.185 WARNING: Lisp compilation had style-warnings while compiling # ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/package-tmp3BPE71HR.fasl ; compilation finished in 0:00:00.007 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/conditions-tmp758YUXMV.fasl ; compilation finished in 0:00:00.039 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/generic-tmpGMQXK1HK.fasl ; compilation finished in 0:00:00.007 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/macro-utils-tmp49Q238TW.fasl ; compilation finished in 0:00:00.014 ; 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. ; (* LENGTH 2) ; ; note: forced to do */SIGNED=>INTEGER (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -18446744073709551614 18446744073709551614) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -18446744073709551614 18446744073709551614) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do */SIGNED=>INTEGER (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -18446744073709551614 18446744073709551614) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -18446744073709551614 18446744073709551614) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do */SIGNED=>INTEGER (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -18446744073709551614 18446744073709551614) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -18446744073709551614 18446744073709551614) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (LOOP IRONCLAD::WITH STRING = (ECASE IRONCLAD::ELEMENT-TYPE ; (BASE-CHAR ; (MAKE-STRING (* LENGTH 2) :ELEMENT-TYPE ; 'BASE-CHAR)) ; (CHARACTER ; (MAKE-STRING (* LENGTH 2) :ELEMENT-TYPE ; 'CHARACTER))) ; IRONCLAD::FOR IRONCLAD::I IRONCLAD::FROM IRONCLAD::START IRONCLAD::BELOW ; IRONCLAD::END ; IRONCLAD::FOR ...) ; --> LET LET LET TAGBODY WHEN IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a (INTEGER -18446744073709551614 ; 18446744073709551614), not a FIXNUM. ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/util-tmpMXPMJ5KG.fasl ; compilation finished in 0:00:00.025 ; 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) ; processing (PROGN (DEFKNOWN # ...) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/opt/sbcl/fndb-tmpB69313KI.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/ironclad/src/opt/sbcl/x86oid-vm.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (DEFPACKAGE :IRONCLAD-VM ...) ; processing (IN-PACKAGE :IRONCLAD-VM) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (PROGN (DEFINE-VOP # ...) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/opt/sbcl/x86oid-vm-tmp9ZT99EEA.fasl ; compilation finished in 0:00:00.149 ; 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) ; processing (SB-EXT:DEFGLOBAL AES-NI-SUPPORT-KNOWN-P ...) ; processing (SB-EXT:DEFGLOBAL AES-NI-SUPPORTED-P ...) ; processing (DECLAIM (INLINE AES-NI-SUPPORTED-P)) ; processing (DEFUN AES-NI-SUPPORTED-P ...) ; processing (SB-EXT:DEFGLOBAL PCLMULQDQ-SUPPORT-KNOWN-P ...) ; processing (SB-EXT:DEFGLOBAL PCLMULQDQ-SUPPORTED-P ...) ; processing (DECLAIM (INLINE PCLMULQDQ-SUPPORTED-P)) ; processing (DEFUN PCLMULQDQ-SUPPORTED-P ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/opt/sbcl/cpu-features-tmpW045U8V2.fasl ; compilation finished in 0:00:00.003 ; 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 (INLINE MOD64+ ...) ...) ; 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 (INLINE MOD64ASH) ...) ; processing (DEFUN MOD64ASH ...) ; processing (DEFINE-COMPILER-MACRO MOD64ASH ...) ; processing (DECLAIM (INLINE MOD64LOGNOT) ...) ; processing (DEFUN MOD64LOGNOT ...) ; processing (DEFINE-COMPILER-MACRO MOD64LOGNOT ...) ; processing (DECLAIM (INLINE ROL64 ...) ...) ; processing (DEFUN ROL64 ...) ; processing (DEFUN ROR64 ...) ; processing (DECLAIM (INLINE %ADD-WITH-CARRY ...)) ; processing (DEFUN %ADD-WITH-CARRY ...) ; processing (DEFUN %SUBTRACT-WITH-BORROW ...) ; processing (DECLAIM (INLINE FILL-BLOCK-LE-UB8 ...)) ; processing (DECLAIM (INLINE COPY-TO-BUFFER)) ; processing (DEFUN COPY-TO-BUFFER ...) ; processing (DEFUN FILL-BLOCK-UB8-LE ...) ; processing (DEFUN FILL-BLOCK-UB8-BE ...) ; processing (DEFUN FILL-BLOCK-UB8-LE/64 ...) ; processing (DEFUN FILL-BLOCK-UB8-BE/64 ...) ; processing (DEFUN XOR-BLOCK ...) ; processing (DEFINE-COMPILER-MACRO XOR-BLOCK ...) ; processing (DEFUN COPY-BLOCK ...) ; processing (DEFINE-COMPILER-MACRO COPY-BLOCK ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/common-tmp6XOIRI3N.fasl ; compilation finished in 0:00:00.098 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/cipher-tmp9ZHTLHSG.fasl ; compilation finished in 0:00:00.072 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/padding-tmpRW73Q691.fasl ; compilation finished in 0:00:00.040 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/make-cipher-tmp4TM0ME1F.fasl ; compilation finished in 0:00:00.040 ; 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: forced to do GENERIC-- (cost 10) ; 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 ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; 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) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ==> ; (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ==> ; (+ IRONCLAD::N-BYTES-PROCESSED 128) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET 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: forced to do GENERIC-- (cost 10) ; 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 ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; 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) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ==> ; (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ==> ; (+ IRONCLAD::N-BYTES-PROCESSED 64) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET 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: forced to do GENERIC-- (cost 10) ; 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 ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; 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) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ==> ; (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ==> ; (+ IRONCLAD::N-BYTES-PROCESSED 32) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET 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: forced to do GENERIC-- (cost 10) ; 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 ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; 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) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ==> ; (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ==> ; (+ IRONCLAD::N-BYTES-PROCESSED 16) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET 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: forced to do GENERIC-- (cost 10) ; 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 ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; 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) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ==> ; (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ==> ; (+ IRONCLAD::N-BYTES-PROCESSED 8) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET 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: forced to do GENERIC-- (cost 10) ; 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 ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; 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) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ==> ; (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ==> ; (+ IRONCLAD::N-BYTES-PROCESSED 128) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET 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: forced to do GENERIC-- (cost 10) ; 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 ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; 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) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ==> ; (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ==> ; (+ IRONCLAD::N-BYTES-PROCESSED 64) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET 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: forced to do GENERIC-- (cost 10) ; 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 ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; 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) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ==> ; (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ==> ; (+ IRONCLAD::N-BYTES-PROCESSED 32) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET 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: forced to do GENERIC-- (cost 10) ; 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 ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; 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) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ==> ; (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ==> ; (+ IRONCLAD::N-BYTES-PROCESSED 16) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET 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: forced to do GENERIC-- (cost 10) ; 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 ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; 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) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ==> ; (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ==> ; (+ IRONCLAD::N-BYTES-PROCESSED 8) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET 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 FAST-IF-<-ZERO (cost 9) ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET 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 FAST-IF-<-ZERO (cost 9) ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET 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 FAST-IF-<-ZERO (cost 9) ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET 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 FAST-IF-<-ZERO (cost 9) ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET 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 FAST-IF-<-ZERO (cost 9) ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFMETHOD ENCRYPTED-MESSAGE-LENGTH ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/modes-tmpU2IL9N4.fasl ; compilation finished in 0:00:00.456 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/digest-tmpOPW41KDL.fasl ; compilation finished in 0:00:00.097 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/macs/mac-tmpIPVWLON2.fasl ; compilation finished in 0:00:00.009 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/prng/prng-tmpO0LCOIDS.fasl ; compilation finished in 0:00:00.042 ; 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 ...) ; processing (DEFMETHOD MAKE-PRNG ...) ; processing (SETF *PRNG* ...) ; processing (PUSHNEW (QUOTE #) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/prng/os-prng-tmpP264WQ6O.fasl ; compilation finished in 0:00:00.006 ; 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)). ; (- 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. ; (* 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)). ; (- 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. ; (>= IRONCLAD::A 0) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (>= IRONCLAD::B 0) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (FLOOR IRONCLAD::D IRONCLAD::C) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-< (cost 10) ; 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 GENERIC-> (cost 10) ; 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 GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (* IRONCLAD::Q IRONCLAD::C) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (- IRONCLAD::D (* IRONCLAD::Q IRONCLAD::C)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; The result is a (VALUES REAL . #1#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (* IRONCLAD::Q IRONCLAD::U_C) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (- IRONCLAD::U_D (* IRONCLAD::Q IRONCLAD::U_C)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (* IRONCLAD::Q IRONCLAD::V_C) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (- IRONCLAD::V_D (* IRONCLAD::Q IRONCLAD::V_C)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; processing (DEFUN JACOBI ...) ; file: /usr/share/common-lisp/source/ironclad/src/math.lisp ; in: DEFUN JACOBI ; (ASH IRONCLAD::B -1) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (MINUSP IRONCLAD::B) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (- IRONCLAD::B) ; ; note: forced to do GENERIC-NEGATE (cost 10) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 2) because: ; The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 1) . #1#), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MINUSP IRONCLAD::A) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (ASH IRONCLAD::A -1) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (ABS IRONCLAD::A) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; ; note: forced to do GENERIC-NEGATE (cost 10) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 2) because: ; The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 1) . #1#), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; (> IRONCLAD::B 1) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (ABS IRONCLAD::A) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; ; note: forced to do GENERIC-NEGATE (cost 10) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 2) because: ; The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 1) . #1#), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; 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)). ; (* 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. ; (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. ; (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 GENERIC-- (cost 10) ; 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 ; &REST T). ; 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 &REST T). ; etc. ; (ASH 1 (1- IRONCLAD::K)) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 4) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (* IRONCLAD::B IRONCLAD::B) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::B IRONCLAD::B) IRONCLAD::M) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-< (cost 10) ; 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 GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (* IRONCLAD::BI IRONCLAD::BB) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::BI IRONCLAD::BB) IRONCLAD::M) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-< (cost 10) ; 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 GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; 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 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 (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) ; (RATIONAL * (0))), 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 (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) ; (RATIONAL * (0))), 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 (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) ; (RATIONAL * (0))), 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 (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) ; (RATIONAL * (0))), 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). ; (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. ; (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 64) ; &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). ; (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 (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) ; (RATIONAL * (0))), 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 (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) ; (RATIONAL * (0))), 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 (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) ; (RATIONAL * (0))), 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 (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) ; (RATIONAL * (0))), 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 (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) ; (RATIONAL * (0))), 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 (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) ; (RATIONAL * (0))), 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 (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) ; (RATIONAL * (0))), 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 (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) ; (RATIONAL * (0))), 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 GENERIC-< (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a (OR FLOAT (RATIONAL 0)), not a DOUBLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * #2=(0.0d0)) ; (SINGLE-FLOAT * #3=(0.0)) ; (RATIONAL * #4=(0))), not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #5=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (cost 2) because: ; The first argument is a (OR FLOAT (RATIONAL 0)), not a SINGLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * #2#) (SINGLE-FLOAT * #3#) ; (RATIONAL * #4#)), not a SINGLE-FLOAT. ; The result is a (VALUES REAL . #5#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (INTEGER-LENGTH IRONCLAD::E) ; ; note: forced to do full call ; unable to do inline (unsigned-byte 64) integer-length (cost 26) because: ; The first argument is a BIGNUM, not a (UNSIGNED-BYTE 64). ; (< IRONCLAD::I 0) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (- IRONCLAD::I IRONCLAD::K) ; ; note: forced to do GENERIC-- (cost 10) ; 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 ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (INTEGER -7) . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (1+ (- IRONCLAD::I IRONCLAD::K)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &REST T). ; 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 &REST T). ; etc. ; (MAX (1+ (- IRONCLAD::I IRONCLAD::K)) 0) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (- IRONCLAD::I IRONCLAD::S) ; ; note: forced to do GENERIC-- (cost 10) ; 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 ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (1+ (- IRONCLAD::I IRONCLAD::S)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (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 GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::RES IRONCLAD::RES) ; ; note: forced to do GENERIC-* (cost 30) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES ; (OR (RATIONAL 0) (DOUBLE-FLOAT 0.0d0) ; (SINGLE-FLOAT 0.0)) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (* IRONCLAD::RES IRONCLAD::RES) IRONCLAD::M) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a (OR FLOAT (RATIONAL 0)), not a DOUBLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * #2=(0.0d0)) ; (SINGLE-FLOAT * #3=(0.0)) ; (RATIONAL * #4=(0))), not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #5=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (cost 2) because: ; The first argument is a (OR FLOAT (RATIONAL 0)), not a SINGLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * #2#) (SINGLE-FLOAT * #3#) ; (RATIONAL * #4#)), not a SINGLE-FLOAT. ; The result is a (VALUES REAL . #5#), not a (VALUES SINGLE-FLOAT &REST T). ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (ASH IRONCLAD::U -1) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; unable to do #1# (cost 3) because: ; The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 64). ; etc. ; (* IRONCLAD::RES (SVREF IRONCLAD::TAB (ASH IRONCLAD::U -1))) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::RES (SVREF IRONCLAD::TAB (ASH IRONCLAD::U -1))) IRONCLAD::M) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-< (cost 10) ; 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 GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (INCF IRONCLAD::S) ; --> THE ; ==> ; (+ 1 IRONCLAD::S) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (* IRONCLAD::RES IRONCLAD::RES) ; ; note: forced to do GENERIC-* (cost 30) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES ; (OR (RATIONAL 0) (DOUBLE-FLOAT 0.0d0) ; (SINGLE-FLOAT 0.0)) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (* IRONCLAD::RES IRONCLAD::RES) IRONCLAD::M) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a (OR FLOAT (RATIONAL 0)), not a DOUBLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * #2=(0.0d0)) ; (SINGLE-FLOAT * #3=(0.0)) ; (RATIONAL * #4=(0))), not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #5=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (cost 2) because: ; The first argument is a (OR FLOAT (RATIONAL 0)), not a SINGLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * #2#) (SINGLE-FLOAT * #3#) ; (RATIONAL * #4#)), not a SINGLE-FLOAT. ; The result is a (VALUES REAL . #5#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (DECF IRONCLAD::I) ; --> THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (* IRONCLAD::RES IRONCLAD::B) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::RES IRONCLAD::B) IRONCLAD::M) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-< (cost 10) ; 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 GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (ASH IRONCLAD::E -1) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (* IRONCLAD::B IRONCLAD::B) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::B IRONCLAD::B) IRONCLAD::M) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-< (cost 10) ; 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 GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; 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 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (1+ IRONCLAD::K) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (ASH IRONCLAD::Q -1) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; 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)). ; (+ (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 ; 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)). ; (= 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 open code because: The operands might not be the same type. ; (= IRONCLAD::J IRONCLAD::K) ; ; 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 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 GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (+ (IRONCLAD:STRONG-RANDOM (- IRONCLAD::N 2)) 2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (1- IRONCLAD::N) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (= IRONCLAD::Y IRONCLAD::MINUS1) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-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. ; etc. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-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. ; etc. ; (1+ IRONCLAD::J) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFUN 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. ; (- (* 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. ; (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). ; (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. ; (- (* 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. ; (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. ; (- (* 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)). ; (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. ; (- (* 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. ; (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. ; (INTEGER-LENGTH IRONCLAD::K) ; ; note: forced to do full call ; unable to do inline positive fixnum integer-length (cost 24) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 62). ; unable to do inline fixnum integer-length (cost 25) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; (* IRONCLAD::UH IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (1- (* IRONCLAD::UH IRONCLAD::VL)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (MOD (1- (* IRONCLAD::UH IRONCLAD::VL)) IRONCLAD::N) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-< (cost 10) ; 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 GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (* IRONCLAD::VH IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) ; ; note: forced to do GENERIC-- (cost 10) ; 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 ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL . #1#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (MOD (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) IRONCLAD::N) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-< (cost 10) ; 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 GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (* IRONCLAD::VL IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES ; (OR (RATIONAL 0) (DOUBLE-FLOAT 0.0d0) ; (SINGLE-FLOAT 0.0)) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::VL IRONCLAD::VL) 2) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; 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 &REST T). ; etc. ; (MOD (- (* IRONCLAD::VL IRONCLAD::VL) 2) IRONCLAD::N) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-< (cost 10) ; 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 GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (* IRONCLAD::UH IRONCLAD::VH) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::UH IRONCLAD::VH) IRONCLAD::N) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-< (cost 10) ; 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 GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (* IRONCLAD::VH IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) ; ; note: forced to do GENERIC-- (cost 10) ; 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 ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL . #1#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (MOD (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) IRONCLAD::N) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-< (cost 10) ; 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 GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (* IRONCLAD::VH IRONCLAD::VH) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (- (* IRONCLAD::VH IRONCLAD::VH) 2) ; ; note: forced to do GENERIC-- (cost 10) ; 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 ; &REST T). ; 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 &REST T). ; etc. ; (MOD (- (* IRONCLAD::VH IRONCLAD::VH) 2) IRONCLAD::N) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-< (cost 10) ; 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 GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (* IRONCLAD::UH IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (1- (* IRONCLAD::UH IRONCLAD::VL)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (MOD (1- (* IRONCLAD::UH IRONCLAD::VL)) IRONCLAD::N) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-< (cost 10) ; 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 GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (* IRONCLAD::VH IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) ; ; note: forced to do GENERIC-- (cost 10) ; 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 ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL . #1#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (MOD (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) IRONCLAD::N) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-< (cost 10) ; 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 GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; 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 GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::UH IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::UH IRONCLAD::VL) IRONCLAD::N) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-< (cost 10) ; 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 GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (* IRONCLAD::VL IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES ; (OR (RATIONAL 0) (DOUBLE-FLOAT 0.0d0) ; (SINGLE-FLOAT 0.0)) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::VL IRONCLAD::VL) 2) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; 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 &REST T). ; etc. ; (MOD (- (* IRONCLAD::VL IRONCLAD::VL) 2) IRONCLAD::N) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-< (cost 10) ; 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 GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (ASH IRONCLAD::K -1) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (1+ IRONCLAD::S) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFUN 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 ; 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 GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER 3), not a (SIGNED-BYTE 64). ; The second argument is a (INTEGER 3), not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 9) . #1#), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; (- (* IRONCLAD::B IRONCLAD::B) 4) ; ; note: forced to do GENERIC-- (cost 10) ; 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 ; &REST T). ; 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 &REST T). ; etc. ; (INCF IRONCLAD::B) ; --> THE ; ==> ; (+ 1 IRONCLAD::B) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &REST T). ; 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 &REST T). ; etc. ; (1+ IRONCLAD::N) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFUN MODULAR-INVERSE ...) ; file: /usr/share/common-lisp/source/ironclad/src/math.lisp ; in: DEFUN MODULAR-INVERSE ; (FLOOR IRONCLAD::R1 IRONCLAD::R2) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; ; note: forced to do FAST-IF->-ZERO (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* IRONCLAD::Q IRONCLAD::U2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (DECF IRONCLAD::U1 (* IRONCLAD::Q IRONCLAD::U2)) ; --> THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MINUSP IRONCLAD::INVERSE) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (MOD IRONCLAD::INVERSE IRONCLAD::MODULUS) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 64). ; The second argument is a (INTEGER 1), not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; (* IRONCLAD::N IRONCLAD::INVERSE) ; ; note: forced to do GENERIC-* (cost 30) ; 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, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER 1), not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::N IRONCLAD::INVERSE) IRONCLAD::MODULUS) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER 1), not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; 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 ; 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 -4611686018427387904 -1) ; (INTEGER 1 4611686018427387903)). ; The second argument is a (INTEGER 1), not a (OR ; (INTEGER -4611686018427387904 ; -1) ; (INTEGER 1 4611686018427387903)). ; (- IRONCLAD::MODULUS 1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES FIXNUM &REST ; T). ; etc. ; (+ 1 (IRONCLAD:STRONG-RANDOM (- IRONCLAD::MODULUS 1))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (* IRONCLAD::N IRONCLAD::B) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::N IRONCLAD::B) IRONCLAD::MODULUS) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER 1), not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* IRONCLAD::Y IRONCLAD::B) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y IRONCLAD::B) IRONCLAD::MODULUS) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER 1), not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; 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 FAST-IF-<-ZERO (cost 9) ; 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. ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (ASSERT (> IRONCLAD::MODULUS 1)) ; --> LET WHEN IF ; ==> ; (> #:TEMP5 1) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (INTEGER-LENGTH IRONCLAD::MODULUS) ; ; note: forced to do full call ; unable to do inline positive fixnum integer-length (cost 24) because: ; The first argument is a (INTEGER 2), not a (UNSIGNED-BYTE 62). ; unable to do inline fixnum integer-length (cost 25) because: ; The first argument is a (INTEGER 2), not a FIXNUM. ; etc. ; (* IRONCLAD::R0 IRONCLAD::R1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::R0 IRONCLAD::R1) IRONCLAD::MODULUS) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 64). ; The second argument is a (INTEGER 2), not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; (* IRONCLAD::R1 IRONCLAD::R1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* IRONCLAD::R0 IRONCLAD::R1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::R0 IRONCLAD::R1) IRONCLAD::MODULUS) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 64). ; The second argument is a (INTEGER 2), not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; (* IRONCLAD::R0 IRONCLAD::R0) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; 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 ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (<= IRONCLAD::N IRONCLAD::+LAST-SMALL-PRIME+) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; (LOOP 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 GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL #1=(-1) #2=(1))) ; . #3=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL #1# #2#)) . #3#), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET TAGBODY IF <= ; ==> ; 1 ; ; note: forced to do FAST-IF->-ZERO (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> LET TAGBODY IF DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES FIXNUM &REST ; T). ; etc. ; processing (DEFUN GENERATE-PRIME-IN-RANGE ...) ; processing (DEFUN GENERATE-PRIME ...) ; processing (DEFUN GENERATE-SAFE-PRIME ...) ; processing (DEFUN FIND-GENERATOR ...) ; processing (DEFUN FIND-SUBGROUP-GENERATOR ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/math-tmpESC43OCR.fasl ; compilation finished in 0:00:00.098 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/octet-stream-tmpWCAM54ZJ.fasl ; compilation finished in 0:00:00.175 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/aead/aead-tmpVTMW561L.fasl ; compilation finished in 0:00:00.010 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/kdf/kdf-tmpUNNGT9CF.fasl ; compilation finished in 0:00:00.010 ; 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. ; (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 (SIGNED-BYTE 64). ; ; note: unable to ; convert integer division to multiplication ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; ; 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. ; ; 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 ; 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. ; (+ 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. ; (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 64) ; &REST T). ; (MIN (CEILING IRONCLAD::N-BITS 8) IRONCLAD::SIZE) ; ; note: unable to open code because: The operands might not be the same type. ; (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 GENERIC-- (cost 10) ; 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 ; &REST T). ; 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 &REST T). ; etc. ; (* 8 IRONCLAD::SIZE) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CEILING IRONCLAD::N-BITS 8) ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (MIN (CEILING IRONCLAD::N-BITS 8) IRONCLAD::SIZE) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (+ IRONCLAD::START IRONCLAD::N-BYTES) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; 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 GENERIC-> (cost 10) ; 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 GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; (ASH (AREF IRONCLAD::OCTET-VEC IRONCLAD::I) IRONCLAD::J) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 3) because: ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY WHEN IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE ; ==> ; (+ IRONCLAD::J 8) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 8) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 8) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (- IRONCLAD::END IRONCLAD::N-BYTES) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (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 GENERIC-> (cost 10) ; 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 GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; (ASH IRONCLAD::SUM 8) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (+ (ASH IRONCLAD::SUM 8) (AREF IRONCLAD::OCTET-VEC IRONCLAD::I)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; 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 64) ; &REST T). ; (INTEGER-LENGTH BIGNUM) ; ; note: forced to do full call ; unable to do inline positive fixnum integer-length (cost 24) because: ; The first argument is a T, not a (UNSIGNED-BYTE 62). ; unable to do inline fixnum integer-length (cost 25) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (LDB (BYTE 8 (* IRONCLAD::I 8)) BIGNUM) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a (INTEGER -4611686018427387840 0), not a (UNSIGNED-BYTE ; 62). ; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -4611686018427387840 0), not a (UNSIGNED-BYTE ; 62). ; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (LDB (BYTE 8 BYTE) BIGNUM) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a (INTEGER -4611686018427387840 0), not a (UNSIGNED-BYTE ; 62). ; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -4611686018427387840 0), not a (UNSIGNED-BYTE ; 62). ; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN MAYBE-INTEGERIZE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/public-key/public-key-tmp4L3W83SU.fasl ; compilation finished in 0:00:00.019 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/public-key/pkcs1-tmpGE7QNNEE.fasl ; compilation finished in 0:00:00.034 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/public-key/elliptic-curve-tmp9B0UZGT4.fasl ; compilation finished in 0:00:00.001 ; 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 (# # ...) ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFCIPHER AES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/aes-tmpAJ5U325P.fasl ; compilation finished in 0:00:00.119 ; 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 ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFCIPHER ARCFOUR ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/arcfour-tmpAOF1CYAS.fasl ; compilation finished in 0:00:00.015 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/aria-tmpIXCQTSHA.fasl ; compilation finished in 0:00:00.205 ; 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 (# # ...) ...) ; processing (DEFCIPHER BLOWFISH ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/blowfish-tmp5E6VIEMS.fasl ; compilation finished in 0:00:00.378 ; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/camellia.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCONST +CAMELLIA-SBOX1+ ...) ; processing (DEFCONST +CAMELLIA-SBOX2+ ...) ; processing (DEFCONST +CAMELLIA-SBOX3+ ...) ; processing (DEFCONST +CAMELLIA-SBOX4+ ...) ; processing (DEFCONST +CAMELLIA-SIGMA+ ...) ; processing (DEFCONST +CAMELLIA-KSFT1+ ...) ; processing (DEFCONST +CAMELLIA-KIDX1+ ...) ; processing (DEFCONST +CAMELLIA-KSFT2+ ...) ; processing (DEFCONST +CAMELLIA-KIDX2+ ...) ; processing (DECLAIM (FTYPE # ...) ...) ; processing (DEFUN CAMELLIA-FEISTEL ...) ; processing (DEFCLASS CAMELLIA ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFINE-BLOCK-ENCRYPTOR CAMELLIA ...) ; processing (DEFINE-BLOCK-DECRYPTOR CAMELLIA ...) ; processing (DEFCIPHER CAMELLIA ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/camellia-tmpI0PODGVV.fasl ; compilation finished in 0:00:00.232 ; 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 (#) ...) ; processing (DEFUN GENERATE-CAST5-KEY-SCHEDULE ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFCIPHER CAST5 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/cast5-tmp1Z95I17K.fasl ; compilation finished in 0:00:00.446 ; 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 ...) ; processing (DEFUN CHACHA/8-CORE ...) ; processing (DEFUN CHACHA/12-CORE ...) ; processing (DEFUN CHACHA/20-CORE ...) ; processing (DEFCLASS CHACHA ...) ; processing (DEFCLASS CHACHA/12 ...) ; processing (DEFCLASS CHACHA/8 ...) ; processing (DEFUN CHACHA-KEYIFY ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFINE-STREAM-CRYPTOR CHACHA ...) ; processing (DEFCIPHER CHACHA ...) ; processing (DEFCIPHER CHACHA/12 ...) ; processing (DEFCIPHER CHACHA/8 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/chacha-tmpCFVK1AC1.fasl ; compilation finished in 0:00:00.097 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/xchacha-tmpHHRR8E8N.fasl ; compilation finished in 0:00:00.052 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/des-tmpWWJ02E3I.fasl ; compilation finished in 0:00:00.163 ; 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 /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/idea-tmpONTOHUJ2.fasl ; compilation finished in 0:00:00.126 ; 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 ...) ; processing (DECLAIM (INLINE KALYNA-SWAP-BLOCKS)) ; processing (DEFUN KALYNA-SWAP-BLOCKS ...) ; processing (DEFMACRO KALYNA-ADD-KEY ...) ; processing (DEFMACRO KALYNA-SUB-KEY ...) ; processing (DEFMACRO KALYNA-ADD-CONSTANT ...) ; processing (DECLAIM (INLINE KALYNA-G0128)) ; processing (DEFUN KALYNA-G0128 ...) ; processing (DECLAIM (INLINE KALYNA-GL128)) ; processing (DEFUN KALYNA-GL128 ...) ; processing (DECLAIM (INLINE KALYNA-IMC128)) ; processing (DEFUN KALYNA-IMC128 ...) ; processing (DECLAIM (INLINE KALYNA-IG128)) ; processing (DEFUN KALYNA-IG128 ...) ; processing (DECLAIM (INLINE KALYNA-IGL128)) ; processing (DEFUN KALYNA-IGL128 ...) ; processing (DECLAIM (INLINE KALYNA-G128)) ; processing (DEFUN KALYNA-G128 ...) ; processing (DEFCLASS KALYNA128 ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFINE-BLOCK-ENCRYPTOR KALYNA128 ...) ; processing (DEFINE-BLOCK-DECRYPTOR KALYNA128 ...) ; processing (DEFCIPHER KALYNA128 ...) ; processing (DECLAIM (INLINE KALYNA-G0256)) ; processing (DEFUN KALYNA-G0256 ...) ; processing (DECLAIM (INLINE KALYNA-GL256)) ; processing (DEFUN KALYNA-GL256 ...) ; processing (DECLAIM (INLINE KALYNA-IMC256)) ; processing (DEFUN KALYNA-IMC256 ...) ; processing (DECLAIM (INLINE KALYNA-IG256)) ; processing (DEFUN KALYNA-IG256 ...) ; processing (DECLAIM (INLINE KALYNA-IGL256)) ; processing (DEFUN KALYNA-IGL256 ...) ; processing (DECLAIM (INLINE KALYNA-G256)) ; processing (DEFUN KALYNA-G256 ...) ; processing (DEFCLASS KALYNA256 ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFINE-BLOCK-ENCRYPTOR KALYNA256 ...) ; processing (DEFINE-BLOCK-DECRYPTOR KALYNA256 ...) ; processing (DEFCIPHER KALYNA256 ...) ; processing (DECLAIM (INLINE KALYNA-G0512)) ; processing (DEFUN KALYNA-G0512 ...) ; processing (DECLAIM (INLINE KALYNA-GL512)) ; processing (DEFUN KALYNA-GL512 ...) ; processing (DECLAIM (INLINE KALYNA-IMC512)) ; processing (DEFUN KALYNA-IMC512 ...) ; processing (DECLAIM (INLINE KALYNA-IG512)) ; processing (DEFUN KALYNA-IG512 ...) ; processing (DECLAIM (INLINE KALYNA-IGL512)) ; processing (DEFUN KALYNA-IGL512 ...) ; processing (DECLAIM (INLINE KALYNA-G512)) ; processing (DEFUN KALYNA-G512 ...) ; processing (DEFCLASS KALYNA512 ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFINE-BLOCK-ENCRYPTOR KALYNA512 ...) ; processing (DEFINE-BLOCK-DECRYPTOR KALYNA512 ...) ; processing (DEFCIPHER KALYNA512 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/kalyna-tmpQT9APWMH.fasl ; compilation finished in 0:00:18.146 ; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/salsa20.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DECLAIM (TYPE # ...)) ; processing (DEFCONST SALSA20-SIGMA ...) ; processing (DEFCONST SALSA20-TAU ...) ; processing (DEFTYPE SALSA20-STATE ...) ; processing (DEFTYPE SALSA20-KEYSTREAM-BUFFER ...) ; processing (DECLAIM (INLINE SALSA-CORE)) ; processing (DEFUN SALSA-CORE ...) ; processing (DEFUN SALSA20/8-CORE ...) ; processing (DEFUN SALSA20/12-CORE ...) ; processing (DEFUN SALSA20/20-CORE ...) ; processing (DEFCLASS SALSA20 ...) ; processing (DEFCLASS SALSA20/12 ...) ; processing (DEFCLASS SALSA20/8 ...) ; processing (DEFUN SALSA20-KEYIFY ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFINE-STREAM-CRYPTOR SALSA20 ...) ; processing (DEFCIPHER SALSA20 ...) ; processing (DEFCIPHER SALSA20/12 ...) ; processing (DEFCIPHER SALSA20/8 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/salsa20-tmp6LYQXY0L.fasl ; compilation finished in 0:00:00.041 ; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/keystream.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFUN KEYSTREAM-POSITION ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/keystream-tmpNKVDR0J1.fasl ; compilation finished in 0:00:00.007 ; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/kuznyechik.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (IN-IRONCLAD-READTABLE) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFMACRO KUZNYECHIK-REFT ...) ; processing (DEFMACRO KUZNYECHIK-LS ...) ; processing (DEFMACRO KUZNYECHIK-REFIT ...) ; processing (DEFMACRO KUZNYECHIK-ILS ...) ; processing (DEFMACRO KUZNYECHIK-REFITS ...) ; processing (DEFMACRO KUZNYECHIK-ILSS ...) ; processing (DEFMACRO KUZNYECHIK-ISI ...) ; processing (DEFMACRO KUZNYECHIK-F ...) ; processing (DEFMACRO KUZNYECHIK-FK ...) ; processing (DEFCLASS KUZNYECHIK ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFINE-BLOCK-ENCRYPTOR KUZNYECHIK ...) ; processing (DEFINE-BLOCK-DECRYPTOR KUZNYECHIK ...) ; processing (DEFCIPHER KUZNYECHIK ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/kuznyechik-tmp6F83SDCV.fasl ; compilation finished in 0:00:02.473 ; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/misty1.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (IN-IRONCLAD-READTABLE) ; processing (DEFCONST +MISTY1-S7TABLE+ ...) ; processing (DEFCONST +MISTY1-S9TABLE+ ...) ; processing (DEFTYPE MISTY1-ROUND-KEYS ...) ; processing (DEFCLASS MISTY1 ...) ; processing (DECLAIM (NOTINLINE FI ...)) ; processing (DEFUN FI ...) ; processing (DEFUN FL ...) ; processing (DEFUN FL-INV ...) ; processing (DEFUN FO ...) ; processing (DEFINE-BLOCK-ENCRYPTOR MISTY1 ...) ; processing (DEFINE-BLOCK-DECRYPTOR MISTY1 ...) ; processing (DEFUN MISTY1-EXPAND-KEY ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFCIPHER MISTY1 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/misty1-tmpEJNPPMJY.fasl ; compilation finished in 0:00:00.082 ; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/rc2.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (IN-IRONCLAD-READTABLE) ; processing (DEFCONST +RC2-PITABLE+ ...) ; processing (DEFTYPE RC2-ROUND-KEYS ...) ; processing (DEFCLASS RC2 ...) ; processing (DECLAIM (INLINE ROL16) ...) ; processing (DEFUN ROL16 ...) ; processing (DEFUN RC2-SCHEDULE-KEY ...) ; processing (MACROLET (# # ...) ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFCIPHER RC2 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/rc2-tmp31RWPSX2.fasl ; compilation finished in 0:00:00.173 ; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/rc5.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :IRONCLAD) ; processing (DEFCONSTANT +RC5/32-P+ ...) ; processing (DEFCONSTANT +RC5/32-Q+ ...) ; processing (DEFCONSTANT +RC5-W+ ...) ; processing (DEFCONSTANT +RC5-WW+ ...) ; processing (DEFCONSTANT +RC5-B+ ...) ; processing (DEFCONSTANT +RC5-BB+ ...) ; processing (DEFTYPE RC5-N-ROUNDS ...) ; processing (DEFTYPE RC5-ROUND-KEYS ...) ; processing (DEFCLASS RC5 ...) ; processing (DEFINE-BLOCK-ENCRYPTOR RC5 ...) ; processing (DEFINE-BLOCK-DECRYPTOR RC5 ...) ; processing (DEFUN RC5-EXPAND-KEY ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFCIPHER RC5 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/rc5-tmp1HKLMSTH.fasl ; compilation finished in 0:00:00.038 ; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/rc6.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :IRONCLAD) ; processing (DEFCONSTANT +RC6/32-P+ ...) ; processing (DEFCONSTANT +RC6/32-Q+ ...) ; processing (DEFTYPE RC6-N-ROUNDS ...) ; processing (DEFCLASS RC6 ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFINE-BLOCK-ENCRYPTOR RC6 ...) ; processing (DEFINE-BLOCK-DECRYPTOR RC6 ...) ; processing (DEFUN RC6-EXPAND-KEY ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFCIPHER RC6 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/rc6-tmpEWG5XJ53.fasl ; compilation finished in 0:00:00.137 ; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/xsalsa20.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS XSALSA20 ...) ; processing (DEFCLASS XSALSA20/12 ...) ; processing (DEFCLASS XSALSA20/8 ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFCIPHER XSALSA20 ...) ; processing (DEFCIPHER XSALSA20/12 ...) ; processing (DEFCIPHER XSALSA20/8 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/xsalsa20-tmpXHL60MUV.fasl ; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/seed.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCONST +SEED-SBOX0+ ...) ; processing (DEFCONST +SEED-SBOX1+ ...) ; processing (DEFCONST +SEED-SBOX2+ ...) ; processing (DEFCONST +SEED-SBOX3+ ...) ; processing (DEFCONST +SEED-KC+ ...) ; processing (DEFMACRO SEED-G ...) ; processing (DEFMACRO SEED-F ...) ; processing (DEFCLASS SEED ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFINE-BLOCK-ENCRYPTOR SEED ...) ; processing (DEFINE-BLOCK-DECRYPTOR SEED ...) ; processing (DEFCIPHER SEED ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/seed-tmpB7NPDQCW.fasl ; compilation finished in 0:00:00.429 ; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/serpent.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFMACRO SERPENT-SBOX0 ...) ; processing (DEFMACRO SERPENT-SBOX0-INVERSE ...) ; processing (DEFMACRO SERPENT-SBOX1 ...) ; processing (DEFMACRO SERPENT-SBOX1-INVERSE ...) ; processing (DEFMACRO SERPENT-SBOX2 ...) ; processing (DEFMACRO SERPENT-SBOX2-INVERSE ...) ; processing (DEFMACRO SERPENT-SBOX3 ...) ; processing (DEFMACRO SERPENT-SBOX3-INVERSE ...) ; processing (DEFMACRO SERPENT-SBOX4 ...) ; processing (DEFMACRO SERPENT-SBOX4-INVERSE ...) ; processing (DEFMACRO SERPENT-SBOX5 ...) ; processing (DEFMACRO SERPENT-SBOX5-INVERSE ...) ; processing (DEFMACRO SERPENT-SBOX6 ...) ; processing (DEFMACRO SERPENT-SBOX6-INVERSE ...) ; processing (DEFMACRO SERPENT-SBOX7 ...) ; processing (DEFMACRO SERPENT-SBOX7-INVERSE ...) ; processing (DEFMACRO SERPENT-LINEAR-TRANSFORMATION ...) ; processing (DEFMACRO SERPENT-LINEAR-TRANSFORMATION-INVERSE ...) ; processing (DEFCONSTANT +SERPENT-PHI+ ...) ; processing (DEFCLASS SERPENT ...) ; processing (DEFUN SERPENT-PAD-KEY ...) ; processing (DEFUN SERPENT-GENERATE-SUBKEYS ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFINE-BLOCK-ENCRYPTOR SERPENT ...) ; processing (DEFINE-BLOCK-DECRYPTOR SERPENT ...) ; processing (DEFCIPHER SERPENT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/serpent-tmpGZ70QILE.fasl ; compilation finished in 0:00:03.556 ; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/sm4.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (IN-IRONCLAD-READTABLE) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFMACRO SM4-H ...) ; processing (DEFMACRO SM4-G ...) ; processing (DEFMACRO SM4-F ...) ; processing (DEFMACRO SM4-ROUND ...) ; processing (DEFCLASS SM4 ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFINE-BLOCK-ENCRYPTOR SM4 ...) ; processing (DEFINE-BLOCK-DECRYPTOR SM4 ...) ; processing (DEFCIPHER SM4 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/sm4-tmpKYD38Q95.fasl ; compilation finished in 0:00:00.190 ; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/sosemanuk.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCONST +SOSEMANUK-MUL-A+ ...) ; processing (DEFCONST +SOSEMANUK-MUL-IA+ ...) ; processing (DEFMACRO SOSEMANUK-S0 ...) ; processing (DEFMACRO SOSEMANUK-S1 ...) ; processing (DEFMACRO SOSEMANUK-S2 ...) ; processing (DEFMACRO SOSEMANUK-S3 ...) ; processing (DEFMACRO SOSEMANUK-S4 ...) ; processing (DEFMACRO SOSEMANUK-S5 ...) ; processing (DEFMACRO SOSEMANUK-S6 ...) ; processing (DEFMACRO SOSEMANUK-S7 ...) ; processing (DEFMACRO SOSEMANUK-LT ...) ; processing (DEFMACRO SOSEMANUK-MKNAME ...) ; processing (DEFCLASS SOSEMANUK ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFUN SOSEMANUK-COMPUTE-BLOCK ...) ; processing (DEFINE-STREAM-CRYPTOR SOSEMANUK ...) ; processing (DEFCIPHER SOSEMANUK ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/sosemanuk-tmpV4YQ0HKA.fasl ; compilation finished in 0:00:00.603 ; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/square.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (IN-IRONCLAD-READTABLE) ; processing (DECLAIM (TYPE # ...)) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFCONST LOGTABLE ...) ; processing (DECLAIM (TYPE # ...)) ; processing (DEFCONST G-MATRIX ...) ; processing (DEFCONST INVERSE-G-MATRIX ...) ; processing (DECLAIM (TYPE # ...)) ; processing (DEFCONST S-ENCRYPTION-TABLE ...) ; processing (DEFCONST S-DECRYPTION-TABLE ...) ; processing (DECLAIM (TYPE # ...)) ; processing (DEFCONST T-ENCRYPTION-TABLE ...) ; processing (DEFCONST T-DECRYPTION-TABLE ...) ; processing (DECLAIM (INLINE MUL8)) ; processing (DEFUN MUL8 ...) ; processing (DEFUN TRANSFORM ...) ; processing (DEFUN GENERATE-ROUND-KEYS ...) ; processing (DECLAIM (INLINE SQUARE-MUNGE-BLOCK)) ; processing (DEFUN SQUARE-MUNGE-BLOCK ...) ; processing (DEFCLASS SQUARE ...) ; processing (DEFINE-BLOCK-ENCRYPTOR SQUARE ...) ; file: /usr/share/common-lisp/source/ironclad/src/ciphers/square.lisp ; in: DEFINE-BLOCK-ENCRYPTOR SQUARE ; (IRONCLAD::SQUARE-MUNGE-BLOCK IRONCLAD::ROUND-KEYS IRONCLAD::N-ROUNDS ; IRONCLAD::T-ENCRYPTION-TABLE IRONCLAD::S-ENCRYPTION-TABLE ; IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START IRONCLAD::CIPHERTEXT ; IRONCLAD::CIPHERTEXT-START) ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET LET DO BLOCK LET TAGBODY UNLESS ; --> IF >= 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)). ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET LET DO BLOCK LET TAGBODY UNLESS ; --> IF >= ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; 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 ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 0 (* IRONCLAD::N-ROUNDS 4)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; fold zero arg ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR RATIONAL (COMPLEX RATIONAL)). ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; 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 ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 1 (* IRONCLAD::N-ROUNDS 4)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; 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 ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 2 (* IRONCLAD::N-ROUNDS 4)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; 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 ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 3 (* IRONCLAD::N-ROUNDS 4)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET LET DO BLOCK LET TAGBODY UNLESS ; --> IF >= 1- ; ==> ; 1 ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET LET DO BLOCK LET TAGBODY UNLESS ; --> IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET LET DO BLOCK LET TAGBODY PSETQ ; --> LET* 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 0 (* IRONCLAD::N-ROUNDS 4)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 1 (* IRONCLAD::N-ROUNDS 4)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 2 (* IRONCLAD::N-ROUNDS 4)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 3 (* IRONCLAD::N-ROUNDS 4)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFINE-BLOCK-DECRYPTOR SQUARE ...) ; file: /usr/share/common-lisp/source/ironclad/src/ciphers/square.lisp ; in: DEFINE-BLOCK-DECRYPTOR SQUARE ; (IRONCLAD::SQUARE-MUNGE-BLOCK IRONCLAD::ROUND-KEYS IRONCLAD::N-ROUNDS ; IRONCLAD::T-DECRYPTION-TABLE IRONCLAD::S-DECRYPTION-TABLE ; IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START IRONCLAD::PLAINTEXT ; IRONCLAD::PLAINTEXT-START) ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET LET DO BLOCK LET TAGBODY UNLESS ; --> IF >= 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)). ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET LET DO BLOCK LET TAGBODY UNLESS ; --> IF >= ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; 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 ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 0 (* IRONCLAD::N-ROUNDS 4)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; fold zero arg ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR RATIONAL (COMPLEX RATIONAL)). ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; 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 ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 1 (* IRONCLAD::N-ROUNDS 4)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; 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 ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 2 (* IRONCLAD::N-ROUNDS 4)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; 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 ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 3 (* IRONCLAD::N-ROUNDS 4)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET LET DO BLOCK LET TAGBODY UNLESS ; --> IF >= 1- ; ==> ; 1 ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET LET DO BLOCK LET TAGBODY UNLESS ; --> IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET LET DO BLOCK LET TAGBODY PSETQ ; --> LET* 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 0 (* IRONCLAD::N-ROUNDS 4)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 1 (* IRONCLAD::N-ROUNDS 4)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 2 (* IRONCLAD::N-ROUNDS 4)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 3 (* IRONCLAD::N-ROUNDS 4)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFCIPHER SQUARE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/square-tmpJXWE1HN2.fasl ; compilation finished in 0:00:00.141 ; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/tea.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCONSTANT +TEA-N-ROUNDS+ ...) ; processing (DEFCONSTANT +TEA-DELTA+ ...) ; processing (DEFCLASS TEA ...) ; processing (DEFINE-BLOCK-ENCRYPTOR TEA ...) ; processing (DEFINE-BLOCK-DECRYPTOR TEA ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFCIPHER TEA ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/tea-tmpMNC5LX5B.fasl ; compilation finished in 0:00:00.024 ; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/threefish.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCONSTANT +THREEFISH-KEY-SCHEDULE-CONSTANT+ ...) ; processing (DEFUN THREEFISH-SET-KEY ...) ; processing (DEFUN THREEFISH-SET-TWEAK ...) ; processing (DEFCLASS THREEFISH256 ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFINE-BLOCK-ENCRYPTOR THREEFISH256 ...) ; processing (DEFINE-BLOCK-DECRYPTOR THREEFISH256 ...) ; processing (DEFCIPHER THREEFISH256 ...) ; processing (DEFCLASS THREEFISH512 ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFINE-BLOCK-ENCRYPTOR THREEFISH512 ...) ; processing (DEFINE-BLOCK-DECRYPTOR THREEFISH512 ...) ; processing (DEFCIPHER THREEFISH512 ...) ; processing (DEFCLASS THREEFISH1024 ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFINE-BLOCK-ENCRYPTOR THREEFISH1024 ...) ; processing (DEFINE-BLOCK-DECRYPTOR THREEFISH1024 ...) ; processing (DEFCIPHER THREEFISH1024 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/threefish-tmp4RNSVVC1.fasl ; compilation finished in 0:00:03.053 ; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/twofish.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (IN-IRONCLAD-READTABLE) ; processing (DECLAIM (TYPE # ...)) ; processing (DECLAIM (TYPE # ...)) ; processing (DEFCONST +TWOFISH-Q0+ ...) ; processing (DEFCONST +TWOFISH-Q1+ ...) ; processing (DEFCONST +TWOFISH-RS+ ...) ; processing (DEFCONST +TWOFISH-EXP-TO-POLY+ ...) ; processing (DEFCONST +TWOFISH-POLY-TO-EXP+ ...) ; processing (DECLAIM (TYPE # ...)) ; processing (DEFCONST +TWOFISH-MDS0+ ...) ; processing (DEFCONST +TWOFISH-MDS1+ ...) ; processing (DEFCONST +TWOFISH-MDS2+ ...) ; processing (DEFCONST +TWOFISH-MDS3+ ...) ; processing (DEFTYPE TWOFISH-S-BOXES ...) ; processing (DEFTYPE TWOFISH-ROUND-KEYS ...) ; processing (DEFCLASS TWOFISH ...) ; processing (DEFUN REED-SOLOMON-MULTIPLY ...) ; processing (DEFUN TWOFISH-KEY-SCHEDULE ...) ; processing (MACROLET (# # ...) ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFCIPHER TWOFISH ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/twofish-tmpN626KU7B.fasl ; compilation finished in 0:00:00.258 ; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/xor.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFCLASS XOR ...) ; processing (DEFUN XOR-CRYPT-BLOCK ...) ; processing (DEFINE-BLOCK-ENCRYPTOR XOR ...) ; processing (DEFINE-BLOCK-DECRYPTOR XOR ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFCIPHER XOR ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/xor-tmpOO0K1B0C.fasl ; compilation finished in 0:00:00.014 ; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/xtea.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCONSTANT +XTEA-N-ROUNDS+ ...) ; processing (DEFCONSTANT +XTEA-DELTA+ ...) ; processing (DEFCLASS XTEA ...) ; processing (DEFINE-BLOCK-ENCRYPTOR XTEA ...) ; processing (DEFINE-BLOCK-DECRYPTOR XTEA ...) ; processing (DEFMETHOD SCHEDULE-KEY ...) ; processing (DEFCIPHER XTEA ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/ciphers/xtea-tmpVFL7JAFK.fasl ; compilation finished in 0:00:00.023 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/adler32.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCONSTANT ADLER32-MODULO ...) ; processing (DEFSTRUCT (ADLER32 # ...) ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFINE-DIGEST-UPDATER ADLER32 ...) ; processing (DEFINE-DIGEST-FINALIZER (ADLER32 4) ...); in: LAMBDA (#:EXPR #:ENV) ; (LIST* 'ETYPECASE IRONCLAD::STATE (REVERSE IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; file: /usr/share/common-lisp/source/ironclad/src/digests/adler32.lisp ; in: DEFINE-DIGEST-FINALIZER (ADLER32 4) ; (ASH (IRONCLAD::ADLER32-S2 IRONCLAD::STATE) 16) ; ; note: forced to do */SIGNED=>INTEGER (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The result is a (VALUES ; (INTEGER -302231454903657293676544 ; 302231454903657293611008) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The result is a (VALUES ; (INTEGER -302231454903657293676544 ; 302231454903657293611008) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (LOGIOR (ASH (IRONCLAD::ADLER32-S2 IRONCLAD::STATE) 16) ; (IRONCLAD::ADLER32-S1 IRONCLAD::STATE)) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -302231454903657293676544 ; 302231454903657293611008), not a FIXNUM. ; The result is a (VALUES (SIGNED-BYTE 79) . #1=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a (INTEGER -302231454903657293676544 ; 302231454903657293611008), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES (SIGNED-BYTE 79) . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFDIGEST ADLER32 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/adler32-tmpU45RTF.fasl ; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/blake2.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFUN BLAKE2-MAKE-INITIAL-STATE ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN BLAKE2-ROUNDS ...) ; file: /usr/share/common-lisp/source/ironclad/src/digests/blake2.lisp ; in: DEFUN BLAKE2-ROUNDS ; (LDB (BYTE 64 0) IRONCLAD::OFFSET) ; ; note: forced to do LOGAND-WORD-MASK (cost 10) ; unable to do #1=inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 128), not a (SIGNED-BYTE 64). ; unable to do #1# (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 128), not a (UNSIGNED-BYTE 64). ; etc. ; (LDB (BYTE 64 64) IRONCLAD::OFFSET) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 128), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 128), not a (UNSIGNED-BYTE 64). ; etc. ; processing (DEFSTRUCT (BLAKE2 # ...) ...) ; processing (DEFSTRUCT (BLAKE2/384 # ...)) ; processing (DEFSTRUCT (BLAKE2/256 # ...)) ; processing (DEFSTRUCT (BLAKE2/160 # ...)) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFUN BLAKE2-UPDATE ...) ; file: /usr/share/common-lisp/source/ironclad/src/digests/blake2.lisp ; in: DEFUN BLAKE2-UPDATE ; (INCF IRONCLAD::OFFSET IRONCLAD::N) ; --> THE ; ==> ; (+ IRONCLAD::N IRONCLAD::OFFSET) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (UNSIGNED-BYTE 128), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 128) . #1=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a (UNSIGNED-BYTE 128), not a (SIGNED-BYTE 64). ; The result is a (VALUES (UNSIGNED-BYTE 128) . #1#), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST T). ; etc. ; (INCF IRONCLAD::OFFSET IRONCLAD::+BLAKE2-BLOCK-SIZE+) ; --> THE ; ==> ; (+ IRONCLAD::+BLAKE2-BLOCK-SIZE+ IRONCLAD::OFFSET) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (UNSIGNED-BYTE 128), not a FIXNUM. ; The result is a (VALUES ; (INTEGER 128 340282366920938463463374607431768211455) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 128), not a FIXNUM. ; The result is a (VALUES ; (INTEGER 128 340282366920938463463374607431768211455) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (INCF IRONCLAD::OFFSET LENGTH) ; --> THE ; ==> ; (+ LENGTH IRONCLAD::OFFSET) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (UNSIGNED-BYTE 128), not a FIXNUM. ; The result is a (VALUES ; (INTEGER 1 340282366920938463463374607431768211455) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a (UNSIGNED-BYTE 128), not a (SIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER 1 340282366920938463463374607431768211455) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; processing (DEFUN BLAKE2-FINALIZE ...) ; processing (DEFINE-DIGEST-UPDATER BLAKE2 ...) ; processing (DEFINE-DIGEST-FINALIZER (# # ...) ...); in: LAMBDA (#:EXPR #:ENV) ; (SECOND (FIRST IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; processing (DEFDIGEST BLAKE2 ...) ; processing (DEFDIGEST BLAKE2/384 ...) ; processing (DEFDIGEST BLAKE2/256 ...) ; processing (DEFDIGEST BLAKE2/160 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/blake2-tmpZTS6G7ND.fasl ; compilation finished in 0:00:00.403 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/blake2s.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFUN BLAKE2S-MAKE-INITIAL-STATE ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN BLAKE2S-ROUNDS ...) ; processing (DEFSTRUCT (BLAKE2S # ...) ...) ; processing (DEFSTRUCT (BLAKE2S/224 # ...)) ; processing (DEFSTRUCT (BLAKE2S/160 # ...)) ; processing (DEFSTRUCT (BLAKE2S/128 # ...)) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFUN BLAKE2S-UPDATE ...) ; file: /usr/share/common-lisp/source/ironclad/src/digests/blake2s.lisp ; in: DEFUN BLAKE2S-UPDATE ; (INCF IRONCLAD::OFFSET IRONCLAD::N) ; --> THE ; ==> ; (+ IRONCLAD::N IRONCLAD::OFFSET) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 64). ; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST T). ; etc. ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the second argument of GENERIC-+ ; (IRONCLAD::BLAKE2S-ROUNDS IRONCLAD::BLAKE2S-STATE IRONCLAD::INPUT ; IRONCLAD::START IRONCLAD::OFFSET NIL) ; ; note: doing unsigned word to integer coercion (cost 20) from OFFSET ; (IRONCLAD::BLAKE2S-ROUNDS IRONCLAD::BLAKE2S-STATE IRONCLAD::BUFFER 0 ; IRONCLAD::OFFSET IRONCLAD::FINAL) ; ; note: doing unsigned word to integer coercion (cost 20) from OFFSET ; processing (DEFUN BLAKE2S-FINALIZE ...) ; processing (DEFINE-DIGEST-UPDATER BLAKE2S ...) ; processing (DEFINE-DIGEST-FINALIZER (# # ...) ...); in: LAMBDA (#:EXPR #:ENV) ; (SECOND (FIRST IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; processing (DEFDIGEST BLAKE2S ...) ; processing (DEFDIGEST BLAKE2S/224 ...) ; processing (DEFDIGEST BLAKE2S/160 ...) ; processing (DEFDIGEST BLAKE2S/128 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/blake2s-tmp5TNBATEG.fasl ; compilation finished in 0:00:00.464 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/crc24.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (IN-IRONCLAD-READTABLE) ; processing (DECLAIM (TYPE # ...)) ; processing (DEFCONST +CRC24-TABLE+ ...) ; processing (DEFSTRUCT (CRC24 # ...) ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFINE-DIGEST-UPDATER CRC24 ...) ; processing (DEFINE-DIGEST-FINALIZER (CRC24 3) ...); in: LAMBDA (#:EXPR #:ENV) ; (LIST* 'ETYPECASE IRONCLAD::STATE (REVERSE IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; processing (DEFDIGEST CRC24 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/crc24-tmpJL6JXW7Z.fasl ; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/crc32.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (IN-IRONCLAD-READTABLE) ; processing (DECLAIM (TYPE # ...)) ; processing (DEFCONST +CRC32-TABLE+ ...) ; processing (DEFSTRUCT (CRC32 # ...) ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFINE-DIGEST-UPDATER CRC32 ...) ; processing (DEFINE-DIGEST-FINALIZER (CRC32 4) ...); in: LAMBDA (#:EXPR #:ENV) ; (LIST* 'ETYPECASE IRONCLAD::STATE (REVERSE IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; processing (DEFDIGEST CRC32 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/crc32-tmp5PQ00DH7.fasl ; compilation finished in 0:00:00.025 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/groestl.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DECLAIM (INLINE GROESTL-TABLE) ...) ; processing (DEFUN GROESTL-TABLE ...) ; processing (DEFMACRO GROESTL-EXT-BYTE ...) ; processing (DEFMACRO GROESTL-COLUMN ...) ; processing (DECLAIM (INLINE GROESTL-RND512P) ...) ; processing (DEFUN GROESTL-RND512P ...) ; processing (DECLAIM (INLINE GROESTL-RND512Q) ...) ; processing (DEFUN GROESTL-RND512Q ...) ; processing (DECLAIM (INLINE GROESTL-RND1024P) ...) ; processing (DEFUN GROESTL-RND1024P ...) ; processing (DECLAIM (INLINE GROESTL-RND1024Q) ...) ; processing (DEFUN GROESTL-RND1024Q ...) ; processing (DEFUN GROESTL-F512 ...) ; processing (DEFUN GROESTL-F1024 ...) ; processing (DEFUN GROESTL-MAKE-INITIAL-STATE ...) ; processing (DEFSTRUCT (GROESTL # ...) ...) ; processing (DEFSTRUCT (GROESTL/384 # ...)) ; processing (DEFSTRUCT (GROESTL/256 # ...)) ; processing (DEFSTRUCT (GROESTL/224 # ...)) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFUN GROESTL-UPDATE ...) ; file: /usr/share/common-lisp/source/ironclad/src/digests/groestl.lisp ; in: DEFUN GROESTL-UPDATE ; (MIN LENGTH (- IRONCLAD::BLOCK-SIZE IRONCLAD::BUFFER-INDEX)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; (INCF IRONCLAD::BLOCK-COUNTER) ; --> THE ; ==> ; (+ 1 IRONCLAD::BLOCK-COUNTER) ; ; note: forced to do +/UNSIGNED=>INTEGER (cost 8) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (INTEGER 1 18446744073709551616) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do #1# (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (INTEGER 1 18446744073709551616) . #2#), not a (VALUES ; FIXNUM ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (LET* ((IRONCLAD::GROESTL-STATE (IRONCLAD::GROESTL-STATE IRONCLAD::STATE)) ; (IRONCLAD::BUFFER (IRONCLAD::GROESTL-BUFFER IRONCLAD::STATE)) ; (IRONCLAD::BUFFER-INDEX ; (IRONCLAD::GROESTL-BUFFER-INDEX IRONCLAD::STATE)) ; (IRONCLAD::BLOCK-COUNTER ; (IRONCLAD::GROESTL-BLOCK-COUNTER IRONCLAD::STATE)) ; (IRONCLAD::BLOCK-SIZE (LENGTH IRONCLAD::BUFFER)) ; (IRONCLAD::TRANSFORM ; (IF (= IRONCLAD::BLOCK-SIZE IRONCLAD::+GROESTL-SIZE-512+) ; #'IRONCLAD::GROESTL-F512 ; #'IRONCLAD::GROESTL-F1024)) ; (LENGTH (- IRONCLAD::END IRONCLAD::START)) ; (IRONCLAD::N 0)) ; (DECLARE ; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) IRONCLAD::GROESTL-STATE) ; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) IRONCLAD::BUFFER) ; (TYPE (INTEGER 0 128) IRONCLAD::BLOCK-SIZE IRONCLAD::BUFFER-INDEX ; IRONCLAD::N) ; (TYPE (UNSIGNED-BYTE 64) LENGTH)) ; (SETF IRONCLAD::N ; (MIN LENGTH (- IRONCLAD::BLOCK-SIZE IRONCLAD::BUFFER-INDEX))) ; (REPLACE IRONCLAD::BUFFER IRONCLAD::INPUT :START1 IRONCLAD::BUFFER-INDEX ; :START2 IRONCLAD::START :END2 (+ IRONCLAD::START IRONCLAD::N)) ; (INCF IRONCLAD::BUFFER-INDEX IRONCLAD::N) ; (INCF IRONCLAD::START IRONCLAD::N) ; (DECF LENGTH IRONCLAD::N) ; (WHEN (= IRONCLAD::BUFFER-INDEX IRONCLAD::BLOCK-SIZE) ; (FUNCALL IRONCLAD::TRANSFORM IRONCLAD::GROESTL-STATE IRONCLAD::BUFFER 0) ; (SETF IRONCLAD::BUFFER-INDEX 0) ; (INCF IRONCLAD::BLOCK-COUNTER)) ; (LOOP IRONCLAD::UNTIL (< LENGTH IRONCLAD::BLOCK-SIZE) ; DO (FUNCALL IRONCLAD::TRANSFORM IRONCLAD::GROESTL-STATE ; IRONCLAD::INPUT IRONCLAD::START) (INCF ; IRONCLAD::BLOCK-COUNTER) (INCF ; IRONCLAD::START ; IRONCLAD::BLOCK-SIZE) (DECF ; LENGTH ; IRONCLAD::BLOCK-SIZE)) ; (WHEN (PLUSP LENGTH) ; (REPLACE IRONCLAD::BUFFER IRONCLAD::INPUT :END1 LENGTH :START2 ; IRONCLAD::START) ; (SETF IRONCLAD::BUFFER-INDEX LENGTH)) ; (SETF (IRONCLAD::GROESTL-BLOCK-COUNTER IRONCLAD::STATE) ; IRONCLAD::BLOCK-COUNTER ; (IRONCLAD::GROESTL-BUFFER-INDEX IRONCLAD::STATE) ; IRONCLAD::BUFFER-INDEX) ; ...) ; ; note: doing unsigned word to integer coercion (cost 20) to BLOCK-COUNTER ; (MIN LENGTH (- IRONCLAD::BLOCK-SIZE IRONCLAD::BUFFER-INDEX)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of GENERIC-> ; (FUNCALL IRONCLAD::TRANSFORM IRONCLAD::GROESTL-STATE IRONCLAD::INPUT ; IRONCLAD::START) ; ; note: doing unsigned word to integer coercion (cost 20) from START ; processing (DEFUN GROESTL-FINALIZE ...) ; file: /usr/share/common-lisp/source/ironclad/src/digests/groestl.lisp ; in: DEFUN GROESTL-FINALIZE ; (- IRONCLAD::BLOCK-SIZE IRONCLAD:DIGEST-LENGTH) ; ; 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)). ; (REPLACE IRONCLAD::DIGEST IRONCLAD::OUTPUT :START1 IRONCLAD::DIGEST-START ; :START2 (- IRONCLAD::BLOCK-SIZE IRONCLAD:DIGEST-LENGTH)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * . #1=((*))). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY * . #1#) ; &REST T). ; (COPY-SEQ IRONCLAD::GROESTL-STATE) ; ; note: could not stack allocate SB-C::RESULT in: (COPY-SEQ GROESTL-STATE) ; ; note: could not stack allocate SB-C::RESULT in: (COPY-SEQ GROESTL-STATE) ; (INCF IRONCLAD::BLOCK-COUNTER) ; --> THE ; ==> ; (+ 1 IRONCLAD::BLOCK-COUNTER) ; ; note: forced to do +/UNSIGNED=>INTEGER (cost 8) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (INTEGER 1 18446744073709551616) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do #1# (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (INTEGER 1 18446744073709551616) . #2#), not a (VALUES ; FIXNUM ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (- IRONCLAD::BLOCK-SIZE IRONCLAD:DIGEST-LENGTH) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; etc. ; (LET* ((IRONCLAD:DIGEST-LENGTH (IRONCLAD:DIGEST-LENGTH IRONCLAD::STATE)) ; (IRONCLAD::GROESTL-STATE (IRONCLAD::GROESTL-STATE IRONCLAD::STATE)) ; (IRONCLAD::BUFFER (IRONCLAD::GROESTL-BUFFER IRONCLAD::STATE)) ; (IRONCLAD::BUFFER-INDEX ; (IRONCLAD::GROESTL-BUFFER-INDEX IRONCLAD::STATE)) ; (IRONCLAD::BLOCK-COUNTER ; (IRONCLAD::GROESTL-BLOCK-COUNTER IRONCLAD::STATE)) ; (IRONCLAD::BLOCK-SIZE (LENGTH IRONCLAD::BUFFER)) ; (IRONCLAD::TRANSFORM ; (IF (= IRONCLAD::BLOCK-SIZE IRONCLAD::+GROESTL-SIZE-512+) ; #'IRONCLAD::GROESTL-F512 ; #'IRONCLAD::GROESTL-F1024))) ; (DECLARE ; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) IRONCLAD::GROESTL-STATE) ; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) IRONCLAD::BUFFER) ; (TYPE (INTEGER 0 128) IRONCLAD::BLOCK-SIZE IRONCLAD::BUFFER-INDEX) ; (OPTIMIZE (SPEED 3) (SPACE 0) (SAFETY 0) (DEBUG 0))) ; (SETF (AREF IRONCLAD::BUFFER IRONCLAD::BUFFER-INDEX) 128) ; (INCF IRONCLAD::BUFFER-INDEX) ; (WHEN ; (> IRONCLAD::BUFFER-INDEX ; (- IRONCLAD::BLOCK-SIZE IRONCLAD::+GROESTL-LENGTH-FIELD-LENGTH+)) ; (FILL IRONCLAD::BUFFER 0 :START IRONCLAD::BUFFER-INDEX) ; (FUNCALL IRONCLAD::TRANSFORM IRONCLAD::GROESTL-STATE IRONCLAD::BUFFER 0) ; (INCF IRONCLAD::BLOCK-COUNTER) ; (SETF IRONCLAD::BUFFER-INDEX 0)) ; (FILL IRONCLAD::BUFFER 0 :START IRONCLAD::BUFFER-INDEX) ; (SETF IRONCLAD::BUFFER-INDEX ; (- IRONCLAD::BLOCK-SIZE IRONCLAD::+GROESTL-LENGTH-FIELD-LENGTH+)) ; (INCF IRONCLAD::BLOCK-COUNTER) ; (SETF (IRONCLAD:UB64REF/BE IRONCLAD::BUFFER IRONCLAD::BUFFER-INDEX) ; IRONCLAD::BLOCK-COUNTER) ; (FUNCALL IRONCLAD::TRANSFORM IRONCLAD::GROESTL-STATE IRONCLAD::BUFFER 0) ; (IF (= IRONCLAD::BLOCK-SIZE IRONCLAD::+GROESTL-SIZE-512+) ; (LET ((IRONCLAD::TEMP #) (IRONCLAD::Y #) (IRONCLAD::Z #)) ; (DECLARE (TYPE # IRONCLAD::TEMP IRONCLAD::Y IRONCLAD::Z) ; (DYNAMIC-EXTENT IRONCLAD::TEMP IRONCLAD::Y IRONCLAD::Z)) ; (IRONCLAD::GROESTL-RND512P IRONCLAD::TEMP IRONCLAD::Z 0) ; (LOOP IRONCLAD::FOR IRONCLAD::I IRONCLAD::FROM 1 IRONCLAD::BELOW (1- ; IRONCLAD::+GROESTL-ROUNDS-512+) IRONCLAD::BY 2 ; DO (IRONCLAD::GROESTL-RND512P IRONCLAD::Z IRONCLAD::Y ; #) (IRONCLAD::GROESTL-RND512P IRONCLAD::Y IRONCLAD::Z #)) ; (IRONCLAD::GROESTL-RND512P IRONCLAD::Z IRONCLAD::TEMP (ASH # 56)) ; (DOTIMES (IRONCLAD::I IRONCLAD::+GROESTL-COLS-512+) (SETF #))) ; (LET ((IRONCLAD::TEMP #) (IRONCLAD::Y #) (IRONCLAD::Z #)) ; (DECLARE (TYPE # IRONCLAD::TEMP IRONCLAD::Y IRONCLAD::Z) ; (DYNAMIC-EXTENT IRONCLAD::TEMP IRONCLAD::Y IRONCLAD::Z)) ; (IRONCLAD::GROESTL-RND1024P IRONCLAD::TEMP IRONCLAD::Y 0) ; (LOOP IRONCLAD::FOR IRONCLAD::I IRONCLAD::FROM 1 IRONCLAD::BELOW (1- ; IRONCLAD::+GROESTL-ROUNDS-1024+) IRONCLAD::BY 2 ; DO (IRONCLAD::GROESTL-RND1024P IRONCLAD::Y IRONCLAD::Z ; #) (IRONCLAD::GROESTL-RND1024P IRONCLAD::Z IRONCLAD::Y #)) ; (IRONCLAD::GROESTL-RND1024P IRONCLAD::Y IRONCLAD::TEMP (ASH # 56)) ; (DOTIMES (IRONCLAD::I IRONCLAD::+GROESTL-COLS-1024+) (SETF #)))) ; ...) ; ; note: doing unsigned word to integer coercion (cost 20) to BLOCK-COUNTER ; processing (DEFINE-DIGEST-UPDATER GROESTL ...) ; processing (DEFINE-DIGEST-FINALIZER (# # ...) ...); in: LAMBDA (#:EXPR #:ENV) ; (SECOND (FIRST IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; processing (DEFDIGEST GROESTL ...) ; processing (DEFDIGEST GROESTL/384 ...) ; processing (DEFDIGEST GROESTL/256 ...) ; processing (DEFDIGEST GROESTL/224 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/groestl-tmp5R1KP4O2.fasl ; compilation finished in 0:00:03.134 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/jh.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFMACRO JH-SWAP-1 ...) ; processing (DEFMACRO JH-SWAP-2 ...) ; processing (DEFMACRO JH-SWAP-4 ...) ; processing (DEFMACRO JH-SWAP-8 ...) ; processing (DEFMACRO JH-SWAP-16 ...) ; processing (DEFMACRO JH-SWAP-32 ...) ; processing (DEFMACRO JH-L ...) ; processing (DEFMACRO JH-SS ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN JH-E8 ...) ; processing (DEFUN JH-F8 ...) ; processing (DEFSTRUCT (JH # ...) ...) ; processing (DEFSTRUCT (JH/384 # ...)) ; processing (DEFSTRUCT (JH/256 # ...)) ; processing (DEFSTRUCT (JH/224 # ...)) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFUN JH-UPDATE ...) ; processing (DEFUN JH-FINALIZE ...) ; processing (DEFINE-DIGEST-UPDATER JH ...) ; processing (DEFINE-DIGEST-FINALIZER (# # ...) ...); in: LAMBDA (#:EXPR #:ENV) ; (SECOND (FIRST IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; processing (DEFDIGEST JH ...) ; processing (DEFDIGEST JH/384 ...) ; processing (DEFDIGEST JH/256 ...) ; processing (DEFDIGEST JH/224 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/jh-tmpXQDKKJYI.fasl ; compilation finished in 0:00:00.479 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/kupyna.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 KUPYNA-G256)) ; processing (DEFUN KUPYNA-G256 ...) ; processing (DECLAIM (INLINE KUPYNA-ROUND-P256)) ; processing (DEFUN KUPYNA-ROUND-P256 ...) ; processing (DECLAIM (INLINE KUPYNA-ROUND-Q256)) ; processing (DEFUN KUPYNA-ROUND-Q256 ...) ; processing (DEFUN KUPYNA-OUTPUT-TRANSFORM256 ...) ; processing (DEFUN KUPYNA-TRANSFORM256 ...) ; processing (DECLAIM (INLINE KUPYNA-G512)) ; processing (DEFUN KUPYNA-G512 ...) ; processing (DECLAIM (INLINE KUPYNA-ROUND-P512)) ; processing (DEFUN KUPYNA-ROUND-P512 ...) ; processing (DECLAIM (INLINE KUPYNA-ROUND-Q512)) ; processing (DEFUN KUPYNA-ROUND-Q512 ...) ; processing (DEFUN KUPYNA-OUTPUT-TRANSFORM512 ...) ; processing (DEFUN KUPYNA-TRANSFORM512 ...) ; processing (DEFSTRUCT (KUPYNA # ...) ...) ; processing (DEFSTRUCT (KUPYNA/256 # ...)) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFINE-DIGEST-UPDATER KUPYNA ...) ; file: /usr/share/common-lisp/source/ironclad/src/digests/kupyna.lisp ; in: DEFINE-DIGEST-UPDATER KUPYNA ; (INCF IRONCLAD::START 64) ; --> THE ; ==> ; (+ 64 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 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF IRONCLAD::START 128) ; --> THE ; ==> ; (+ 128 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 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF IRONCLAD::START 64) ; --> THE ; ==> ; (+ 64 IRONCLAD::START) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (INCF IRONCLAD::START 128) ; --> THE ; ==> ; (+ 128 IRONCLAD::START) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (INCF IRONCLAD::START IRONCLAD::N) ; ; note: doing signed word to integer coercion (cost 20) to START ; processing (DEFINE-DIGEST-FINALIZER (# #) ...); in: LAMBDA (#:EXPR #:ENV) ; (SECOND (FIRST IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; file: /usr/share/common-lisp/source/ironclad/src/digests/kupyna.lisp ; in: DEFINE-DIGEST-FINALIZER ((KUPYNA 64) (KUPYNA/256 32)) ; (- IRONCLAD:BLOCK-LENGTH 12) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (- IRONCLAD:BLOCK-LENGTH IRONCLAD:DIGEST-LENGTH) ; ; 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). ; (INCF IRONCLAD::TOTAL (* 8 IRONCLAD::BUFFER-INDEX)) ; --> THE ; ==> ; (+ (* 8 IRONCLAD::BUFFER-INDEX) IRONCLAD::TOTAL) ; ; note: forced to do +/UNSIGNED=>INTEGER (cost 8) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (MOD 18446744073709552640) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; (> (+ IRONCLAD::BUFFER-INDEX 12) IRONCLAD:BLOCK-LENGTH) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; (- IRONCLAD:BLOCK-LENGTH 12) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (SETF (IRONCLAD:UB64REF/LE IRONCLAD::BUFFER (- IRONCLAD:BLOCK-LENGTH 12)) ; IRONCLAD::TOTAL) ; --> FUNCALL ; ==> ; 1 ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline (unsigned-byte 64) comparison (cost 5) because: ; The first argument is a (MOD 18446744073709552640), not a (UNSIGNED-BYTE ; 64). ; (- IRONCLAD:BLOCK-LENGTH IRONCLAD:DIGEST-LENGTH) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (LET ((IRONCLAD:BLOCK-LENGTH (IRONCLAD:BLOCK-LENGTH IRONCLAD::STATE)) ; (IRONCLAD:DIGEST-LENGTH (IRONCLAD:DIGEST-LENGTH IRONCLAD::STATE)) ; (IRONCLAD::BUFFER (IRONCLAD::KUPYNA-BUFFER IRONCLAD::STATE)) ; (IRONCLAD::BUFFER-INDEX ; (IRONCLAD::KUPYNA-BUFFER-INDEX IRONCLAD::STATE)) ; (IRONCLAD::H (IRONCLAD::KUPYNA-H IRONCLAD::STATE)) ; (IRONCLAD::TOTAL (IRONCLAD::KUPYNA-TOTAL IRONCLAD::STATE))) ; (INCF IRONCLAD::TOTAL (* 8 IRONCLAD::BUFFER-INDEX)) ; (SETF (AREF IRONCLAD::BUFFER IRONCLAD::BUFFER-INDEX) 128) ; (INCF IRONCLAD::BUFFER-INDEX) ; (WHEN (> (+ IRONCLAD::BUFFER-INDEX 12) IRONCLAD:BLOCK-LENGTH) ; (FILL IRONCLAD::BUFFER 0 :START IRONCLAD::BUFFER-INDEX) ; (ECASE IRONCLAD:BLOCK-LENGTH ; (64 (IRONCLAD::KUPYNA-TRANSFORM256 IRONCLAD::H IRONCLAD::BUFFER 0)) ; (128 (IRONCLAD::KUPYNA-TRANSFORM512 IRONCLAD::H IRONCLAD::BUFFER 0))) ; (SETF IRONCLAD::BUFFER-INDEX 0)) ; (FILL IRONCLAD::BUFFER 0 :START IRONCLAD::BUFFER-INDEX) ; (SETF (IRONCLAD:UB64REF/LE IRONCLAD::BUFFER (- IRONCLAD:BLOCK-LENGTH 12)) ; IRONCLAD::TOTAL) ; (ECASE IRONCLAD:BLOCK-LENGTH ; (64 ; (IRONCLAD::KUPYNA-TRANSFORM256 IRONCLAD::H IRONCLAD::BUFFER 0) ; (IRONCLAD::KUPYNA-OUTPUT-TRANSFORM256 IRONCLAD::H)) ; (128 ; (IRONCLAD::KUPYNA-TRANSFORM512 IRONCLAD::H IRONCLAD::BUFFER 0) ; (IRONCLAD::KUPYNA-OUTPUT-TRANSFORM512 IRONCLAD::H))) ; (LET ((IRONCLAD::OUTPUT (MAKE-ARRAY 128 :ELEMENT-TYPE '#))) ; (DOTIMES (IRONCLAD::I 16) (SETF # #)) ; (REPLACE IRONCLAD::DIGEST IRONCLAD::OUTPUT :START1 IRONCLAD::DIGEST-START ; :START2 (- IRONCLAD:BLOCK-LENGTH IRONCLAD:DIGEST-LENGTH) :END2 ; IRONCLAD:BLOCK-LENGTH) ; IRONCLAD::DIGEST)) ; ; note: doing unsigned word to integer coercion (cost 20) to TOTAL ; processing (DEFDIGEST KUPYNA ...) ; processing (DEFDIGEST KUPYNA/256 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/kupyna-tmpGJ3P31TF.fasl ; compilation finished in 0:00:03.556 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/md2.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (IN-IRONCLAD-READTABLE) ; processing (DEFCONST +MD2-PERMUTATION+ ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL) ...) ; processing (DEFUN UPDATE-MD2-REGS ...) ; file: /usr/share/common-lisp/source/ironclad/src/digests/md2.lisp ; in: DEFUN UPDATE-MD2-REGS ; (+ IRONCLAD::I IRONCLAD::OFFSET) ; ; 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 ; 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 ; 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: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; etc. ; processing (DECLAIM (INLINE MD2REGS-DIGEST)) ; processing (DEFUN MD2REGS-DIGEST ...) ; file: /usr/share/common-lisp/source/ironclad/src/digests/md2.lisp ; in: DEFUN MD2REGS-DIGEST ; (+ IRONCLAD::START IRONCLAD::I) ; ; 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: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; etc. ; processing (DEFSTRUCT (MD2 # ...) ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFINE-DIGEST-UPDATER MD2 ...) ; processing (DEFINE-DIGEST-FINALIZER (MD2 16) ...); in: LAMBDA (#:EXPR #:ENV) ; (LIST* 'ETYPECASE IRONCLAD::STATE (REVERSE IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; file: /usr/share/common-lisp/source/ironclad/src/digests/md2.lisp ; in: DEFINE-DIGEST-FINALIZER (MD2 16) ; (IRONCLAD::FINALIZE-REGISTERS IRONCLAD::STATE IRONCLAD::REGS) ; --> BLOCK FLET IRONCLAD::STUFF-REGISTERS BLOCK DOTIMES DO BLOCK LET TAGBODY ; --> TAGBODY SETF LET* ; ==> ; (+ IRONCLAD::START IRONCLAD::I) ; ; 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: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; etc. ; processing (DEFDIGEST MD2 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/md2-tmpT2P2LFJI.fasl ; compilation finished in 0:00:00.057 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/md4.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFINE-DIGEST-REGISTERS (MD4 :ENDIAN ...) ...) ; processing (DEFCONST +PRISTINE-MD4-REGISTERS+ ...) ; processing (DEFUN UPDATE-MD4-BLOCK ...) ; processing (DEFSTRUCT (MD4 # ...) ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFINE-DIGEST-UPDATER MD4 ...) ; processing (DEFINE-DIGEST-FINALIZER (MD4 16) ...); in: LAMBDA (#:EXPR #:ENV) ; (LIST* 'ETYPECASE IRONCLAD::STATE (REVERSE IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; file: /usr/share/common-lisp/source/ironclad/src/digests/md4.lisp ; in: DEFINE-DIGEST-FINALIZER (MD4 16) ; (* 8 (IRONCLAD::MD4-AMOUNT IRONCLAD::STATE)) ; ; 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 ; 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. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (IRONCLAD::STORE-DATA-LENGTH BLOCK IRONCLAD::TOTAL-LENGTH 14) ; --> BLOCK LET SETF PROGN SETF LET* LDB ; ==> ; 1 ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFDIGEST MD4 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/md4-tmpKOV75BS9.fasl ; compilation finished in 0:00:00.106 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/md5.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (PROGN (DEFINE-DIGEST-REGISTERS # ...) ...); in: LAMBDA (#:EXPR #:ENV) ; (LIST* 'ETYPECASE IRONCLAD::STATE (REVERSE IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; file: /usr/share/common-lisp/source/ironclad/src/digests/md5.lisp ; in: DEFINE-DIGEST-FINALIZER (MD5 16) ; (* 8 (IRONCLAD::MD5-AMOUNT IRONCLAD::STATE)) ; ; 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 ; 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. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (IRONCLAD::STORE-DATA-LENGTH BLOCK IRONCLAD::TOTAL-LENGTH 14) ; --> BLOCK LET SETF PROGN SETF LET* LDB ; ==> ; 1 ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/md5-tmpP07HWIXP.fasl ; compilation finished in 0:00:00.138 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/md5-lispworks-int32.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CL-USER) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/md5-lispworks-int32-tmpURW0SA3C.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/ripemd-128.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFINE-DIGEST-REGISTERS (RIPEMD-128 :ENDIAN ...) ...) ; processing (DEFCONST +PRISTINE-RIPEMD-128-REGISTERS+ ...) ; processing (DEFUN UPDATE-RIPEMD-128-BLOCK ...) ; processing (DEFSTRUCT (RIPEMD-128 # ...) ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFINE-DIGEST-UPDATER RIPEMD-128 ...) ; processing (DEFINE-DIGEST-FINALIZER (RIPEMD-128 16) ...); in: LAMBDA (#:EXPR #:ENV) ; (LIST* 'ETYPECASE IRONCLAD::STATE (REVERSE IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; file: /usr/share/common-lisp/source/ironclad/src/digests/ripemd-128.lisp ; in: DEFINE-DIGEST-FINALIZER (RIPEMD-128 16) ; (* 8 (IRONCLAD::RIPEMD-128-AMOUNT IRONCLAD::STATE)) ; ; 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 ; 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. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (IRONCLAD::STORE-DATA-LENGTH BLOCK IRONCLAD::TOTAL-LENGTH 14) ; --> BLOCK LET SETF PROGN SETF LET* LDB ; ==> ; 1 ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFDIGEST RIPEMD-128 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/ripemd-128-tmp627QKRZN.fasl ; compilation finished in 0:00:00.438 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/ripemd-160.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFINE-DIGEST-REGISTERS (RIPEMD-160 :ENDIAN ...) ...) ; processing (DEFCONST +PRISTINE-RIPEMD-160-REGISTERS+ ...) ; processing (DEFUN UPDATE-RIPEMD-160-BLOCK ...) ; processing (DEFSTRUCT (RIPEMD-160 # ...) ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFINE-DIGEST-UPDATER RIPEMD-160 ...) ; processing (DEFINE-DIGEST-FINALIZER (RIPEMD-160 20) ...); in: LAMBDA (#:EXPR #:ENV) ; (LIST* 'ETYPECASE IRONCLAD::STATE (REVERSE IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; file: /usr/share/common-lisp/source/ironclad/src/digests/ripemd-160.lisp ; in: DEFINE-DIGEST-FINALIZER (RIPEMD-160 20) ; (* 8 (IRONCLAD::RIPEMD-160-AMOUNT IRONCLAD::STATE)) ; ; 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 ; 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. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (IRONCLAD::STORE-DATA-LENGTH BLOCK IRONCLAD::TOTAL-LENGTH 14) ; --> BLOCK LET SETF PROGN SETF LET* LDB ; ==> ; 1 ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFDIGEST RIPEMD-160 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/ripemd-160-tmpK8OFNZFV.fasl ; compilation finished in 0:00:01.074 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/sha1.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCONSTANT +K1+ ...) ; processing (DEFCONSTANT +K2+ ...) ; processing (DEFCONSTANT +K3+ ...) ; processing (DEFCONSTANT +K4+ ...) ; processing (DEFINE-DIGEST-REGISTERS (SHA1 :ENDIAN ...) ...) ; processing (DEFCONST +PRISTINE-SHA1-REGISTERS+ ...) ; processing (DEFUN UPDATE-SHA1-BLOCK ...) ; processing (DEFUN EXPAND-BLOCK ...) ; processing (DEFSTRUCT (SHA1 # ...) ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFINE-DIGEST-UPDATER SHA1 ...) ; processing (DEFINE-DIGEST-FINALIZER (SHA1 20) ...); in: LAMBDA (#:EXPR #:ENV) ; (LIST* 'ETYPECASE IRONCLAD::STATE (REVERSE IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; file: /usr/share/common-lisp/source/ironclad/src/digests/sha1.lisp ; in: DEFINE-DIGEST-FINALIZER (SHA1 20) ; (* 8 (IRONCLAD::SHA1-AMOUNT IRONCLAD::STATE)) ; ; 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 ; 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. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (IRONCLAD::STORE-DATA-LENGTH BLOCK IRONCLAD::TOTAL-LENGTH 14 T) ; --> BLOCK LET SETF PROGN SETF LET* LDB ; ==> ; 1 ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFDIGEST SHA1 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/sha1-tmpRMCY5COB.fasl ; compilation finished in 0:00:00.071 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/sha256.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (IN-IRONCLAD-READTABLE) ; processing (DEFINE-DIGEST-REGISTERS (SHA224 :ENDIAN ...) ...) ; processing (DEFCONST +PRISTINE-SHA224-REGISTERS+ ...) ; processing (DEFINE-DIGEST-REGISTERS (SHA256 :ENDIAN ...) ...) ; processing (DEFCONST +PRISTINE-SHA256-REGISTERS+ ...) ; processing (DEFCONST +SHA256-ROUND-CONSTANTS+ ...) ; processing (DEFUN UPDATE-SHA256-BLOCK ...) ; processing (DEFUN SHA256-EXPAND-BLOCK ...) ; processing (DEFSTRUCT (SHA256 # ...) ...) ; processing (DEFSTRUCT (SHA224 # ...)) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFINE-DIGEST-UPDATER SHA256 ...) ; processing (DEFINE-DIGEST-FINALIZER (# #) ...); in: LAMBDA (#:EXPR #:ENV) ; (SECOND (FIRST IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; file: /usr/share/common-lisp/source/ironclad/src/digests/sha256.lisp ; in: DEFINE-DIGEST-FINALIZER ((SHA256 32) (SHA224 28)) ; (* 8 (IRONCLAD::SHA256-AMOUNT IRONCLAD::STATE)) ; ; 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 ; 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. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (IRONCLAD::STORE-DATA-LENGTH BLOCK IRONCLAD::TOTAL-LENGTH 14 T) ; --> BLOCK LET SETF PROGN SETF LET* LDB ; ==> ; 1 ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFDIGEST SHA256 ...) ; processing (DEFDIGEST SHA224 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/sha256-tmp9TN1FOJ6.fasl ; compilation finished in 0:00:01.006 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/sha3.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFTYPE KECCAK-LANE ...) ; processing (DEFTYPE KECCAK-STATE ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFMACRO GET-KECCAK-ROTATE-OFFSET ...) ; processing (DECLAIM (INLINE GET-KECCAK-ROUND-CONSTANT) ...) ; processing (DEFUN GET-KECCAK-ROUND-CONSTANT ...) ; file: /usr/share/common-lisp/source/ironclad/src/digests/sha3.lisp ; in: DEFUN GET-KECCAK-ROUND-CONSTANT ; (DEFUN IRONCLAD::GET-KECCAK-ROUND-CONSTANT (IRONCLAD::I) ; (DECLARE (TYPE (INTEGER 0 23) IRONCLAD::I) ; (OPTIMIZE (SPEED 3) (SPACE 0) (SAFETY 0) (DEBUG 0))) ; (LET ((IRONCLAD::CONSTANTS ; (LOAD-TIME-VALUE IRONCLAD::+KECCAK-ROUND-CONSTANTS+ T))) ; (DECLARE ; (TYPE (SIMPLE-ARRAY IRONCLAD::KECCAK-LANE #) IRONCLAD::CONSTANTS)) ; (AREF IRONCLAD::CONSTANTS IRONCLAD::I))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IRONCLAD::GET-KECCAK-ROUND-CONSTANT ; (IRONCLAD::I) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (DECLARE (TYPE (INTEGER 0 23) IRONCLAD::I) ; (OPTIMIZE (SPEED 3) (SPACE 0) (SAFETY 0) (DEBUG 0))) ; (BLOCK IRONCLAD::GET-KECCAK-ROUND-CONSTANT ; (LET ((IRONCLAD::CONSTANTS #)) ; (DECLARE (TYPE # IRONCLAD::CONSTANTS)) ; (AREF IRONCLAD::CONSTANTS IRONCLAD::I)))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; processing (DECLAIM (INLINE MAKE-KECCAK-STATE) ...) ; processing (DEFUN MAKE-KECCAK-STATE ...) ; processing (DEFUN KECCAK-STATE-MERGE-INPUT ...) ; processing (DEFUN KECCAK-STATE-EXTRACT-OUTPUT ...) ; processing (DEFMACRO WITH-KECCAK-STATE-ACCESSORS ...) ; processing (DEFMACRO WITH-TEMP-KECCAK-STATE ...) ; processing (DEFMACRO WITH-TEMP-KECCAK-ROWS ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN KECCAK-ROUNDS ...) ; processing (DEFUN PAD-MESSAGE-TO-WIDTH ...) ; processing (DEFSTRUCT (SHA3 # ...) ...) ; processing (DEFSTRUCT (SHA3/384 # ...)) ; processing (DEFSTRUCT (SHA3/256 # ...)) ; processing (DEFSTRUCT (SHA3/224 # ...)) ; processing (DEFSTRUCT (KECCAK # ...)) ; processing (DEFSTRUCT (KECCAK/384 # ...)) ; processing (DEFSTRUCT (KECCAK/256 # ...)) ; processing (DEFSTRUCT (KECCAK/224 # ...)) ; processing (DEFSTRUCT (SHAKE256 # ...)) ; processing (DEFSTRUCT (SHAKE128 # ...)) ; processing (DEFUN %MAKE-SHAKE256-DIGEST ...) ; processing (DEFUN %MAKE-SHAKE128-DIGEST ...) ; processing (DEFMETHOD BLOCK-LENGTH ...) ; processing (DEFMETHOD BLOCK-LENGTH ...) ; processing (DEFMETHOD DIGEST-LENGTH ...) ; processing (DEFMETHOD DIGEST-LENGTH ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFUN SHA3-UPDATE ...) ; processing (DEFUN SHA3-FINALIZE ...) ; file: /usr/share/common-lisp/source/ironclad/src/digests/sha3.lisp ; in: DEFUN SHA3-FINALIZE ; (= IRONCLAD::OUTPUT-SIZE IRONCLAD::OUTPUT-BYTE-LENGTH) ; ; 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 open code because: The operands might not be the same type. ; (- IRONCLAD::OUTPUT-BYTE-LENGTH IRONCLAD::OUTPUT-SIZE) ; ; 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)). ; (+ IRONCLAD::DIGEST-START IRONCLAD::OUTPUT-SIZE) ; ; 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)). ; (MIN (- IRONCLAD::OUTPUT-BYTE-LENGTH IRONCLAD::OUTPUT-SIZE) ; IRONCLAD::CHUNK-SIZE) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (INCF IRONCLAD::OUTPUT-SIZE IRONCLAD::N) ; --> THE ; ==> ; (+ IRONCLAD::N IRONCLAD::OUTPUT-SIZE) ; ; 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)). ; (MIN (- IRONCLAD::OUTPUT-BYTE-LENGTH IRONCLAD::OUTPUT-SIZE) ; IRONCLAD::CHUNK-SIZE) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL 0)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (- IRONCLAD::OUTPUT-BYTE-LENGTH IRONCLAD::OUTPUT-SIZE) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MIN (- IRONCLAD::OUTPUT-BYTE-LENGTH IRONCLAD::OUTPUT-SIZE) ; IRONCLAD::CHUNK-SIZE) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (+ IRONCLAD::DIGEST-START IRONCLAD::OUTPUT-SIZE) ; ; note: forced to do GENERIC-+ (cost 10) ; 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. ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; etc. ; (INCF IRONCLAD::OUTPUT-SIZE IRONCLAD::N) ; --> THE ; ==> ; (+ IRONCLAD::N IRONCLAD::OUTPUT-SIZE) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFINE-DIGEST-UPDATER SHA3 ...) ; processing (DEFINE-DIGEST-FINALIZER (# # ...) ...); in: LAMBDA (#:EXPR #:ENV) ; (SECOND (FIRST IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; processing (DEFDIGEST SHA3 ...) ; processing (DEFDIGEST SHA3/384 ...) ; processing (DEFDIGEST SHA3/256 ...) ; processing (DEFDIGEST SHA3/224 ...) ; processing (DEFDIGEST KECCAK ...) ; processing (DEFDIGEST KECCAK/384 ...) ; processing (DEFDIGEST KECCAK/256 ...) ; processing (DEFDIGEST KECCAK/224 ...) ; processing (DEFMETHOD PRODUCE-DIGEST ...) ; processing (DEFMETHOD PRODUCE-DIGEST ...) ; processing (SETF (GET # ...) ...) ; processing (SETF (GET # ...) ...) ; processing (SETF (GET # ...) ...) ; processing (SETF (GET # ...) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/sha3-tmpEID7NJG3.fasl ; compilation finished in 0:00:00.286 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/sha512.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (IN-IRONCLAD-READTABLE) ; processing (DEFINE-DIGEST-REGISTERS (SHA384 :ENDIAN ...) ...) ; processing (DEFCONST +PRISTINE-SHA384-REGISTERS+ ...) ; processing (DEFINE-DIGEST-REGISTERS (SHA512 :ENDIAN ...) ...) ; processing (DEFCONST +PRISTINE-SHA512-REGISTERS+ ...) ; processing (DEFCONST +SHA512-ROUND-CONSTANTS+ ...) ; processing (DEFUN UPDATE-SHA512-BLOCK ...) ; file: /usr/share/common-lisp/source/ironclad/src/digests/sha512.lisp ; in: DEFUN UPDATE-SHA512-BLOCK ; (IRONCLAD::MOD64+ (IRONCLAD::SHA512-REGS-H IRONCLAD::REGS) IRONCLAD::H) ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; processing (DEFUN SHA512-EXPAND-BLOCK ...) ; processing (DEFSTRUCT (SHA512 # ...) ...) ; processing (DEFSTRUCT (SHA384 # ...)) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFINE-DIGEST-UPDATER SHA512 ...) ; processing (DEFINE-DIGEST-FINALIZER (# #) ...); in: LAMBDA (#:EXPR #:ENV) ; (SECOND (FIRST IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; file: /usr/share/common-lisp/source/ironclad/src/digests/sha512.lisp ; in: DEFINE-DIGEST-FINALIZER ((SHA512 64) (SHA384 48)) ; (* 8 (IRONCLAD::SHA512-AMOUNT IRONCLAD::STATE)) ; ; 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 ; 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. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFDIGEST SHA512 ...) ; processing (DEFDIGEST SHA384 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/sha512-tmp8CJLVG9R.fasl ; compilation finished in 0:00:00.910 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/skein.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (IN-IRONCLAD-READTABLE) ; processing (DEFCONSTANT +SKEIN-KEY+ ...) ; processing (DEFCONSTANT +SKEIN-CFG+ ...) ; processing (DEFCONSTANT +SKEIN-PRS+ ...) ; processing (DEFCONSTANT +SKEIN-PK+ ...) ; processing (DEFCONSTANT +SKEIN-KDF+ ...) ; processing (DEFCONSTANT +SKEIN-NON+ ...) ; processing (DEFCONSTANT +SKEIN-MSG+ ...) ; processing (DEFCONSTANT +SKEIN-OUT+ ...) ; processing (DECLAIM (TYPE # ...)) ; processing (DECLAIM (TYPE # ...)) ; processing (DECLAIM (TYPE # ...)) ; processing (DEFCONST +SKEIN256-IV-128+ ...) ; processing (DEFCONST +SKEIN256-IV-160+ ...) ; processing (DEFCONST +SKEIN256-IV-224+ ...) ; processing (DEFCONST +SKEIN256-IV-256+ ...) ; processing (DEFCONST +SKEIN512-IV-128+ ...) ; processing (DEFCONST +SKEIN512-IV-160+ ...) ; processing (DEFCONST +SKEIN512-IV-224+ ...) ; processing (DEFCONST +SKEIN512-IV-256+ ...) ; processing (DEFCONST +SKEIN512-IV-384+ ...) ; processing (DEFCONST +SKEIN512-IV-512+ ...) ; processing (DEFCONST +SKEIN1024-IV-384+ ...) ; processing (DEFCONST +SKEIN1024-IV-512+ ...) ; processing (DEFCONST +SKEIN1024-IV-1024+ ...) ; processing (DEFUN SKEIN-GET-IV ...) ; processing (DECLAIM (INLINE SKEIN-INCREMENT-COUNTER)) ; processing (DEFUN SKEIN-INCREMENT-COUNTER ...) ; processing (DEFUN SKEIN-UPDATE-TWEAK ...) ; processing (DEFUN SKEIN-MAKE-TWEAK ...) ; processing (DEFUN SKEIN-MAKE-CONFIGURATION-STRING ...) ; processing (DEFGENERIC SKEIN-VALUE ...) ; processing (DEFGENERIC SKEIN-TWEAK ...) ; processing (DEFGENERIC SKEIN-CFG ...) ; processing (DEFGENERIC SKEIN-BUFFER ...) ; processing (DEFGENERIC SKEIN-BUFFER-LENGTH ...) ; processing (DEFGENERIC SKEIN-CIPHER ...) ; processing (DECLAIM (INLINE SKEIN-UPDATE-CIPHER)) ; processing (DEFUN SKEIN-UPDATE-CIPHER ...) ; processing (DEFUN SKEIN-UBI ...) ; file: /usr/share/common-lisp/source/ironclad/src/digests/skein.lisp ; in: DEFUN SKEIN-UBI ; (FUNCALL IRONCLAD::ENCRYPTION-FUNCTION IRONCLAD::CIPHER IRONCLAD::BUFFER 0 ; IRONCLAD::CIPHERTEXT 0) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; ENCRYPTION-FUNCTION is not known to be a function ; (FUNCALL IRONCLAD::ENCRYPTION-FUNCTION IRONCLAD::CIPHER IRONCLAD::MESSAGE ; IRONCLAD::MESSAGE-START IRONCLAD::CIPHERTEXT 0) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; ENCRYPTION-FUNCTION is not known to be a function ; processing (DEFUN SKEIN-FINALIZE ...) ; processing (DEFUN SKEIN-COPY-CIPHER ...) ; processing (DEFSTRUCT (SKEIN256 # ...) ...) ; processing (DEFSTRUCT (SKEIN256/128 # ...)) ; processing (DEFSTRUCT (SKEIN256/160 # ...)) ; processing (DEFSTRUCT (SKEIN256/224 # ...)) ; processing (DEFMETHOD SKEIN-VALUE ...) ; processing (DEFMETHOD SKEIN-TWEAK ...) ; processing (DEFMETHOD SKEIN-CFG ...) ; processing (DEFMETHOD SKEIN-BUFFER ...) ; processing (DEFMETHOD SKEIN-BUFFER-LENGTH ...) ; processing (DEFMETHOD (SETF SKEIN-BUFFER-LENGTH) ...) ; processing (DEFMETHOD SKEIN-CIPHER ...) ; processing (DEFMETHOD (SETF SKEIN-CIPHER) ...) ; processing (DEFUN %REINITIALIZE-SKEIN256 ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFINE-DIGEST-UPDATER SKEIN256 ...) ; processing (DEFINE-DIGEST-FINALIZER (# # ...) ...); in: LAMBDA (#:EXPR #:ENV) ; (SECOND (FIRST IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; processing (DEFDIGEST SKEIN256 ...) ; processing (DEFDIGEST SKEIN256/128 ...) ; processing (DEFDIGEST SKEIN256/160 ...) ; processing (DEFDIGEST SKEIN256/224 ...) ; processing (DEFSTRUCT (SKEIN512 # ...) ...) ; processing (DEFSTRUCT (SKEIN512/128 # ...)) ; processing (DEFSTRUCT (SKEIN512/160 # ...)) ; processing (DEFSTRUCT (SKEIN512/224 # ...)) ; processing (DEFSTRUCT (SKEIN512/256 # ...)) ; processing (DEFSTRUCT (SKEIN512/384 # ...)) ; processing (DEFMETHOD SKEIN-VALUE ...) ; processing (DEFMETHOD SKEIN-TWEAK ...) ; processing (DEFMETHOD SKEIN-CFG ...) ; processing (DEFMETHOD SKEIN-BUFFER ...) ; processing (DEFMETHOD SKEIN-BUFFER-LENGTH ...) ; processing (DEFMETHOD (SETF SKEIN-BUFFER-LENGTH) ...) ; processing (DEFMETHOD SKEIN-CIPHER ...) ; processing (DEFMETHOD (SETF SKEIN-CIPHER) ...) ; processing (DEFUN %REINITIALIZE-SKEIN512 ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFINE-DIGEST-UPDATER SKEIN512 ...) ; processing (DEFINE-DIGEST-FINALIZER (# # ...) ...); in: LAMBDA (#:EXPR #:ENV) ; (SECOND (FIRST IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; processing (DEFDIGEST SKEIN512 ...) ; processing (DEFDIGEST SKEIN512/128 ...) ; processing (DEFDIGEST SKEIN512/160 ...) ; processing (DEFDIGEST SKEIN512/224 ...) ; processing (DEFDIGEST SKEIN512/256 ...) ; processing (DEFDIGEST SKEIN512/384 ...) ; processing (DEFSTRUCT (SKEIN1024 # ...) ...) ; processing (DEFSTRUCT (SKEIN1024/384 # ...)) ; processing (DEFSTRUCT (SKEIN1024/512 # ...)) ; processing (DEFMETHOD SKEIN-VALUE ...) ; processing (DEFMETHOD SKEIN-TWEAK ...) ; processing (DEFMETHOD SKEIN-CFG ...) ; processing (DEFMETHOD SKEIN-BUFFER ...) ; processing (DEFMETHOD SKEIN-BUFFER-LENGTH ...) ; processing (DEFMETHOD (SETF SKEIN-BUFFER-LENGTH) ...) ; processing (DEFMETHOD SKEIN-CIPHER ...) ; processing (DEFMETHOD (SETF SKEIN-CIPHER) ...) ; processing (DEFUN %REINITIALIZE-SKEIN1024 ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFINE-DIGEST-UPDATER SKEIN1024 ...) ; processing (DEFINE-DIGEST-FINALIZER (# # ...) ...); in: LAMBDA (#:EXPR #:ENV) ; (SECOND (FIRST IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; processing (DEFDIGEST SKEIN1024 ...) ; processing (DEFDIGEST SKEIN1024/384 ...) ; processing (DEFDIGEST SKEIN1024/512 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/skein-tmpZCJK45JG.fasl ; compilation finished in 0:00:00.383 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/sm3.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (IN-IRONCLAD-READTABLE) ; processing (DEFCONST +SM3-INITIAL-STATE+ ...) ; processing (DEFMACRO SM3-P0 ...) ; processing (DEFMACRO SM3-P1 ...) ; processing (DEFMACRO SM3-EE ...) ; processing (DEFMACRO SM3-FF ...) ; processing (DEFMACRO SM3-GG ...) ; processing (DEFMACRO SM3-R1 ...) ; processing (DEFMACRO SM3-R2 ...) ; processing (DEFUN SM3-HASH ...) ; processing (DEFSTRUCT (SM3 # ...) ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFINE-DIGEST-UPDATER SM3 ...) ; file: /usr/share/common-lisp/source/ironclad/src/digests/sm3.lisp ; in: DEFINE-DIGEST-UPDATER SM3 ; (INCF IRONCLAD::START 64) ; --> THE ; ==> ; (+ 64 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 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (INCF IRONCLAD::START IRONCLAD::N) ; ; note: doing signed word to integer coercion (cost 20) to START ; processing (DEFINE-DIGEST-FINALIZER (SM3 32) ...); in: LAMBDA (#:EXPR #:ENV) ; (LIST* 'ETYPECASE IRONCLAD::STATE (REVERSE IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; file: /usr/share/common-lisp/source/ironclad/src/digests/sm3.lisp ; in: DEFINE-DIGEST-FINALIZER (SM3 32) ; (* 8 (IRONCLAD::SM3-COUNT IRONCLAD::STATE)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (MOD 147573952589676412921) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do #1# (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (MOD 147573952589676412921) . #2#), not a (VALUES ; FIXNUM ; &REST ; T). ; etc. ; (SETF (IRONCLAD:UB64REF/BE IRONCLAD::BUFFER 56) IRONCLAD::BIT-COUNT) ; --> FUNCALL ; ==> ; 1 ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline (unsigned-byte 64) comparison (cost 5) because: ; The first argument is a (MOD 147573952589676412921), not a (UNSIGNED-BYTE ; 64). ; (* 8 (IRONCLAD::SM3-COUNT IRONCLAD::STATE)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of GENERIC-* ; processing (DEFDIGEST SM3 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/sm3-tmpQC4TENAZ.fasl ; compilation finished in 0:00:01.779 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/streebog.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (IN-IRONCLAD-READTABLE) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DECLAIM (INLINE STREEBOG-AX) ...) ; processing (DEFUN STREEBOG-AX ...) ; file: /usr/share/common-lisp/source/ironclad/src/digests/streebog.lisp ; in: DEFUN STREEBOG-AX ; (DEFUN IRONCLAD::STREEBOG-AX (IRONCLAD::I IRONCLAD::J) ; (DECLARE (TYPE (INTEGER 0 7) IRONCLAD::I) ; (TYPE (INTEGER 0 255) IRONCLAD::J) ; (OPTIMIZE (SPEED 3) (SPACE 0) (SAFETY 0) (DEBUG 0))) ; (LET ((IRONCLAD::CONSTANTS (LOAD-TIME-VALUE IRONCLAD::+STREEBOG-AX+ T))) ; (DECLARE (TYPE (SIMPLE-ARRAY # #) IRONCLAD::CONSTANTS)) ; (AREF IRONCLAD::CONSTANTS IRONCLAD::I IRONCLAD::J))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IRONCLAD::STREEBOG-AX ; (IRONCLAD::I IRONCLAD::J) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (DECLARE (TYPE (INTEGER 0 7) IRONCLAD::I) ; (TYPE (INTEGER 0 255) IRONCLAD::J) ; (OPTIMIZE (SPEED 3) (SPACE 0) (SAFETY 0) (DEBUG 0))) ; (BLOCK IRONCLAD::STREEBOG-AX ; (LET ((IRONCLAD::CONSTANTS #)) ; (DECLARE (TYPE # IRONCLAD::CONSTANTS)) ; (AREF IRONCLAD::CONSTANTS IRONCLAD::I IRONCLAD::J)))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; processing (DEFMACRO STREEBOG-X ...) ; processing (DEFMACRO STREEBOG-XLPS ...) ; processing (DEFMACRO STREEBOG-ROUND ...) ; processing (DEFUN STREEBOG-ADD512 ...) ; processing (DEFUN STREEBOG-G ...) ; processing (DEFSTRUCT (STREEBOG # ...) ...) ; processing (DEFSTRUCT (STREEBOG/256 # ...)) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFUN STREEBOG-STAGE2 ...) ; file: /usr/share/common-lisp/source/ironclad/src/digests/streebog.lisp ; in: DEFUN STREEBOG-STAGE2 ; (+ IRONCLAD::START (* IRONCLAD::I 8)) ; ; 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: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; etc. ; processing (DEFUN STREEBOG-PAD ...) ; processing (DEFUN STREEBOG-STAGE3 ...) ; processing (DEFINE-DIGEST-UPDATER STREEBOG ...) ; file: /usr/share/common-lisp/source/ironclad/src/digests/streebog.lisp ; in: DEFINE-DIGEST-UPDATER STREEBOG ; (INCF IRONCLAD::START 64) ; --> THE ; ==> ; (+ 64 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 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (INCF IRONCLAD::START IRONCLAD::N) ; ; note: doing signed word to integer coercion (cost 20) to START ; processing (DEFINE-DIGEST-FINALIZER (# #) ...); in: LAMBDA (#:EXPR #:ENV) ; (SECOND (FIRST IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; processing (DEFDIGEST STREEBOG ...) ; processing (DEFDIGEST STREEBOG/256 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/streebog-tmp4HJFFDY3.fasl ; compilation finished in 0:00:00.732 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/tiger.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFTYPE TIGER-STATE-BLOCK ...) ; processing (DEFTYPE TIGER-SBOX ...) ; processing (DEFINE-DIGEST-REGISTERS (TIGER :ENDIAN ...) ...) ; processing (DEFCONST +PRISTINE-TIGER-REGISTERS+ ...) ; processing (DECLAIM (TYPE TIGER-SBOX ...)) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; file: /usr/share/common-lisp/source/ironclad/src/digests/tiger.lisp ; in: DEFUN MAKE-TIGER-SBOX ; (MAKE-ARRAY IRONCLAD::N-ELEMENTS :ELEMENT-TYPE '(UNSIGNED-BYTE 32) ; :INITIAL-CONTENTS IRONCLAD::ELEMENTS) ; ; note: deleting unreachable code ; processing (DEFCONST TIGER-T1 ...) ; processing (DEFCONST TIGER-T2 ...) ; processing (DEFCONST TIGER-T3 ...) ; processing (DEFCONST TIGER-T4 ...) ; processing (DEFUN UPDATE-TIGER-BLOCK ...) ; processing (DEFSTRUCT (TIGER # ...) ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFINE-DIGEST-UPDATER TIGER ...) ; processing (DEFINE-DIGEST-FINALIZER (TIGER 24) ...); in: LAMBDA (#:EXPR #:ENV) ; (LIST* 'ETYPECASE IRONCLAD::STATE (REVERSE IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; file: /usr/share/common-lisp/source/ironclad/src/digests/tiger.lisp ; in: DEFINE-DIGEST-FINALIZER (TIGER 24) ; (* 8 (IRONCLAD::TIGER-AMOUNT IRONCLAD::STATE)) ; ; 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 ; 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. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFDIGEST TIGER ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/tiger-tmp78H81ZL.fasl ; compilation finished in 0:00:00.178 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/tree-hash.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFPARAMETER *LEAF-BYTE* ...) ; processing (DEFPARAMETER *INTERNAL-BYTE* ...) ; processing (DEFUN MAKE-TREE-HASH-LEAF-DIGEST ...) ; processing (DEFSTRUCT (TREE-HASH # ...) ...) ; processing (DEFUN %MAKE-TREE-HASH-DIGEST ...) ; processing (DEFUN MAKE-TIGER-TREE-HASH ...) ; processing (DEFMETHOD BLOCK-LENGTH ...) ; processing (DEFMETHOD DIGEST-LENGTH ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFINE-DIGEST-UPDATER TREE-HASH ...) ; file: /usr/share/common-lisp/source/ironclad/src/digests/tree-hash.lisp ; in: DEFINE-DIGEST-UPDATER TREE-HASH ; (+ IRONCLAD::START IRONCLAD::CURRENT-LENGTH) ; ; 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: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN UPDATE-TREE-HASH-BRANCH ...) ; processing (DEFUN MERGE-TREE-HASH-BRANCH ...) ; processing (DEFUN COMBINE-HASH-TREE-DIGESTS ...) ; processing (DEFMETHOD PRODUCE-DIGEST ...) ; processing (SETF (GET # ...) ...) ; processing (SETF (GET # ...) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/tree-hash-tmp86K6JU7V.fasl ; compilation finished in 0:00:00.292 ; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/whirlpool.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFCONST +PRISTINE-WHIRLPOOL-REGISTERS+ ...) ; processing (DEFUN WHIRLPOOLREGS-DIGEST ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL) ...) ; processing (DECLAIM (TYPE # ...)) ; processing (DEFCONST +RC+ ...) ; processing (DECLAIM (TYPE # ...)) ; processing (DEFCONST +C-EVEN+ ...) ; processing (DEFCONST +C-ODD+ ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFMACRO LOOKUP-IN-C ...) ; processing (DEFUN UPDATE-WHIRLPOOL-BLOCK ...) ; processing (DEFSTRUCT (WHIRLPOOL # ...) ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COPY-DIGEST ...) ; processing (DEFINE-DIGEST-UPDATER WHIRLPOOL ...) ; processing (DEFINE-DIGEST-FINALIZER (WHIRLPOOL 64) ...); in: LAMBDA (#:EXPR #:ENV) ; (LIST* 'ETYPECASE IRONCLAD::STATE (REVERSE IRONCLAD::CLAUSES)) ; ; note: deleting unreachable code ; file: /usr/share/common-lisp/source/ironclad/src/digests/whirlpool.lisp ; in: DEFINE-DIGEST-FINALIZER (WHIRLPOOL 64) ; (* 8 (IRONCLAD::WHIRLPOOL-AMOUNT IRONCLAD::STATE)) ; ; 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 ; 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. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (LDB (BYTE 32 (- 256 (* 32 (1+ IRONCLAD::I)))) IRONCLAD::TOTAL-LENGTH) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (INTEGER -224 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -224 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFDIGEST WHIRLPOOL ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/digests/whirlpool-tmp2L6X9BVQ.fasl ; compilation finished in 0:00:00.475 ; compiling file "/usr/share/common-lisp/source/ironclad/src/macs/blake2-mac.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS BLAKE2-MAC ...) ; processing (DEFUN MAKE-BLAKE2-MAC ...) ; processing (DEFMETHOD COPY-BLAKE2-MAC ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFUN UPDATE-BLAKE2-MAC ...) ; processing (DEFUN BLAKE2-MAC-DIGEST ...) ; processing (DEFMAC BLAKE2-MAC ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/macs/blake2-mac-tmpES5DCUFN.fasl ; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/ironclad/src/macs/blake2s-mac.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS BLAKE2S-MAC ...) ; processing (DEFUN MAKE-BLAKE2S-MAC ...) ; processing (DEFMETHOD COPY-BLAKE2S-MAC ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFUN UPDATE-BLAKE2S-MAC ...) ; processing (DEFUN BLAKE2S-MAC-DIGEST ...) ; processing (DEFMAC BLAKE2S-MAC ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/macs/blake2s-mac-tmpDVKOEP6R.fasl ; compilation finished in 0:00:00.027 ; compiling file "/usr/share/common-lisp/source/ironclad/src/macs/cmac.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS CMAC ...) ; processing (DEFUN MAKE-CMAC ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFUN UPDATE-CMAC ...) ; file: /usr/share/common-lisp/source/ironclad/src/macs/cmac.lisp ; in: DEFUN UPDATE-CMAC ; (< 0 IRONCLAD::BUFFER-INDEX IRONCLAD:BLOCK-LENGTH) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT (0.0d0)) (SINGLE-FLOAT (0.0)) ; (RATIONAL (0))), not a FLOAT. ; (- IRONCLAD:BLOCK-LENGTH IRONCLAD::BUFFER-INDEX) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a (OR (DOUBLE-FLOAT (0.0d0) (4.611686018427388d18)) ; (SINGLE-FLOAT (0.0) (4.611686e18)) ; (RATIONAL (0) ; (4611686018427387900))), not a FLOAT. ; (= IRONCLAD::BUFFER-INDEX IRONCLAD:BLOCK-LENGTH) ; ; 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 open code because: The operands might not be the same type. ; (FUNCALL IRONCLAD::ENCRYPTION-FUNCTION IRONCLAD::CIPHER IRONCLAD::BUFFER 0 ; IRONCLAD::BUFFER 0) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; ENCRYPTION-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; ENCRYPTION-FUNCTION is not known to be a function ; (MIN IRONCLAD::REMAINING (- IRONCLAD:BLOCK-LENGTH IRONCLAD::BUFFER-INDEX)) ; ; note: unable to open code because: The operands might not be the same type. ; (< 0 IRONCLAD::BUFFER-INDEX IRONCLAD:BLOCK-LENGTH) ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (OR (DOUBLE-FLOAT (0.0d0)) (SINGLE-FLOAT (0.0)) ; (RATIONAL (0))), not a FIXNUM. ; (- IRONCLAD:BLOCK-LENGTH IRONCLAD::BUFFER-INDEX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR ; (DOUBLE-FLOAT #1=(0.0d0) ; #2=(4.611686018427388d18)) ; (SINGLE-FLOAT #3=(0.0) #4=(4.611686e18)) ; (RATIONAL #5=(0) #6=(4611686018427387900))), not a FIXNUM. ; The result is a (VALUES ; (OR ; (RATIONAL #7=(-4611686018427387900) ; #8=(4611686018427387900)) ; (SINGLE-FLOAT -4.611686e18 4.611686e18) ; (DOUBLE-FLOAT -4.611686018427388d18 ; 4.611686018427388d18)) ; . #9=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR (DOUBLE-FLOAT #1# #2#) ; (SINGLE-FLOAT #3# #4#) (RATIONAL #5# #6#)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR (RATIONAL #7# #8#) ; (SINGLE-FLOAT -4.611686e18 4.611686e18) ; (DOUBLE-FLOAT -4.611686018427388d18 ; 4.611686018427388d18)) ; . #9#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MIN IRONCLAD::REMAINING (- IRONCLAD:BLOCK-LENGTH IRONCLAD::BUFFER-INDEX)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a (OR ; (RATIONAL (-4611686018427387900) ; (4611686018427387900)) ; (SINGLE-FLOAT -4.611686e18 4.611686e18) ; (DOUBLE-FLOAT -4.611686018427388d18 ; 4.611686018427388d18)), not a FIXNUM. ; (DECF IRONCLAD::REMAINING) ; --> THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * 4611686018427387900), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387899) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER * 4611686018427387900), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387899) . #2#), not a (VALUES ; FIXNUM ; &REST ; T). ; etc. ; (PLUSP IRONCLAD::REMAINING) ; ; note: forced to do FAST-IF->-ZERO (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER * 4611686018427387900), not a FIXNUM. ; (> IRONCLAD::REMAINING IRONCLAD:BLOCK-LENGTH) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER * 4611686018427387900), not a FIXNUM. ; (PLUSP IRONCLAD::REMAINING) ; ; note: forced to do FAST-IF->-ZERO (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER * 4611686018427387900), not a FIXNUM. ; processing (DEFUN CMAC-DIGEST ...) ; processing (DEFMAC CMAC ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/macs/cmac-tmp4TWTKS75.fasl ; compilation finished in 0:00:00.030 ; compiling file "/usr/share/common-lisp/source/ironclad/src/macs/hmac.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS HMAC ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN MAKE-HMAC ...) ; processing (DEFMETHOD REINITIALIZE-INSTANCE ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; file: /usr/share/common-lisp/source/ironclad/src/macs/hmac.lisp ; in: DEFMETHOD SHARED-INITIALIZE :AFTER (HMAC T) ; (MAKE-ARRAY IRONCLAD:BLOCK-LENGTH :ELEMENT-TYPE '(UNSIGNED-BYTE 8) ; :INITIAL-ELEMENT 0) ; ; note: could not stack allocate: ; (MAKE-ARRAY BLOCK-LENGTH :ELEMENT-TYPE '(UNSIGNED-BYTE 8) ; :INITIAL-ELEMENT 0) ; (MAKE-ARRAY IRONCLAD:BLOCK-LENGTH :ELEMENT-TYPE '(UNSIGNED-BYTE 8) ; :INITIAL-ELEMENT 92) ; ; note: could not stack allocate: ; (MAKE-ARRAY BLOCK-LENGTH :ELEMENT-TYPE '(UNSIGNED-BYTE 8) ; :INITIAL-ELEMENT 92) ; (MAKE-ARRAY IRONCLAD:BLOCK-LENGTH :ELEMENT-TYPE '(UNSIGNED-BYTE 8) ; :INITIAL-ELEMENT 54) ; ; note: could not stack allocate: ; (MAKE-ARRAY BLOCK-LENGTH :ELEMENT-TYPE '(UNSIGNED-BYTE 8) ; :INITIAL-ELEMENT 54) ; processing (DEFUN UPDATE-HMAC ...) ; processing (DEFUN HMAC-DIGEST ...) ; processing (DEFMAC HMAC ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/macs/hmac-tmpXSOQ2I78.fasl ; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/ironclad/src/macs/gmac.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS GMAC ...) ; processing (DEFUN MAKE-GMAC ...) ; processing (DECLAIM (INLINE GMAC-SWAP-16)) ; processing (DEFUN GMAC-SWAP-16 ...) ; processing (DEFUN GHASH ...) ; processing (DEFUN J0 ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFUN GMAC-MUL ...) ; processing (DEFUN UPDATE-GMAC ...) ; file: /usr/share/common-lisp/source/ironclad/src/macs/gmac.lisp ; in: DEFUN UPDATE-GMAC ; (SETF (IRONCLAD::GMAC-TOTAL-LENGTH IRONCLAD::MAC) IRONCLAD::TOTAL-LENGTH ; (IRONCLAD::GMAC-BUFFER-LENGTH IRONCLAD::MAC) IRONCLAD::BUFFER-LENGTH) ; --> SETF LET* ; ==> ; IRONCLAD::TOTAL-LENGTH ; ; note: doing unsigned word to integer coercion (cost 20) from TOTAL-LENGTH ; processing (DEFUN GMAC-DIGEST ...) ; processing (DEFMAC GMAC ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/macs/gmac-tmpUA03GLW1.fasl ; compilation finished in 0:00:00.913 ; compiling file "/usr/share/common-lisp/source/ironclad/src/macs/poly1305.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS POLY1305 ...) ; processing (DEFUN MAKE-POLY1305 ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFUN POLY1305-PROCESS-FULL-BLOCKS ...) ; processing (DEFUN UPDATE-POLY1305 ...) ; processing (DEFUN POLY1305-DIGEST ...) ; processing (DEFMAC POLY1305 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/macs/poly1305-tmpO0OW34V4.fasl ; compilation finished in 0:00:00.066 ; compiling file "/usr/share/common-lisp/source/ironclad/src/macs/siphash.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS SIPHASH ...) ; processing (DEFUN MAKE-SIPHASH ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFMACRO SIPHASH-ROUND ...) ; processing (DEFUN SIPHASH-COMPRESS ...) ; processing (DEFUN SIPHASH-FINALIZE ...) ; processing (DEFUN UPDATE-SIPHASH ...) ; processing (DEFUN SIPHASH-DIGEST ...) ; file: /usr/share/common-lisp/source/ironclad/src/macs/siphash.lisp ; in: DEFUN SIPHASH-DIGEST ; (LET ((IRONCLAD::BUFFER (COPY-SEQ (IRONCLAD::SIPHASH-BUFFER IRONCLAD::MAC))) ; (IRONCLAD::BUFFER-LENGTH ; (IRONCLAD::SIPHASH-BUFFER-LENGTH IRONCLAD::MAC)) ; (IRONCLAD::STATE (COPY-SEQ (IRONCLAD::SIPHASH-STATE IRONCLAD::MAC))) ; (IRONCLAD::COMPRESSION-ROUNDS ; (IRONCLAD::SIPHASH-COMPRESSION-ROUNDS IRONCLAD::MAC)) ; (IRONCLAD::FINALIZATION-ROUNDS ; (IRONCLAD::SIPHASH-FINALIZATION-ROUNDS IRONCLAD::MAC)) ; (IRONCLAD:DIGEST-LENGTH ; (IRONCLAD::SIPHASH-DIGEST-LENGTH IRONCLAD::MAC)) ; (IRONCLAD::DATA-LENGTH (IRONCLAD::SIPHASH-DATA-LENGTH IRONCLAD::MAC))) ; (DECLARE (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (8)) IRONCLAD::BUFFER) ; (TYPE (INTEGER 0 8) IRONCLAD::BUFFER-LENGTH) ; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (4)) IRONCLAD::STATE) ; (TYPE FIXNUM IRONCLAD::COMPRESSION-ROUNDS ; IRONCLAD::FINALIZATION-ROUNDS IRONCLAD:DIGEST-LENGTH ; IRONCLAD::DATA-LENGTH) ; (DYNAMIC-EXTENT IRONCLAD::BUFFER IRONCLAD::STATE)) ; (FILL IRONCLAD::BUFFER 0 :START IRONCLAD::BUFFER-LENGTH) ; (SETF (AREF IRONCLAD::BUFFER 7) (MOD IRONCLAD::DATA-LENGTH 256)) ; (IRONCLAD::SIPHASH-COMPRESS IRONCLAD::STATE IRONCLAD::BUFFER 0 8 ; IRONCLAD::DATA-LENGTH IRONCLAD::COMPRESSION-ROUNDS) ; (LET ((IRONCLAD::TAG (MAKE-ARRAY IRONCLAD:DIGEST-LENGTH :ELEMENT-TYPE '#))) ; (IRONCLAD::SIPHASH-FINALIZE IRONCLAD::STATE IRONCLAD::FINALIZATION-ROUNDS ; IRONCLAD::TAG) ; IRONCLAD::TAG)) ; --> LET VALUES ; ==> ; 1 ; ; note: could not stack allocate #:G38 in: ; (LET ((BUFFER (COPY-SEQ (SIPHASH-BUFFER MAC))) ; (BUFFER-LENGTH (SIPHASH-BUFFER-LENGTH MAC)) ; (STATE (COPY-SEQ (SIPHASH-STATE MAC))) ; (COMPRESSION-ROUNDS (SIPHASH-COMPRESSION-ROUNDS MAC)) ; (FINALIZATION-ROUNDS (SIPHASH-FINALIZATION-ROUNDS MAC)) ; (DIGEST-LENGTH (SIPHASH-DIGEST-LENGTH MAC)) ; (DATA-LENGTH (SIPHASH-DATA-LENGTH MAC))) ; (DECLARE (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (8)) BUFFER) ; (TYPE (INTEGER 0 8) BUFFER-LENGTH) ; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (4)) STATE) ; (TYPE FIXNUM COMPRESSION-ROUNDS FINALIZATION-ROUNDS ; DIGEST-LENGTH DATA-LENGTH) ; (DYNAMIC-EXTENT BUFFER STATE)) ; (FILL BUFFER 0 :START BUFFER-LENGTH) ; (SETF (AREF BUFFER 7) (MOD DATA-LENGTH 256)) ; (SIPHASH-COMPRESS STATE BUFFER 0 8 DATA-LENGTH COMPRESSION-ROUNDS) ; (LET ((TAG ; (MAKE-ARRAY DIGEST-LENGTH :ELEMENT-TYPE '(UNSIGNED-BYTE 8)))) ; (SIPHASH-FINALIZE STATE FINALIZATION-ROUNDS TAG) ; TAG)) ; ; note: could not stack allocate #:G34 in: ; (LET ((BUFFER (COPY-SEQ (SIPHASH-BUFFER MAC))) ; (BUFFER-LENGTH (SIPHASH-BUFFER-LENGTH MAC)) ; (STATE (COPY-SEQ (SIPHASH-STATE MAC))) ; (COMPRESSION-ROUNDS (SIPHASH-COMPRESSION-ROUNDS MAC)) ; (FINALIZATION-ROUNDS (SIPHASH-FINALIZATION-ROUNDS MAC)) ; (DIGEST-LENGTH (SIPHASH-DIGEST-LENGTH MAC)) ; (DATA-LENGTH (SIPHASH-DATA-LENGTH MAC))) ; (DECLARE (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (8)) BUFFER) ; (TYPE (INTEGER 0 8) BUFFER-LENGTH) ; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (4)) STATE) ; (TYPE FIXNUM COMPRESSION-ROUNDS FINALIZATION-ROUNDS ; DIGEST-LENGTH DATA-LENGTH) ; (DYNAMIC-EXTENT BUFFER STATE)) ; (FILL BUFFER 0 :START BUFFER-LENGTH) ; (SETF (AREF BUFFER 7) (MOD DATA-LENGTH 256)) ; (SIPHASH-COMPRESS STATE BUFFER 0 8 DATA-LENGTH COMPRESSION-ROUNDS) ; (LET ((TAG ; (MAKE-ARRAY DIGEST-LENGTH :ELEMENT-TYPE '(UNSIGNED-BYTE 8)))) ; (SIPHASH-FINALIZE STATE FINALIZATION-ROUNDS TAG) ; TAG)) ; processing (DEFMAC SIPHASH ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/macs/siphash-tmpU8KQLETJ.fasl ; compilation finished in 0:00:00.068 ; compiling file "/usr/share/common-lisp/source/ironclad/src/macs/skein-mac.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS SKEIN-MAC ...) ; processing (DEFUN MAKE-SKEIN-MAC ...) ; processing (DEFMETHOD COPY-SKEIN-MAC ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFUN UPDATE-SKEIN-MAC ...) ; processing (DEFUN SKEIN-MAC-DIGEST ...) ; processing (DEFMAC SKEIN-MAC ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/macs/skein-mac-tmpLBWGBOTB.fasl ; compilation finished in 0:00:00.027 ; compiling file "/usr/share/common-lisp/source/ironclad/src/prng/generator.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFVAR +FORTUNA-CIPHER-BLOCK-SIZE+ ...) ; processing (DEFCLASS FORTUNA-GENERATOR ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD PRNG-RESEED ...) ; processing (DEFUN %GENERATE-BLOCKS ...) ; processing (DEFMETHOD PRNG-RANDOM-DATA ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/prng/generator-tmpRX2XGI9U.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/ironclad/src/prng/fortuna.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFPARAMETER +MIN-POOL-SIZE+ ...) ; processing (DEFPARAMETER +FORTUNA-SEED-LENGTH+ ...) ; processing (DEFCLASS FORTUNA-POOL ...) ; processing (DEFCLASS FORTUNA-PRNG ...) ; processing (DEFMETHOD PRNG-RANDOM-DATA ...) ; processing (DEFUN ADD-RANDOM-EVENT ...) ; processing (DEFMETHOD PRNG-SEED-LENGTH ...) ; processing (DEFMETHOD PRNG-RESEED ...) ; processing (DEFUN MAKE-FORTUNA ...) ; processing (DEFMETHOD MAKE-PRNG ...) ; processing (DEFMETHOD MAKE-PRNG ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/prng/fortuna-tmpT2A3PQL9.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/ironclad/src/aead/eax.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS EAX ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFMETHOD PROCESS-ASSOCIATED-DATA ...) ; processing (DEFMETHOD PRODUCE-TAG ...) ; processing (DEFMETHOD ENCRYPT ...) ; processing (DEFMETHOD DECRYPT ...) ; processing (DEFMETHOD ENCRYPT-MESSAGE ...) ; processing (DEFMETHOD DECRYPT-MESSAGE ...) ; processing (DEFAEAD EAX) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/aead/eax-tmpOVHYA3BO.fasl ; compilation finished in 0:00:00.026 ; compiling file "/usr/share/common-lisp/source/ironclad/src/aead/etm.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS ETM ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFMETHOD PROCESS-ASSOCIATED-DATA ...) ; processing (DEFMETHOD PRODUCE-TAG ...) ; processing (DEFMETHOD ENCRYPT ...) ; processing (DEFMETHOD DECRYPT ...) ; processing (DEFMETHOD ENCRYPT-MESSAGE ...) ; processing (DEFMETHOD DECRYPT-MESSAGE ...) ; processing (DEFAEAD ETM) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/aead/etm-tmpLT3TYWCE.fasl ; compilation finished in 0:00:00.023 ; compiling file "/usr/share/common-lisp/source/ironclad/src/aead/gcm.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS GCM ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFMETHOD PROCESS-ASSOCIATED-DATA ...) ; processing (DEFMETHOD PRODUCE-TAG ...) ; processing (DEFMETHOD ENCRYPT ...) ; processing (DEFMETHOD DECRYPT ...) ; processing (DEFMETHOD ENCRYPT-MESSAGE ...) ; processing (DEFMETHOD DECRYPT-MESSAGE ...) ; processing (DEFAEAD GCM) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/aead/gcm-tmp3YF2HENI.fasl ; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/ironclad/src/kdf/argon2.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS ARGON2 ...) ; processing (DEFCLASS ARGON2I ...) ; processing (DEFCLASS ARGON2D ...) ; processing (DEFCONSTANT +ARGON2-BLOCK-SIZE+ ...) ; processing (DEFTYPE ARGON2-BLOCK ...) ; processing (DEFUN ARGON2-LOAD-BLOCK ...) ; processing (DEFUN ARGON2-STORE-BLOCK ...) ; processing (DEFUN ARGON2-COPY-BLOCK ...) ; processing (DEFUN ARGON2-XOR-BLOCK ...) ; processing (DEFUN ARGON2-UPDATE-DIGESTER-32 ...) ; processing (DEFUN ARGON2-EXTENDED-HASH ...) ; processing (DEFMACRO ARGON2-G ...) ; processing (DEFMACRO ARGON2-ROUND ...) ; processing (DEFUN ARGON2-G-ROUNDS ...) ; processing (DEFUN ARGON2-G-COPY ...) ; processing (DEFUN ARGON2-G-XOR ...) ; processing (DEFUN ARGON2-UNARY-G ...) ; processing (DEFUN ARGON2I-GIDX-REFRESH ...) ; processing (DEFUN ARGON2I-GIDX-INIT ...) ; processing (DEFUN ARGON2I-GIDX-NEXT ...) ; processing (DEFUN ARGON2D-GIDX-INIT ...) ; processing (DEFUN ARGON2D-GIDX-NEXT ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFMETHOD DERIVE-KEY ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/kdf/argon2-tmp9EEV8FN4.fasl ; compilation finished in 0:00:00.589 ; compiling file "/usr/share/common-lisp/source/ironclad/src/kdf/bcrypt.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS BCRYPT ...) ; processing (DEFCONST +BCRYPT-INITIAL-HASH+ ...) ; processing (DEFUN BCRYPT-EXPAND-KEY ...) ; processing (DEFUN BCRYPT-EKSBLOWFISH ...) ; processing (DEFMETHOD DERIVE-KEY ...) ; processing (DEFCLASS BCRYPT-PBKDF ...) ; processing (DEFCONST +BCRYPT-PBKDF-INITIAL-HASH+ ...) ; processing (DEFUN BCRYPT-HASH ...) ; processing (DEFMETHOD DERIVE-KEY ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/kdf/bcrypt-tmpDK25NJJO.fasl ; compilation finished in 0:00:00.035 ; compiling file "/usr/share/common-lisp/source/ironclad/src/kdf/hmac.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS HMAC-KDF ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFUN HKDF-EXTRACT ...) ; processing (DEFUN HKDF-EXPAND ...) ; processing (DEFUN HMAC-DERIVE-KEY ...) ; processing (DEFMETHOD DERIVE-KEY ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/kdf/hmac-tmpNMZ5RT9R.fasl ; compilation finished in 0:00:00.010 ; compiling file "/usr/share/common-lisp/source/ironclad/src/kdf/pkcs5.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS PBKDF1 ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFMETHOD DERIVE-KEY ...) ; processing (DEFCLASS PBKDF2 ...) ; processing (DEFUN PBKDF2-DERIVE-KEY ...) ; processing (DEFMETHOD DERIVE-KEY ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/kdf/pkcs5-tmp8K51P1O1.fasl ; compilation finished in 0:00:00.017 ; compiling file "/usr/share/common-lisp/source/ironclad/src/kdf/password-hash.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFUN MAKE-RANDOM-SALT ...) ; processing (DEFUN PBKDF2-HASH-PASSWORD ...) ; processing (DEFUN PBKDF2-HASH-PASSWORD-TO-COMBINED-STRING ...) ; processing (DEFUN PBKDF2-CHECK-PASSWORD ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/kdf/password-hash-tmpXAVJ8WEV.fasl ; compilation finished in 0:00:00.010 ; compiling file "/usr/share/common-lisp/source/ironclad/src/kdf/scrypt.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS SCRYPT-KDF ...) ; processing (DEFUN SCRYPT-VECTOR-SALSA ...) ; processing (DEFUN BLOCK-MIX ...) ; processing (DEFUN SMIX ...) ; processing (DEFMETHOD DERIVE-KEY ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/kdf/scrypt-tmpOZHFIU2N.fasl ; compilation finished in 0:00:00.026 ; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/dsa.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS DSA-KEY ...) ; processing (DEFCLASS DSA-PUBLIC-KEY ...) ; processing (DEFCLASS DSA-PRIVATE-KEY ...) ; processing (DEFUN DSA-KEY-P ...) ; processing (DEFUN DSA-KEY-Q ...) ; processing (DEFUN DSA-KEY-G ...) ; processing (DEFMETHOD MAKE-PUBLIC-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PUBLIC-KEY ...) ; processing (DEFMETHOD MAKE-PRIVATE-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PRIVATE-KEY ...) ; processing (DEFMETHOD GENERATE-KEY-PAIR ...) ; processing (DEFMETHOD GENERATE-SIGNATURE-NONCE ...) ; processing (DEFMETHOD MAKE-SIGNATURE ...) ; processing (DEFMETHOD DESTRUCTURE-SIGNATURE ...) ; processing (DEFMETHOD SIGN-MESSAGE ...) ; processing (DEFMETHOD VERIFY-SIGNATURE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/public-key/dsa-tmpJD9SCIW3.fasl ; compilation finished in 0:00:00.035 ; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/rsa.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS RSA-KEY ...) ; processing (DEFCLASS RSA-PUBLIC-KEY ...) ; processing (DEFCLASS RSA-PRIVATE-KEY ...) ; processing (DEFMETHOD MAKE-PUBLIC-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PUBLIC-KEY ...) ; processing (DEFMETHOD MAKE-PRIVATE-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PRIVATE-KEY ...) ; processing (DEFMETHOD GENERATE-KEY-PAIR ...) ; processing (DEFUN RSA-CORE ...) ; processing (DEFMETHOD MAKE-MESSAGE ...) ; processing (DEFMETHOD DESTRUCTURE-MESSAGE ...) ; processing (DEFMETHOD ENCRYPT-MESSAGE ...) ; processing (DEFMETHOD DECRYPT-MESSAGE ...) ; processing (DEFMETHOD MAKE-SIGNATURE ...) ; processing (DEFMETHOD DESTRUCTURE-SIGNATURE ...) ; processing (DEFMETHOD SIGN-MESSAGE ...) ; processing (DEFMETHOD VERIFY-SIGNATURE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/public-key/rsa-tmpICVK4HSI.fasl ; compilation finished in 0:00:00.029 ; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/elgamal.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS ELGAMAL-KEY ...) ; processing (DEFCLASS ELGAMAL-PUBLIC-KEY ...) ; processing (DEFCLASS ELGAMAL-PRIVATE-KEY ...) ; processing (DEFUN ELGAMAL-KEY-P ...) ; processing (DEFUN ELGAMAL-KEY-G ...) ; processing (DEFMETHOD MAKE-PUBLIC-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PUBLIC-KEY ...) ; processing (DEFMETHOD MAKE-PRIVATE-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PRIVATE-KEY ...) ; processing (DEFMETHOD GENERATE-KEY-PAIR ...) ; processing (DEFMETHOD GENERATE-SIGNATURE-NONCE ...) ; processing (DEFMETHOD GENERATE-SIGNATURE-NONCE ...) ; processing (DEFMETHOD MAKE-MESSAGE ...) ; processing (DEFMETHOD DESTRUCTURE-MESSAGE ...) ; processing (DEFMETHOD ENCRYPT-MESSAGE ...) ; processing (DEFMETHOD DECRYPT-MESSAGE ...) ; processing (DEFMETHOD MAKE-SIGNATURE ...) ; processing (DEFMETHOD DESTRUCTURE-SIGNATURE ...) ; processing (DEFMETHOD SIGN-MESSAGE ...) ; processing (DEFMETHOD VERIFY-SIGNATURE ...) ; processing (DEFMETHOD DIFFIE-HELLMAN ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/public-key/elgamal-tmpA5CK3QHN.fasl ; compilation finished in 0:00:00.043 ; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/curve25519.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS CURVE25519-PUBLIC-KEY ...) ; processing (DEFCLASS CURVE25519-PRIVATE-KEY ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFCONSTANT +CURVE25519-BITS+ ...) ; processing (DEFCONSTANT +CURVE25519-P+ ...) ; processing (DEFCONSTANT +CURVE25519-A24+ ...) ; processing (DEFCONST +CURVE25519-G+ ...) ; processing (DEFMETHOD EC-SCALAR-INV ...) ; processing (DEFUN CURVE25519-DOUBLE-AND-ADD ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/curve25519.lisp ; in: DEFUN CURVE25519-DOUBLE-AND-ADD ; (+ IRONCLAD::X1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (+ IRONCLAD::X1 IRONCLAD::Z1) IRONCLAD::+CURVE25519-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (* IRONCLAD::T1 IRONCLAD::T1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- IRONCLAD::X1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (- IRONCLAD::X1 IRONCLAD::Z1) IRONCLAD::+CURVE25519-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (* IRONCLAD::T3 IRONCLAD::T3) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- IRONCLAD::T2 IRONCLAD::T4) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::T2 IRONCLAD::T4) IRONCLAD::+CURVE25519-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (+ IRONCLAD::X2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (+ IRONCLAD::X2 IRONCLAD::Z2) IRONCLAD::+CURVE25519-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (- IRONCLAD::X2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (- IRONCLAD::X2 IRONCLAD::Z2) IRONCLAD::+CURVE25519-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (* IRONCLAD::T1 IRONCLAD::T7) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::T3 IRONCLAD::T6) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (+ IRONCLAD::T8 IRONCLAD::T9) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- IRONCLAD::T8 IRONCLAD::T9) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::T8 IRONCLAD::T9) IRONCLAD::+CURVE25519-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (* IRONCLAD::T2 IRONCLAD::T4) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::T5 IRONCLAD::+CURVE25519-A24+) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 7043980164573656116202093731033511498437972977164912432212323207953379415383793369) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 7043980164573656116202093731033511498437972977164912432212323207953379415383793369) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (+ IRONCLAD::T4 IRONCLAD::T12) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::T5 IRONCLAD::T13) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::T10 IRONCLAD::T10) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::T11 IRONCLAD::T11) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::X3 IRONCLAD::T14) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X3 IRONCLAD::T14) IRONCLAD::+CURVE25519-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; processing (DEFMETHOD EC-SCALAR-MULT ...) ; processing (DEFMETHOD EC-ENCODE-SCALAR ...) ; processing (DEFMETHOD EC-DECODE-SCALAR ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/curve25519.lisp ; in: DEFMETHOD EC-DECODE-SCALAR ((EQL :CURVE25519) T) ; (LDB (BYTE (1- IRONCLAD::+CURVE25519-BITS+) 0) ; (IRONCLAD:OCTETS-TO-INTEGER IRONCLAD::OCTETS :BIG-ENDIAN NIL)) ; ; 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 64) ; &REST T). ; (SETF (LDB (BYTE 3 0) IRONCLAD::X) 0) ; --> SETQ THE DPB ; ==> ; 1 ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; (SETF (LDB (BYTE 1 (- IRONCLAD::+CURVE25519-BITS+ 2)) IRONCLAD::X) 1) ; --> SETQ THE DPB ; ==> ; 1 ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; processing (DEFMETHOD EC-ENCODE-POINT ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/curve25519.lisp ; in: DEFMETHOD EC-ENCODE-POINT (CURVE25519-POINT) ; (* IRONCLAD::X (IRONCLAD::EC-SCALAR-INV :CURVE25519 IRONCLAD::Z)) ; ; 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)). ; (MOD (* IRONCLAD::X (IRONCLAD::EC-SCALAR-INV :CURVE25519 IRONCLAD::Z)) ; IRONCLAD::+CURVE25519-P+) ; ; 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 ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-57896044618658097711785492504343953926634992332820282019728792003956564819949) ; (57896044618658097711785492504343953926634992332820282019728792003956564819949))), 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 ; (-57896044618658097711785492504343953926634992332820282019728792003956564819949) ; (57896044618658097711785492504343953926634992332820282019728792003956564819949))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-57896044618658097711785492504343953926634992332820282019728792003956564819949) ; (57896044618658097711785492504343953926634992332820282019728792003956564819949))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (* IRONCLAD::X (IRONCLAD::EC-SCALAR-INV :CURVE25519 IRONCLAD::Z)) ; ; note: forced to do GENERIC-* (cost 30) ; 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 REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::X (IRONCLAD::EC-SCALAR-INV :CURVE25519 IRONCLAD::Z)) ; IRONCLAD::+CURVE25519-P+) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFMETHOD EC-DECODE-POINT ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/curve25519.lisp ; in: DEFMETHOD EC-DECODE-POINT ((EQL :CURVE25519) T) ; (LDB (BYTE (1- IRONCLAD::+CURVE25519-BITS+) 0) ; (IRONCLAD:OCTETS-TO-INTEGER IRONCLAD::OCTETS :BIG-ENDIAN NIL)) ; ; 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 64) ; &REST T). ; processing (DEFUN CURVE25519-PUBLIC-KEY ...) ; processing (DEFMETHOD MAKE-PUBLIC-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PUBLIC-KEY ...) ; processing (DEFMETHOD MAKE-PRIVATE-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PRIVATE-KEY ...) ; processing (DEFMETHOD GENERATE-KEY-PAIR ...) ; processing (DEFMETHOD DIFFIE-HELLMAN ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/public-key/curve25519-tmp5KE6HXAY.fasl ; compilation finished in 0:00:00.057 ; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/curve448.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS CURVE448-PUBLIC-KEY ...) ; processing (DEFCLASS CURVE448-PRIVATE-KEY ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFCONSTANT +CURVE448-BITS+ ...) ; processing (DEFCONSTANT +CURVE448-P+ ...) ; processing (DEFCONSTANT +CURVE448-A24+ ...) ; processing (DEFCONST +CURVE448-G+ ...) ; processing (DEFMETHOD EC-SCALAR-INV ...) ; processing (DEFUN CURVE448-DOUBLE-AND-ADD ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/curve448.lisp ; in: DEFUN CURVE448-DOUBLE-AND-ADD ; (+ IRONCLAD::X1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (+ IRONCLAD::X1 IRONCLAD::Z1) IRONCLAD::+CURVE448-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (- IRONCLAD::X1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (- IRONCLAD::X1 IRONCLAD::Z1) IRONCLAD::+CURVE448-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (- IRONCLAD::X2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (- IRONCLAD::X2 IRONCLAD::Z2) IRONCLAD::+CURVE448-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (* IRONCLAD::T1 IRONCLAD::T3) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (+ IRONCLAD::X2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (+ IRONCLAD::X2 IRONCLAD::Z2) IRONCLAD::+CURVE448-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (* IRONCLAD::T2 IRONCLAD::T5) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- IRONCLAD::T4 IRONCLAD::T6) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::T4 IRONCLAD::T6) IRONCLAD::+CURVE448-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (* IRONCLAD::T7 IRONCLAD::T7) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::X3 IRONCLAD::T8) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X3 IRONCLAD::T8) IRONCLAD::+CURVE448-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (+ IRONCLAD::T4 IRONCLAD::T6) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::T9 IRONCLAD::T9) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::T1 IRONCLAD::T1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::T2 IRONCLAD::T2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::T10 IRONCLAD::T11) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- IRONCLAD::T10 IRONCLAD::T11) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::T10 IRONCLAD::T11) IRONCLAD::+CURVE448-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (* IRONCLAD::T12 IRONCLAD::+CURVE448-A24+) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682479) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682479) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (+ IRONCLAD::T13 IRONCLAD::T10) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::T14 IRONCLAD::T12) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; processing (DEFMETHOD EC-SCALAR-MULT ...) ; processing (DEFMETHOD EC-ENCODE-SCALAR ...) ; processing (DEFMETHOD EC-DECODE-SCALAR ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/curve448.lisp ; in: DEFMETHOD EC-DECODE-SCALAR ((EQL :CURVE448) T) ; (LDB (BYTE IRONCLAD::+CURVE448-BITS+ 0) ; (IRONCLAD:OCTETS-TO-INTEGER IRONCLAD::OCTETS :BIG-ENDIAN NIL)) ; ; 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 64) ; &REST T). ; (SETF (LDB (BYTE 2 0) IRONCLAD::X) 0) ; --> SETQ THE DPB ; ==> ; 1 ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; (SETF (LDB (BYTE 1 (1- IRONCLAD::+CURVE448-BITS+)) IRONCLAD::X) 1) ; --> SETQ THE DPB ; ==> ; 1 ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; processing (DEFMETHOD EC-ENCODE-POINT ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/curve448.lisp ; in: DEFMETHOD EC-ENCODE-POINT (CURVE448-POINT) ; (* IRONCLAD::X (IRONCLAD::EC-SCALAR-INV :CURVE448 IRONCLAD::Z)) ; ; 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)). ; (MOD (* IRONCLAD::X (IRONCLAD::EC-SCALAR-INV :CURVE448 IRONCLAD::Z)) ; IRONCLAD::+CURVE448-P+) ; ; 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 ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439) ; (726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439))), 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 ; (-726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439) ; (726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439) ; (726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (* IRONCLAD::X (IRONCLAD::EC-SCALAR-INV :CURVE448 IRONCLAD::Z)) ; ; note: forced to do GENERIC-* (cost 30) ; 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 REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::X (IRONCLAD::EC-SCALAR-INV :CURVE448 IRONCLAD::Z)) ; IRONCLAD::+CURVE448-P+) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFMETHOD EC-DECODE-POINT ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/curve448.lisp ; in: DEFMETHOD EC-DECODE-POINT ((EQL :CURVE448) T) ; (LDB (BYTE IRONCLAD::+CURVE448-BITS+ 0) ; (IRONCLAD:OCTETS-TO-INTEGER IRONCLAD::OCTETS :BIG-ENDIAN NIL)) ; ; 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 64) ; &REST T). ; processing (DEFUN CURVE448-PUBLIC-KEY ...) ; processing (DEFMETHOD MAKE-PUBLIC-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PUBLIC-KEY ...) ; processing (DEFMETHOD MAKE-PRIVATE-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PRIVATE-KEY ...) ; processing (DEFMETHOD GENERATE-KEY-PAIR ...) ; processing (DEFMETHOD DIFFIE-HELLMAN ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/public-key/curve448-tmp5UBS1APN.fasl ; compilation finished in 0:00:00.041 ; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/ed25519.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS ED25519-PUBLIC-KEY ...) ; processing (DEFCLASS ED25519-PRIVATE-KEY ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFCONSTANT +ED25519-BITS+ ...) ; processing (DEFCONSTANT +ED25519-Q+ ...) ; processing (DEFCONSTANT +ED25519-L+ ...) ; processing (DEFCONSTANT +ED25519-D+ ...) ; processing (DEFCONSTANT +ED25519-I+ ...) ; processing (DEFCONST +ED25519-B+ ...) ; processing (DEFCONST +ED25519-POINT-AT-INFINITY+ ...) ; processing (DEFMETHOD EC-SCALAR-INV ...) ; processing (DEFUN ED25519-RECOVER-X ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/ed25519.lisp ; in: DEFUN ED25519-RECOVER-X ; (* IRONCLAD::UV3 ; (IRONCLAD:EXPT-MOD IRONCLAD::UV7 (/ (- IRONCLAD::+ED25519-Q+ 5) 8) ; IRONCLAD::+ED25519-Q+)) ; ; 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)). ; (MOD ; (* IRONCLAD::UV3 ; (IRONCLAD:EXPT-MOD IRONCLAD::UV7 (/ (- IRONCLAD::+ED25519-Q+ 5) 8) ; IRONCLAD::+ED25519-Q+)) ; IRONCLAD::+ED25519-Q+) ; ; 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 ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-57896044618658097711785492504343953926634992332820282019728792003956564819949) ; (57896044618658097711785492504343953926634992332820282019728792003956564819949))), 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 ; (-57896044618658097711785492504343953926634992332820282019728792003956564819949) ; (57896044618658097711785492504343953926634992332820282019728792003956564819949))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-57896044618658097711785492504343953926634992332820282019728792003956564819949) ; (57896044618658097711785492504343953926634992332820282019728792003956564819949))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (1- (* IRONCLAD::Y IRONCLAD::Y)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (MOD (1- (* IRONCLAD::Y IRONCLAD::Y)) IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (1+ IRONCLAD::U) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER 1 ; 57896044618658097711785492504343953926634992332820282019728792003956564819949) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER 1 ; 57896044618658097711785492504343953926634992332820282019728792003956564819949) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (* IRONCLAD::V IRONCLAD::V IRONCLAD::V) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 194064761537588616893622436057812819407110752139587076392381504753256369085595993672410662147087199368837878645229193663462561604848498377274709448929113913002071147247356829369437895575864476831150950995459034595069848999419699393) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 194064761537588616893622436057812819407110752139587076392381504753256369085595993672410662147087199368837878645229193663462561604848498377274709448929113913002071147247356829369437895575864476831150950995459034595069848999419699393) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::U IRONCLAD::V3) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::UV3 IRONCLAD::V3 IRONCLAD::V) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 194064761537588616893622436057812819407110752139587076392381504753256369085595993672410662147087199368837878645229193663462561604848498377274709448929113913002071147247356829369437895575864476831150950995459034595069848999419699393) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 194064761537588616893622436057812819407110752139587076392381504753256369085595993672410662147087199368837878645229193663462561604848498377274709448929113913002071147247356829369437895575864476831150950995459034595069848999419699393) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::UV3 ; (IRONCLAD:EXPT-MOD IRONCLAD::UV7 (/ (- IRONCLAD::+ED25519-Q+ 5) 8) ; IRONCLAD::+ED25519-Q+)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD ; (* IRONCLAD::UV3 ; (IRONCLAD:EXPT-MOD IRONCLAD::UV7 (/ (- IRONCLAD::+ED25519-Q+ 5) 8) ; IRONCLAD::+ED25519-Q+)) ; IRONCLAD::+ED25519-Q+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::V IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 194064761537588616893622436057812819407110752139587076392381504753256369085595993672410662147087199368837878645229193663462561604848498377274709448929113913002071147247356829369437895575864476831150950995459034595069848999419699393) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 194064761537588616893622436057812819407110752139587076392381504753256369085595993672410662147087199368837878645229193663462561604848498377274709448929113913002071147247356829369437895575864476831150950995459034595069848999419699393) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (= IRONCLAD::U ; (MOD (* IRONCLAD::V IRONCLAD::X IRONCLAD::X) IRONCLAD::+ED25519-Q+)) ; ; note: forced to do %EQL/INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; processing (DEFMETHOD EC-ADD ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/ed25519.lisp ; in: DEFMETHOD EC-ADD (ED25519-POINT ED25519-POINT) ; (- IRONCLAD::Y1 IRONCLAD::X1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (- IRONCLAD::Y2 IRONCLAD::X2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* (- IRONCLAD::Y1 IRONCLAD::X1) (- IRONCLAD::Y2 IRONCLAD::X2)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* (- IRONCLAD::Y1 IRONCLAD::X1) (- IRONCLAD::Y2 IRONCLAD::X2)) ; IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (+ IRONCLAD::Y1 IRONCLAD::X1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ IRONCLAD::Y2 IRONCLAD::X2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* (+ IRONCLAD::Y1 IRONCLAD::X1) (+ IRONCLAD::Y2 IRONCLAD::X2)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* (+ IRONCLAD::Y1 IRONCLAD::X1) (+ IRONCLAD::Y2 IRONCLAD::X2)) ; IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (* IRONCLAD::W1 IRONCLAD::W2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::W1 IRONCLAD::W2) IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (* 2 IRONCLAD::Z1 IRONCLAD::Z2) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* 2 IRONCLAD::Z1 IRONCLAD::Z2) IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (- IRONCLAD::B IRONCLAD::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::B IRONCLAD::A) IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (- IRONCLAD::D IRONCLAD::C) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::D IRONCLAD::C) IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (+ IRONCLAD::D IRONCLAD::C) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (+ IRONCLAD::B IRONCLAD::A) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::E IRONCLAD::F) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::G IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::F IRONCLAD::G) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::E IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; processing (DEFMETHOD EC-DOUBLE ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/ed25519.lisp ; in: DEFMETHOD EC-DOUBLE (ED25519-POINT) ; (* IRONCLAD::X1 IRONCLAD::X1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X1 IRONCLAD::X1) IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (* IRONCLAD::Y1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y1 IRONCLAD::Y1) IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (* 2 IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* 2 IRONCLAD::Z1 IRONCLAD::Z1) IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (+ IRONCLAD::X1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (+ IRONCLAD::X1 IRONCLAD::Y1) IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (* IRONCLAD::D IRONCLAD::D) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (+ IRONCLAD::A IRONCLAD::B) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- IRONCLAD::H IRONCLAD::I) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::H IRONCLAD::I) IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (- IRONCLAD::A IRONCLAD::B) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::A IRONCLAD::B) IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (+ IRONCLAD::C IRONCLAD::G) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::E IRONCLAD::F) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::G IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::F IRONCLAD::G) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::E IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; processing (DEFMETHOD EC-SCALAR-MULT ...) ; processing (DEFMETHOD EC-POINT-ON-CURVE-P ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/ed25519.lisp ; in: DEFMETHOD EC-POINT-ON-CURVE-P (ED25519-POINT) ; (* IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X IRONCLAD::X) IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y IRONCLAD::Y) IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (* IRONCLAD::Z IRONCLAD::Z) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z IRONCLAD::Z) IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (* IRONCLAD::W IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::W IRONCLAD::W) IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (- IRONCLAD::YY IRONCLAD::XX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::YY IRONCLAD::XX) IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (+ IRONCLAD::ZZ (* IRONCLAD::+ED25519-D+ IRONCLAD::WW)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 2147694645954241852484040567486267188178402270445892907140121793157764114386211238650957099786829249829777408518992270436843721382558176074814068640355141), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 2147694645954241852484040567486267188178402270445892907140121793157764114386269134695575757884541035322281752472918905429176541664577904866818025205175089) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 2147694645954241852484040567486267188178402270445892907140121793157764114386211238650957099786829249829777408518992270436843721382558176074814068640355141), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 2147694645954241852484040567486267188178402270445892907140121793157764114386269134695575757884541035322281752472918905429176541664577904866818025205175089) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- IRONCLAD::A IRONCLAD::B) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::A IRONCLAD::B) IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; processing (DEFMETHOD EC-POINT-EQUAL ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/ed25519.lisp ; in: DEFMETHOD EC-POINT-EQUAL (ED25519-POINT ED25519-POINT) ; (* IRONCLAD::X1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (- (* IRONCLAD::X1 IRONCLAD::Z2) (* IRONCLAD::X2 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (- (* IRONCLAD::X1 IRONCLAD::Z2) (* IRONCLAD::X2 IRONCLAD::Z1)) ; IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (* IRONCLAD::Y1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (- (* IRONCLAD::Y1 IRONCLAD::Z2) (* IRONCLAD::Y2 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (- (* IRONCLAD::Y1 IRONCLAD::Z2) (* IRONCLAD::Y2 IRONCLAD::Z1)) ; IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; processing (DEFMETHOD EC-ENCODE-SCALAR ...) ; processing (DEFMETHOD EC-DECODE-SCALAR ...) ; processing (DEFMETHOD EC-ENCODE-POINT ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/ed25519.lisp ; in: DEFMETHOD EC-ENCODE-POINT (ED25519-POINT) ; (SETF (LDB (BYTE 1 (- IRONCLAD::+ED25519-BITS+ 1)) IRONCLAD::Y) ; (LDB (BYTE 1 0) IRONCLAD::X)) ; --> SETQ THE DPB ; ==> ; 1 ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES (UNSIGNED-BYTE 256) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES (UNSIGNED-BYTE 256) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST T). ; (* IRONCLAD::X IRONCLAD::INVZ) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X IRONCLAD::INVZ) IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; (* IRONCLAD::Y IRONCLAD::INVZ) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y IRONCLAD::INVZ) IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; processing (DEFMETHOD EC-DECODE-POINT ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/ed25519.lisp ; in: DEFMETHOD EC-DECODE-POINT ((EQL :ED25519) T) ; (SETF (LDB (BYTE 1 (- IRONCLAD::+ED25519-BITS+ 1)) IRONCLAD::Y) 0) ; --> SETQ THE DPB ; ==> ; 1 ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; (LDB (BYTE 1 (- IRONCLAD::+ED25519-BITS+ 1)) IRONCLAD::Y) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (* IRONCLAD::X IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819950), not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819950), not a (SIGNED-BYTE ; 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X IRONCLAD::Y) IRONCLAD::+ED25519-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948), not a FIXNUM. ; processing (DEFUN ED25519-HASH ...) ; processing (DEFUN ED25519-PUBLIC-KEY ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/ed25519.lisp ; in: DEFUN ED25519-PUBLIC-KEY ; (SUBSEQ IRONCLAD::H 0 (/ IRONCLAD::+ED25519-BITS+ 8)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (SETF (LDB (BYTE 3 0) (ELT IRONCLAD::H 0)) 0) ; --> LET DPB ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS (SIMPLE-ARRAY * . #1=((*))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * . #1#). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; --> LET ; ==> ; (SB-KERNEL:%SETELT #:H0 0 #:NEW1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS (SIMPLE-ARRAY * . #1=((*))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * . #1#). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (SETF (LDB (BYTE 2 6) (ELT IRONCLAD::H (- # 1))) 1) ; --> LET DPB ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS (SIMPLE-ARRAY * . #1=((*))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * . #1#). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; --> LET ; ==> ; (SB-KERNEL:%SETELT #:H2 (- (/ IRONCLAD::+ED25519-BITS+ 8) 1) #:NEW1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS (SIMPLE-ARRAY * . #1=((*))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * . #1#). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; processing (DEFMETHOD MAKE-SIGNATURE ...) ; processing (DEFMETHOD DESTRUCTURE-SIGNATURE ...) ; processing (DEFUN ED25519-SIGN ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/ed25519.lisp ; in: DEFUN ED25519-SIGN ; (SETF (LDB (BYTE 3 0) (ELT IRONCLAD::H 0)) 0) ; --> LET DPB ; ==> ; 1 ; ; 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. ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; --> LET ; ==> ; (SB-KERNEL:%SETELT #:H0 0 #:NEW1) ; ; 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. ; (SETF (LDB (BYTE 2 6) (ELT IRONCLAD::H (- # 1))) 1) ; --> LET DPB ; ==> ; 1 ; ; 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. ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; --> LET ; ==> ; (SB-KERNEL:%SETELT #:H2 (- (/ IRONCLAD::+ED25519-BITS+ 8) 1) #:NEW1) ; ; 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. ; (SUBSEQ IRONCLAD::H 0 (/ IRONCLAD::+ED25519-BITS+ 8)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (SUBSEQ IRONCLAD::H (/ IRONCLAD::+ED25519-BITS+ 8) ; (/ IRONCLAD::+ED25519-BITS+ 4)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (MOD (IRONCLAD::EC-DECODE-SCALAR :ED25519 IRONCLAD::RH) IRONCLAD::+ED25519-L+) ; ; 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. ; (MOD ; (IRONCLAD::EC-DECODE-SCALAR :ED25519 ; (IRONCLAD::ED25519-HASH IRONCLAD::RP ; IRONCLAD::PK IRONCLAD::M)) ; IRONCLAD::+ED25519-L+) ; ; 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 ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-7237005577332262213973186563042994240857116359379907606001950938285454250989) ; (7237005577332262213973186563042994240857116359379907606001950938285454250989))), 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 ; (-7237005577332262213973186563042994240857116359379907606001950938285454250989) ; (7237005577332262213973186563042994240857116359379907606001950938285454250989))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-7237005577332262213973186563042994240857116359379907606001950938285454250989) ; (7237005577332262213973186563042994240857116359379907606001950938285454250989))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (IRONCLAD::EC-DECODE-SCALAR :ED25519 IRONCLAD::RH) IRONCLAD::+ED25519-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-7237005577332262213973186563042994240857116359379907606001950938285454250989) ; (7237005577332262213973186563042994240857116359379907606001950938285454250989))), 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 ; (-7237005577332262213973186563042994240857116359379907606001950938285454250989) ; (7237005577332262213973186563042994240857116359379907606001950938285454250989))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-7237005577332262213973186563042994240857116359379907606001950938285454250989) ; (7237005577332262213973186563042994240857116359379907606001950938285454250989))), not a RATIONAL. ; ; 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 GENERIC-< (cost 10) ; 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. ; (MOD ; (IRONCLAD::EC-DECODE-SCALAR :ED25519 ; (IRONCLAD::ED25519-HASH IRONCLAD::RP ; IRONCLAD::PK IRONCLAD::M)) ; IRONCLAD::+ED25519-L+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::K IRONCLAD::A) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 7237005577332262213973186563042994240857116359379907606001950938285454250989), not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 7237005577332262213973186563042994240857116359379907606001950938285454250989), not a (SIGNED-BYTE ; 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ (* IRONCLAD::K IRONCLAD::A) IRONCLAD::RI) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 7237005577332262213973186563042994240857116359379907606001950938285454250989), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 7237005577332262213973186563042994240857116359379907606001950938285454250989), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (+ (* IRONCLAD::K IRONCLAD::A) IRONCLAD::RI) IRONCLAD::+ED25519-L+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -7237005577332262213973186563042994240857116359379907606001950938285454250988 ; 7237005577332262213973186563042994240857116359379907606001950938285454250988), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -7237005577332262213973186563042994240857116359379907606001950938285454250988 ; 7237005577332262213973186563042994240857116359379907606001950938285454250988), not a FIXNUM. ; processing (DEFUN ED25519-VERIFY ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/ed25519.lisp ; in: DEFUN ED25519-VERIFY ; (MOD ; (IRONCLAD::EC-DECODE-SCALAR :ED25519 ; (IRONCLAD::ED25519-HASH IRONCLAD::R IRONCLAD::PK ; IRONCLAD::M)) ; IRONCLAD::+ED25519-L+) ; ; 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 ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-7237005577332262213973186563042994240857116359379907606001950938285454250989) ; (7237005577332262213973186563042994240857116359379907606001950938285454250989))), 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 ; (-7237005577332262213973186563042994240857116359379907606001950938285454250989) ; (7237005577332262213973186563042994240857116359379907606001950938285454250989))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-7237005577332262213973186563042994240857116359379907606001950938285454250989) ; (7237005577332262213973186563042994240857116359379907606001950938285454250989))), not a RATIONAL. ; ; 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 GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFMETHOD MAKE-PUBLIC-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PUBLIC-KEY ...) ; processing (DEFMETHOD MAKE-PRIVATE-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PRIVATE-KEY ...) ; processing (DEFMETHOD SIGN-MESSAGE ...) ; processing (DEFMETHOD VERIFY-SIGNATURE ...) ; processing (DEFMETHOD GENERATE-KEY-PAIR ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/public-key/ed25519-tmpSI9E4AQB.fasl ; compilation finished in 0:00:00.093 ; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/ed448.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS ED448-PUBLIC-KEY ...) ; processing (DEFCLASS ED448-PRIVATE-KEY ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFCONSTANT +ED448-BITS+ ...) ; processing (DEFCONSTANT +ED448-Q+ ...) ; processing (DEFCONSTANT +ED448-L+ ...) ; processing (DEFCONSTANT +ED448-D+ ...) ; processing (DEFCONST +ED448-B+ ...) ; processing (DEFCONST +ED448-POINT-AT-INFINITY+ ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFCONST +ED448-DOM+ ...) ; processing (DEFMETHOD EC-SCALAR-INV ...) ; processing (DEFUN ED448-RECOVER-X ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/ed448.lisp ; in: DEFUN ED448-RECOVER-X ; (* IRONCLAD::U3V ; (IRONCLAD:EXPT-MOD IRONCLAD::U5V3 (/ (- IRONCLAD::+ED448-Q+ 3) 4) ; IRONCLAD::+ED448-Q+)) ; ; 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)). ; (MOD ; (* IRONCLAD::U3V ; (IRONCLAD:EXPT-MOD IRONCLAD::U5V3 (/ (- IRONCLAD::+ED448-Q+ 3) 4) ; IRONCLAD::+ED448-Q+)) ; IRONCLAD::+ED448-Q+) ; ; 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 ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439) ; (726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439))), 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 ; (-726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439) ; (726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439) ; (726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (1- (* IRONCLAD::Y IRONCLAD::Y)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (MOD (1- (* IRONCLAD::Y IRONCLAD::Y)) IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (1+ IRONCLAD::U) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER 1 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER 1 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (* IRONCLAD::+ED448-D+ (1+ IRONCLAD::U)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739721559 ; -39081) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER 1 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739721559 ; -39081) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (1- (* IRONCLAD::+ED448-D+ (1+ IRONCLAD::U))) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739721559 ; -39081), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739721560 ; -39082) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739721559 ; -39081), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739721560 ; -39082) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (MOD (1- (* IRONCLAD::+ED448-D+ (1+ IRONCLAD::U))) IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 0), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 0), not a FIXNUM. ; (* IRONCLAD::U IRONCLAD::V) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::U IRONCLAD::U IRONCLAD::UV) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 383984923062992702193107238768305990575971314802788874095145673202033267015866160824156542228134514790183983507016891440783606607878560120446759002880024553793796781079076555940582389267580537359243311262284327013495014833399929662539661053437671746996921499531190282669815840119244221198707642915966992579932173647238953260602561484622551570055889936319200163724829307589544003296741511201335648379207673) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 383984923062992702193107238768305990575971314802788874095145673202033267015866160824156542228134514790183983507016891440783606607878560120446759002880024553793796781079076555940582389267580537359243311262284327013495014833399929662539661053437671746996921499531190282669815840119244221198707642915966992579932173647238953260602561484622551570055889936319200163724829307589544003296741511201335648379207673) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::U3V IRONCLAD::UV IRONCLAD::UV) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 383984923062992702193107238768305990575971314802788874095145673202033267015866160824156542228134514790183983507016891440783606607878560120446759002880024553793796781079076555940582389267580537359243311262284327013495014833399929662539661053437671746996921499531190282669815840119244221198707642915966992579932173647238953260602561484622551570055889936319200163724829307589544003296741511201335648379207673) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 383984923062992702193107238768305990575971314802788874095145673202033267015866160824156542228134514790183983507016891440783606607878560120446759002880024553793796781079076555940582389267580537359243311262284327013495014833399929662539661053437671746996921499531190282669815840119244221198707642915966992579932173647238953260602561484622551570055889936319200163724829307589544003296741511201335648379207673) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::U3V ; (IRONCLAD:EXPT-MOD IRONCLAD::U5V3 (/ (- IRONCLAD::+ED448-Q+ 3) 4) ; IRONCLAD::+ED448-Q+)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD ; (* IRONCLAD::U3V ; (IRONCLAD:EXPT-MOD IRONCLAD::U5V3 (/ (- IRONCLAD::+ED448-Q+ 3) 4) ; IRONCLAD::+ED448-Q+)) ; IRONCLAD::+ED448-Q+) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFMETHOD EC-ADD ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/ed448.lisp ; in: DEFMETHOD EC-ADD (ED448-POINT ED448-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z1 IRONCLAD::Z2) IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (* IRONCLAD::A IRONCLAD::A) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::X1 IRONCLAD::X2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X1 IRONCLAD::X2) IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (* IRONCLAD::Y1 IRONCLAD::Y2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y1 IRONCLAD::Y2) IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (* IRONCLAD::C IRONCLAD::D) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::+ED448-D+ IRONCLAD::K) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478 ; 0) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478 ; 0) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (MOD (* IRONCLAD::+ED448-D+ IRONCLAD::K) IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 0), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 0), not a FIXNUM. ; (- IRONCLAD::B IRONCLAD::E) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::B IRONCLAD::E) IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (+ IRONCLAD::B IRONCLAD::E) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (+ IRONCLAD::X1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ IRONCLAD::X2 IRONCLAD::Y2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* (+ IRONCLAD::X1 IRONCLAD::Y1) (+ IRONCLAD::X2 IRONCLAD::Y2)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* (+ IRONCLAD::X1 IRONCLAD::Y1) (+ IRONCLAD::X2 IRONCLAD::Y2)) ; IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (* IRONCLAD::A IRONCLAD::F) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::A IRONCLAD::G) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- IRONCLAD::H IRONCLAD::C IRONCLAD::D) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::I (- IRONCLAD::H IRONCLAD::C IRONCLAD::D)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (INTEGER ; -1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1056589062271330492704679569833033213037694652072243044255921418053269422980479201469843346168891949555676434277992307502384960470195505587607667379354705268932983924615864005053696928706219547972793749003012586215908533357561963574307900580771586667654529483074625863688 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -1056589062271330492704679569833033213037694652072243044255921418053269422980479201469843346168891949555676434277992307502384960470195505587607667379354705268932983924615864005053696928706219547972793749003012586215908533357561963574307900580771586667654529483074625863688 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (* IRONCLAD::I (- IRONCLAD::H IRONCLAD::C IRONCLAD::D)) ; IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (- IRONCLAD::D IRONCLAD::C) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::J (- IRONCLAD::D IRONCLAD::C)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (* IRONCLAD::J (- IRONCLAD::D IRONCLAD::C)) IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (* IRONCLAD::F IRONCLAD::G) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; processing (DEFMETHOD EC-DOUBLE ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/ed448.lisp ; in: DEFMETHOD EC-DOUBLE (ED448-POINT) ; (+ IRONCLAD::X1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (+ IRONCLAD::X1 IRONCLAD::Y1) IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (* IRONCLAD::A IRONCLAD::A) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::X1 IRONCLAD::X1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X1 IRONCLAD::X1) IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (* IRONCLAD::Y1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y1 IRONCLAD::Y1) IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (+ IRONCLAD::C IRONCLAD::D) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z1 IRONCLAD::Z1) IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (* 2 IRONCLAD::F) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (- IRONCLAD::E (* 2 IRONCLAD::F)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::E (* 2 IRONCLAD::F)) IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (- IRONCLAD::B IRONCLAD::E) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* (- IRONCLAD::B IRONCLAD::E) IRONCLAD::G) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (* (- IRONCLAD::B IRONCLAD::E) IRONCLAD::G) IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (- IRONCLAD::C IRONCLAD::D) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* (- IRONCLAD::C IRONCLAD::D) IRONCLAD::E) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (* (- IRONCLAD::C IRONCLAD::D) IRONCLAD::E) IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (* IRONCLAD::E IRONCLAD::G) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; processing (DEFMETHOD EC-SCALAR-MULT ...) ; processing (DEFMETHOD EC-POINT-ON-CURVE-P ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/ed448.lisp ; in: DEFMETHOD EC-POINT-ON-CURVE-P (ED448-POINT) ; (* IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X IRONCLAD::X) IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y IRONCLAD::Y) IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (* IRONCLAD::Z IRONCLAD::Z) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z IRONCLAD::Z) IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (* IRONCLAD::ZZ IRONCLAD::ZZ) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (+ IRONCLAD::YY IRONCLAD::XX) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::ZZ (+ IRONCLAD::YY IRONCLAD::XX)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1056589062271330492704679569833033213037694652072243044255921418053269422980479201469843346168891949555676434277992307502384960470195505587607667379354705268932983924615864005053696928706219547972793749003012586215908533357561963574307900580771586667654529483074625863689) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1056589062271330492704679569833033213037694652072243044255921418053269422980479201469843346168891949555676434277992307502384960470195505587607667379354705268932983924615864005053696928706219547972793749003012586215908533357561963574307900580771586667654529483074625863689) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::+ED448-D+ IRONCLAD::XX IRONCLAD::YY) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478 ; 0) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478 ; 0) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478 ; 0), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -20646278571312933492695791134322385499363072348817665206282832469469911159750053836321473905813233140292695364009108684750353320067855276934647624426280618307584972378956290590751764835383883077162376252393367440951960696073439549223763531298567189279303333364019726689395364 ; 0) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478 ; 0), not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -20646278571312933492695791134322385499363072348817665206282832469469911159750053836321473905813233140292695364009108684750353320067855276934647624426280618307584972378956290590751764835383883077162376252393367440951960696073439549223763531298567189279303333364019726689395364 ; 0) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (+ IRONCLAD::ZZZZ (* IRONCLAD::+ED448-D+ IRONCLAD::XX IRONCLAD::YY)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (INTEGER ; -20646278571312933492695791134322385499363072348817665206282832469469911159750053836321473905813233140292695364009108684750353320067855276934647624426280618307584972378956290590751764835383883077162376252393367440951960696073439549223763531298567189279303333364019726689395364 ; 0), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -20646278571312933492695791134322385499363072348817665206282832469469911159750053836321473905813233140292695364009108684750353320067855276934647624426280618307584972378956290590751764835383883077162376252393367440951960696073439549223763531298567189279303333364019726689395364 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -20646278571312933492695791134322385499363072348817665206282832469469911159750053836321473905813233140292695364009108684750353320067855276934647624426280618307584972378956290590751764835383883077162376252393367440951960696073439549223763531298567189279303333364019726689395364 ; 0), not a (SIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -20646278571312933492695791134322385499363072348817665206282832469469911159750053836321473905813233140292695364009108684750353320067855276934647624426280618307584972378956290590751764835383883077162376252393367440951960696073439549223763531298567189279303333364019726689395364 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (+ IRONCLAD::ZZZZ (* IRONCLAD::+ED448-D+ IRONCLAD::XX IRONCLAD::YY)) ; IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (- IRONCLAD::A IRONCLAD::B) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::A IRONCLAD::B) IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; processing (DEFMETHOD EC-POINT-EQUAL ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/ed448.lisp ; in: DEFMETHOD EC-POINT-EQUAL (ED448-POINT ED448-POINT) ; (* IRONCLAD::X1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (- (* IRONCLAD::X1 IRONCLAD::Z2) (* IRONCLAD::X2 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (- (* IRONCLAD::X1 IRONCLAD::Z2) (* IRONCLAD::X2 IRONCLAD::Z1)) ; IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; (* IRONCLAD::Y1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (- (* IRONCLAD::Y1 IRONCLAD::Z2) (* IRONCLAD::Y2 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (- (* IRONCLAD::Y1 IRONCLAD::Z2) (* IRONCLAD::Y2 IRONCLAD::Z1)) ; IRONCLAD::+ED448-Q+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; processing (DEFMETHOD EC-ENCODE-SCALAR ...) ; processing (DEFMETHOD EC-DECODE-SCALAR ...) ; processing (DEFMETHOD EC-ENCODE-POINT ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/ed448.lisp ; in: DEFMETHOD EC-ENCODE-POINT (ED448-POINT) ; (* IRONCLAD::X IRONCLAD::INVZ) ; ; 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)). ; (MOD (* IRONCLAD::X IRONCLAD::INVZ) IRONCLAD::+ED448-Q+) ; ; 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. ; (* IRONCLAD::Y IRONCLAD::INVZ) ; ; 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)). ; (MOD (* IRONCLAD::Y IRONCLAD::INVZ) IRONCLAD::+ED448-Q+) ; ; 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. ; (SETF (LDB (BYTE 1 (- IRONCLAD::+ED448-BITS+ 1)) IRONCLAD::Y) ; (LDB (BYTE 1 0) IRONCLAD::X)) ; --> SETQ THE DPB ; ==> ; 1 ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; (MOD (* IRONCLAD::Y IRONCLAD::INVZ) IRONCLAD::+ED448-Q+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439) ; (726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439))), 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 ; (-726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439) ; (726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439) ; (726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::X IRONCLAD::INVZ) IRONCLAD::+ED448-Q+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439) ; (726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439))), 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 ; (-726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439) ; (726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439) ; (726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (* IRONCLAD::X IRONCLAD::INVZ) ; ; note: forced to do GENERIC-* (cost 30) ; 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 REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::X IRONCLAD::INVZ) IRONCLAD::+ED448-Q+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::Y IRONCLAD::INVZ) ; ; note: forced to do GENERIC-* (cost 30) ; 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 REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::Y IRONCLAD::INVZ) IRONCLAD::+ED448-Q+) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFMETHOD EC-DECODE-POINT ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/ed448.lisp ; in: DEFMETHOD EC-DECODE-POINT ((EQL :ED448) T) ; (SETF (LDB (BYTE 1 (- IRONCLAD::+ED448-BITS+ 1)) IRONCLAD::Y) 0) ; --> SETQ THE DPB ; ==> ; 1 ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; (LDB (BYTE 1 (- IRONCLAD::+ED448-BITS+ 1)) IRONCLAD::Y) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN ED448-HASH ...) ; processing (DEFUN ED448-PUBLIC-KEY ...) ; processing (DEFMETHOD MAKE-SIGNATURE ...) ; processing (DEFMETHOD DESTRUCTURE-SIGNATURE ...) ; processing (DEFUN ED448-SIGN ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/ed448.lisp ; in: DEFUN ED448-SIGN ; (SETF (LDB (BYTE 2 0) (ELT IRONCLAD::H 0)) 0) ; --> LET DPB ; ==> ; 1 ; ; 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. ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; --> LET ; ==> ; (SB-KERNEL:%SETELT #:H0 0 #:NEW1) ; ; 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. ; (SETF (LDB (BYTE 1 7) (ELT IRONCLAD::H (- # 2))) 1) ; --> LET DPB ; ==> ; 1 ; ; 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. ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; --> LET ; ==> ; (SB-KERNEL:%SETELT #:H2 (- (CEILING IRONCLAD::+ED448-BITS+ 8) 2) #:NEW1) ; ; 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. ; (SETF (ELT IRONCLAD::H (- (CEILING IRONCLAD::+ED448-BITS+ 8) 1)) 0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (SUBSEQ IRONCLAD::H 0 (CEILING IRONCLAD::+ED448-BITS+ 8)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (SUBSEQ IRONCLAD::H (CEILING IRONCLAD::+ED448-BITS+ 8) ; (CEILING IRONCLAD::+ED448-BITS+ 4)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (MOD (IRONCLAD::EC-DECODE-SCALAR :ED448 IRONCLAD::RH) IRONCLAD::+ED448-L+) ; ; 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. ; (MOD ; (IRONCLAD::EC-DECODE-SCALAR :ED448 ; (IRONCLAD::ED448-HASH IRONCLAD::+ED448-DOM+ ; IRONCLAD::RP IRONCLAD::PK IRONCLAD::M)) ; IRONCLAD::+ED448-L+) ; ; 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. ; (* IRONCLAD::K IRONCLAD::A) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), 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 (OR FLOAT ; (RATIONAL 0 ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), 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 (OR FLOAT ; (RATIONAL 0 ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), 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 (OR FLOAT ; (RATIONAL 0 ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), 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 (OR FLOAT ; (RATIONAL 0 ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), 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 (OR FLOAT ; (RATIONAL 0 ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (+ (* IRONCLAD::K IRONCLAD::A) IRONCLAD::RI) ; ; 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 (OR FLOAT ; (RATIONAL 0 ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), 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 (OR FLOAT ; (RATIONAL 0 ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), 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 (OR FLOAT ; (RATIONAL 0 ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), 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 (OR FLOAT ; (RATIONAL 0 ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), 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 (OR FLOAT ; (RATIONAL 0 ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), 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 (OR FLOAT ; (RATIONAL 0 ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), not a SINGLE-FLOAT. ; (MOD (+ (* IRONCLAD::K IRONCLAD::A) IRONCLAD::RI) IRONCLAD::+ED448-L+) ; ; 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 ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779) ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), 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 ; (-181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779) ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779) ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD ; (IRONCLAD::EC-DECODE-SCALAR :ED448 ; (IRONCLAD::ED448-HASH IRONCLAD::+ED448-DOM+ ; IRONCLAD::RP IRONCLAD::PK IRONCLAD::M)) ; IRONCLAD::+ED448-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779) ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), 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 ; (-181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779) ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779) ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (IRONCLAD::EC-DECODE-SCALAR :ED448 IRONCLAD::RH) IRONCLAD::+ED448-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779) ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), 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 ; (-181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779) ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779) ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), not a RATIONAL. ; ; 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 GENERIC-< (cost 10) ; 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. ; (MOD ; (IRONCLAD::EC-DECODE-SCALAR :ED448 ; (IRONCLAD::ED448-HASH IRONCLAD::+ED448-DOM+ ; IRONCLAD::RP IRONCLAD::PK IRONCLAD::M)) ; IRONCLAD::+ED448-L+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::K IRONCLAD::A) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; #1=(181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR FLOAT (RATIONAL 0 #1#)), not a (SIGNED-BYTE ; 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #2#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ (* IRONCLAD::K IRONCLAD::A) IRONCLAD::RI) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; #2=(181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #3=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a (OR FLOAT (RATIONAL 0 #2#)), not a SINGLE-FLOAT. ; The result is a (VALUES REAL . #3#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (MOD (+ (* IRONCLAD::K IRONCLAD::A) IRONCLAD::RI) IRONCLAD::+ED448-L+) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFUN ED448-VERIFY ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/ed448.lisp ; in: DEFUN ED448-VERIFY ; (MOD ; (IRONCLAD::EC-DECODE-SCALAR :ED448 ; (IRONCLAD::ED448-HASH IRONCLAD::+ED448-DOM+ ; IRONCLAD::R IRONCLAD::PK IRONCLAD::M)) ; IRONCLAD::+ED448-L+) ; ; 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 ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779) ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), 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 ; (-181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779) ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779) ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), not a RATIONAL. ; ; 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 GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFMETHOD MAKE-PUBLIC-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PUBLIC-KEY ...) ; processing (DEFMETHOD MAKE-PRIVATE-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PRIVATE-KEY ...) ; processing (DEFMETHOD SIGN-MESSAGE ...) ; processing (DEFMETHOD VERIFY-SIGNATURE ...) ; processing (DEFMETHOD GENERATE-KEY-PAIR ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/public-key/ed448-tmpID7X8UGC.fasl ; compilation finished in 0:00:00.105 ; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/secp256k1.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS SECP256K1-PUBLIC-KEY ...) ; processing (DEFCLASS SECP256K1-PRIVATE-KEY ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFCONSTANT +SECP256K1-BITS+ ...) ; processing (DEFCONSTANT +SECP256K1-P+ ...) ; processing (DEFCONSTANT +SECP256K1-B+ ...) ; processing (DEFCONSTANT +SECP256K1-L+ ...) ; processing (DEFCONSTANT +SECP256K1-I+ ...) ; processing (DEFCONST +SECP256K1-G+ ...) ; processing (DEFCONST +SECP256K1-POINT-AT-INFINITY+ ...) ; processing (DEFMETHOD EC-SCALAR-INV ...) ; processing (DEFMETHOD EC-POINT-EQUAL ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp256k1.lisp ; in: DEFMETHOD EC-POINT-EQUAL (SECP256K1-POINT SECP256K1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z1 IRONCLAD::Z1) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z2 IRONCLAD::Z2) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (- (* IRONCLAD::X1 IRONCLAD::Z2Z2) (* IRONCLAD::X2 IRONCLAD::Z1Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (- (* IRONCLAD::X1 IRONCLAD::Z2Z2) (* IRONCLAD::X2 IRONCLAD::Z1Z1)) ; IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (- (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD ; (- (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1)) ; IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; processing (DEFMETHOD EC-DOUBLE ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp256k1.lisp ; in: DEFMETHOD EC-DOUBLE (SECP256K1-POINT) ; (* IRONCLAD::X1 IRONCLAD::X1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X1 IRONCLAD::X1) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; (* IRONCLAD::Y1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y1 IRONCLAD::Y1) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; (* IRONCLAD::B IRONCLAD::B) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (+ IRONCLAD::X1 IRONCLAD::B) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (+ IRONCLAD::X1 IRONCLAD::B) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (* IRONCLAD::X1+B IRONCLAD::X1+B) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::X1+B IRONCLAD::X1+B) IRONCLAD::A IRONCLAD::C) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 2 (- (* IRONCLAD::X1+B IRONCLAD::X1+B) IRONCLAD::A IRONCLAD::C)) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -463168356949264781694283940034751631413079938662562256157830336031635338686648 ; 26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684488) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -463168356949264781694283940034751631413079938662562256157830336031635338686648 ; 26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684488) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (MOD (* 2 (- (* IRONCLAD::X1+B IRONCLAD::X1+B) IRONCLAD::A IRONCLAD::C)) ; IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -463168356949264781694283940034751631413079938662562256157830336031635338686648 ; 26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684488), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -463168356949264781694283940034751631413079938662562256157830336031635338686648 ; 26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684488), not a FIXNUM. ; (* 3 IRONCLAD::A) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 347376267711948586270712955026063723559809953996921692118372752023726504014987) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 347376267711948586270712955026063723559809953996921692118372752023726504014987) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (* IRONCLAD::E IRONCLAD::E) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 2 IRONCLAD::D) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 231584178474632390847141970017375815706539969331281128078915168015817669343325) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 231584178474632390847141970017375815706539969331281128078915168015817669343325) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (- IRONCLAD::F (* 2 IRONCLAD::D)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 231584178474632390847141970017375815706539969331281128078915168015817669343325), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 231584178474632390847141970017375815706539969331281128078915168015817669343325), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::F (* 2 IRONCLAD::D)) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; (- IRONCLAD::D IRONCLAD::X2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::E (- IRONCLAD::D IRONCLAD::X2)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 8 IRONCLAD::C) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 926336713898529563388567880069503262826159877325124512315660672063270677373297) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 926336713898529563388567880069503262826159877325124512315660672063270677373297) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::E (- IRONCLAD::D IRONCLAD::X2)) (* 8 IRONCLAD::C)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The second argument is a (MOD ; 926336713898529563388567880069503262826159877325124512315660672063270677373297), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383375164413683271584985493507212906901386721425290205136109296895751746246023215540 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 926336713898529563388567880069503262826159877325124512315660672063270677373297), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383375164413683271584985493507212906901386721425290205136109296895751746246023215540 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- (* IRONCLAD::E (- IRONCLAD::D IRONCLAD::X2)) (* 8 IRONCLAD::C)) ; IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383375164413683271584985493507212906901386721425290205136109296895751746246023215540 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383375164413683271584985493507212906901386721425290205136109296895751746246023215540 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; (* 2 IRONCLAD::Y1 IRONCLAD::Z1) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* 2 IRONCLAD::Y1 IRONCLAD::Z1) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; processing (DEFMETHOD EC-ADD ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp256k1.lisp ; in: DEFMETHOD EC-ADD (SECP256K1-POINT SECP256K1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z1 IRONCLAD::Z1) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z2 IRONCLAD::Z2) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X1 IRONCLAD::Z2Z2) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X2 IRONCLAD::Z1Z1) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (* IRONCLAD::Y1 IRONCLAD::Z2 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y1 IRONCLAD::Z2 IRONCLAD::Z2Z2) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (* IRONCLAD::Y2 IRONCLAD::Z1 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y2 IRONCLAD::Z1 IRONCLAD::Z1Z1) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (= IRONCLAD::U1 IRONCLAD::U2) ; ; note: forced to do %EQL/INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; (- IRONCLAD::U2 IRONCLAD::U1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::U2 IRONCLAD::U1) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; (* 4 IRONCLAD::H IRONCLAD::H) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 463168356949264781694283940034751631413079938662562256157830336031635338686649) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 463168356949264781694283940034751631413079938662562256157830336031635338686649) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 463168356949264781694283940034751631413079938662562256157830336031635338686649), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 53631231719770388398296099992823384509917463282369573510894245774883077533496952307877492221688419757331349592495581061651520046387924940318731901383368977) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 463168356949264781694283940034751631413079938662562256157830336031635338686649), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 53631231719770388398296099992823384509917463282369573510894245774883077533496952307877492221688419757331349592495581061651520046387924940318731901383368977) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::H IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- IRONCLAD::S2 IRONCLAD::S1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 2 (- IRONCLAD::S2 IRONCLAD::S1)) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (MOD (* 2 (- IRONCLAD::S2 IRONCLAD::S1)) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324), not a FIXNUM. ; (* IRONCLAD::U1 IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::R IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 2 IRONCLAD::V) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 231584178474632390847141970017375815706539969331281128078915168015817669343325) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 231584178474632390847141970017375815706539969331281128078915168015817669343325) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The second argument is a (MOD ; 231584178474632390847141970017375815706539969331281128078915168015817669343325), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -347376267711948586270712955026063723559809953996921692118372752023726504014986 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 231584178474632390847141970017375815706539969331281128078915168015817669343325), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -347376267711948586270712955026063723559809953996921692118372752023726504014986 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -347376267711948586270712955026063723559809953996921692118372752023726504014986 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -347376267711948586270712955026063723559809953996921692118372752023726504014986 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; (- IRONCLAD::V IRONCLAD::X3) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 2 IRONCLAD::S1 IRONCLAD::J) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 231584178474632390847141970017375815706539969331281128078915168015817669343325) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 231584178474632390847141970017375815706539969331281128078915168015817669343325) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 231584178474632390847141970017375815706539969331281128078915168015817669343325), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684489) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 231584178474632390847141970017375815706539969331281128078915168015817669343325), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684489) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; (* 2 IRONCLAD::S1 IRONCLAD::J)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The second argument is a (MOD ; 26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684489), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -40223423789827791298722074994617538382438097461777180133170684331162308150122714230908119166266314817998512194371685796238640034790943705239048926037526732 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684489), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -40223423789827791298722074994617538382438097461777180133170684331162308150122714230908119166266314817998512194371685796238640034790943705239048926037526732 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD ; (- (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; (* 2 IRONCLAD::S1 IRONCLAD::J)) ; IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -40223423789827791298722074994617538382438097461777180133170684331162308150122714230908119166266314817998512194371685796238640034790943705239048926037526732 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -40223423789827791298722074994617538382438097461777180133170684331162308150122714230908119166266314817998512194371685796238640034790943705239048926037526732 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; (+ IRONCLAD::Z1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (+ IRONCLAD::Z1 IRONCLAD::Z2) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684488 ; 1552518092300708935148979488462502555256886017116696611139052038025878194357327919123326904259801146902371181789763820289842428859885596960430872532398902802048848099563624248617810692556287115773373882875915134104881484722589289528) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684488 ; 1552518092300708935148979488462502555256886017116696611139052038025878194357327919123326904259801146902371181789763820289842428859885596960430872532398902802048848099563624248617810692556287115773373882875915134104881484722589289528) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD ; (* (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; IRONCLAD::H) ; IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684488 ; 1552518092300708935148979488462502555256886017116696611139052038025878194357327919123326904259801146902371181789763820289842428859885596960430872532398902802048848099563624248617810692556287115773373882875915134104881484722589289528), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684488 ; 1552518092300708935148979488462502555256886017116696611139052038025878194357327919123326904259801146902371181789763820289842428859885596960430872532398902802048848099563624248617810692556287115773373882875915134104881484722589289528), not a FIXNUM. ; (= IRONCLAD::S1 IRONCLAD::S2) ; ; note: forced to do %EQL/INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; processing (DEFMETHOD EC-SCALAR-MULT ...) ; processing (DEFMETHOD EC-POINT-ON-CURVE-P ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp256k1.lisp ; in: DEFMETHOD EC-POINT-ON-CURVE-P (SECP256K1-POINT) ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y IRONCLAD::Y) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; (* IRONCLAD::Z IRONCLAD::Z IRONCLAD::Z) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z IRONCLAD::Z IRONCLAD::Z) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; (* IRONCLAD::Z3 IRONCLAD::Z3) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::+SECP256K1-B+ IRONCLAD::Z6) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 810544624661213367964996895060815354972889892659483948276203088055361842701635) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 810544624661213367964996895060815354972889892659483948276203088055361842701635) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (+ IRONCLAD::X3 (* IRONCLAD::+SECP256K1-B+ IRONCLAD::Z6)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 810544624661213367964996895060815354972889892659483948276203088055361842701635), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 926336713898529563388567880069503262826159877325124512315660672063270677373297) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 810544624661213367964996895060815354972889892659483948276203088055361842701635), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 926336713898529563388567880069503262826159877325124512315660672063270677373297) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- IRONCLAD::Y2 IRONCLAD::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::Y2 IRONCLAD::A) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; processing (DEFMETHOD EC-ENCODE-SCALAR ...) ; processing (DEFMETHOD EC-DECODE-SCALAR ...) ; processing (DEFMETHOD EC-ENCODE-POINT ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp256k1.lisp ; in: DEFMETHOD EC-ENCODE-POINT (SECP256K1-POINT) ; (* IRONCLAD::INVZ IRONCLAD::INVZ) ; ; 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. ; (MOD (* IRONCLAD::INVZ IRONCLAD::INVZ) IRONCLAD::+SECP256K1-P+) ; ; 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. ; (* IRONCLAD::INVZ2 IRONCLAD::INVZ) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), 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 (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), 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 (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), 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 (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), 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 (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), 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 (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (MOD (* IRONCLAD::INVZ2 IRONCLAD::INVZ) IRONCLAD::+SECP256K1-P+) ; ; 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. ; (* IRONCLAD::X IRONCLAD::INVZ2) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), not a FLOAT. ; (MOD (* IRONCLAD::X IRONCLAD::INVZ2) IRONCLAD::+SECP256K1-P+) ; ; 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. ; (* IRONCLAD::Y IRONCLAD::INVZ3) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), not a FLOAT. ; (MOD (* IRONCLAD::Y IRONCLAD::INVZ3) IRONCLAD::+SECP256K1-P+) ; ; 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 ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089237316195423570985008687907853269984665640564039457584007908834671663) ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), 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 ; (-115792089237316195423570985008687907853269984665640564039457584007908834671663) ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089237316195423570985008687907853269984665640564039457584007908834671663) ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::X IRONCLAD::INVZ2) IRONCLAD::+SECP256K1-P+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089237316195423570985008687907853269984665640564039457584007908834671663) ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), 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 ; (-115792089237316195423570985008687907853269984665640564039457584007908834671663) ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089237316195423570985008687907853269984665640564039457584007908834671663) ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::INVZ2 IRONCLAD::INVZ) IRONCLAD::+SECP256K1-P+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089237316195423570985008687907853269984665640564039457584007908834671663) ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), 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 ; (-115792089237316195423570985008687907853269984665640564039457584007908834671663) ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089237316195423570985008687907853269984665640564039457584007908834671663) ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::INVZ IRONCLAD::INVZ) IRONCLAD::+SECP256K1-P+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089237316195423570985008687907853269984665640564039457584007908834671663) ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), 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 ; (-115792089237316195423570985008687907853269984665640564039457584007908834671663) ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089237316195423570985008687907853269984665640564039457584007908834671663) ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (* IRONCLAD::INVZ IRONCLAD::INVZ) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::INVZ IRONCLAD::INVZ) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::INVZ2 IRONCLAD::INVZ) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; #1=(115792089237316195423570985008687907853269984665640564039457584007908834671663))), not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR FLOAT (RATIONAL 0 #1#)), not a (SIGNED-BYTE ; 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #2#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::INVZ2 IRONCLAD::INVZ) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::X IRONCLAD::INVZ2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; #1=(115792089237316195423570985008687907853269984665640564039457584007908834671663))), not a FIXNUM. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (OR FLOAT (RATIONAL 0 #1#)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES REAL . #2#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::X IRONCLAD::INVZ2) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::Y IRONCLAD::INVZ3) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; #1=(115792089237316195423570985008687907853269984665640564039457584007908834671663))), not a FIXNUM. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (OR FLOAT (RATIONAL 0 #1#)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES REAL . #2#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::Y IRONCLAD::INVZ3) IRONCLAD::+SECP256K1-P+) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFMETHOD EC-DECODE-POINT ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp256k1.lisp ; in: DEFMETHOD EC-DECODE-POINT ((EQL :SECP256K1) T) ; (AREF IRONCLAD::OCTETS 0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (- (AREF IRONCLAD::OCTETS 0) 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)). ; (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) ; ; 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 ; 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. ; (+ (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) IRONCLAD::+SECP256K1-B+) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (MOD (+ (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) IRONCLAD::+SECP256K1-B+) ; IRONCLAD::+SECP256K1-P+) ; ; 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. ; (= (LOGAND IRONCLAD::Y 1) IRONCLAD::Y-SIGN) ; ; note: unable to open code because: The operands might not be the same type. ; (MOD (+ (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) IRONCLAD::+SECP256K1-B+) ; IRONCLAD::+SECP256K1-P+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089237316195423570985008687907853269984665640564039457584007908834671663) ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), 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 ; (-115792089237316195423570985008687907853269984665640564039457584007908834671663) ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089237316195423570985008687907853269984665640564039457584007908834671663) ; (115792089237316195423570985008687907853269984665640564039457584007908834671663))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (- (AREF IRONCLAD::OCTETS 0) 2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) IRONCLAD::+SECP256K1-B+) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &REST T). ; 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 &REST T). ; etc. ; (MOD (+ (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) IRONCLAD::+SECP256K1-B+) ; IRONCLAD::+SECP256K1-P+) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFUN SECP256K1-PUBLIC-KEY ...) ; processing (DEFMETHOD MAKE-SIGNATURE ...) ; processing (DEFMETHOD DESTRUCTURE-SIGNATURE ...) ; processing (DEFMETHOD GENERATE-SIGNATURE-NONCE ...) ; processing (DEFMETHOD SIGN-MESSAGE ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp256k1.lisp ; in: DEFMETHOD SIGN-MESSAGE (SECP256K1-PRIVATE-KEY T) ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ (IRONCLAD::EC-ENCODE-POINT IRONCLAD::R) 1 ; (1+ (/ IRONCLAD::+SECP256K1-BITS+ 8))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (MOD IRONCLAD::R IRONCLAD::+SECP256K1-L+) ; ; 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. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (* IRONCLAD::SK IRONCLAD::R) ; ; 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 (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), 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 (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), 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 (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), 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 (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), 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 (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), 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 (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a SINGLE-FLOAT. ; (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R)) ; ; 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. ; (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; ; 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. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP256K1-L+) ; ; 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. ; (ZEROP IRONCLAD::R) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP256K1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089237316195423570985008687907852837564279074904382605163141518161494337) ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), 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 ; (-115792089237316195423570985008687907852837564279074904382605163141518161494337) ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089237316195423570985008687907852837564279074904382605163141518161494337) ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a RATIONAL. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256K1-BITS+ 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 32.0d0) (SINGLE-FLOAT 32.0) ; (RATIONAL 32)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP256K1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD IRONCLAD::R IRONCLAD::+SECP256K1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089237316195423570985008687907852837564279074904382605163141518161494337) ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), 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 ; (-115792089237316195423570985008687907852837564279074904382605163141518161494337) ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089237316195423570985008687907852837564279074904382605163141518161494337) ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a RATIONAL. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256K1-BITS+ 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD IRONCLAD::R IRONCLAD::+SECP256K1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (ZEROP IRONCLAD::S) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256K1-BITS+ 8)) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (MOD IRONCLAD::R IRONCLAD::+SECP256K1-L+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::SK IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; #1=(115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a (OR FLOAT (RATIONAL 0 #1#)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER . #2#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP256K1-L+) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFMETHOD VERIFY-SIGNATURE ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp256k1.lisp ; in: DEFMETHOD VERIFY-SIGNATURE (SECP256K1-PUBLIC-KEY T T) ; (LENGTH IRONCLAD::SIGNATURE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (* IRONCLAD::E IRONCLAD::W) ; ; 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. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP256K1-L+) ; ; 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. ; (* IRONCLAD::R IRONCLAD::W) ; ; 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. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP256K1-L+) ; ; 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. ; (SUBSEQ (IRONCLAD::EC-ENCODE-POINT IRONCLAD::RP) 1 ; (1+ (/ IRONCLAD::+SECP256K1-BITS+ 8))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (MOD IRONCLAD::V IRONCLAD::+SECP256K1-L+) ; ; 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. ; (< IRONCLAD::R IRONCLAD::+SECP256K1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD IRONCLAD::V IRONCLAD::+SECP256K1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089237316195423570985008687907852837564279074904382605163141518161494337) ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), 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 ; (-115792089237316195423570985008687907852837564279074904382605163141518161494337) ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089237316195423570985008687907852837564279074904382605163141518161494337) ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP256K1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089237316195423570985008687907852837564279074904382605163141518161494337) ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), 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 ; (-115792089237316195423570985008687907852837564279074904382605163141518161494337) ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089237316195423570985008687907852837564279074904382605163141518161494337) ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a RATIONAL. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256K1-BITS+ 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 32.0d0) (SINGLE-FLOAT 32.0) ; (RATIONAL 32)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP256K1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP256K1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089237316195423570985008687907852837564279074904382605163141518161494337) ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), 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 ; (-115792089237316195423570985008687907852837564279074904382605163141518161494337) ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089237316195423570985008687907852837564279074904382605163141518161494337) ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a RATIONAL. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256K1-BITS+ 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP256K1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (< IRONCLAD::S IRONCLAD::+SECP256K1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a SINGLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * (1.157920892373162d77)) ; SINGLE-FLOAT ; (RATIONAL * ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), 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 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a DOUBLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * (1.157920892373162d77)) ; SINGLE-FLOAT ; (RATIONAL * ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * (1.157920892373162d77)) ; SINGLE-FLOAT ; (RATIONAL * ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256K1-BITS+ 8)) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::E IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP256K1-L+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::R IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP256K1-L+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (MOD IRONCLAD::V IRONCLAD::+SECP256K1-L+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; #2=(115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a DOUBLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * #3=(1.157920892373162d77)) ; SINGLE-FLOAT ; (RATIONAL * ; #4=(115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a DOUBLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a (OR FLOAT (RATIONAL 0 #2#)), not a SINGLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * #3#) SINGLE-FLOAT ; (RATIONAL * #4#)), not a SINGLE-FLOAT. ; processing (DEFMETHOD MAKE-PUBLIC-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PUBLIC-KEY ...) ; processing (DEFMETHOD MAKE-PRIVATE-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PRIVATE-KEY ...) ; processing (DEFMETHOD GENERATE-KEY-PAIR ...) ; processing (DEFMETHOD DIFFIE-HELLMAN ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/public-key/secp256k1-tmpFYN8G5D1.fasl ; compilation finished in 0:00:00.124 ; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/secp256r1.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS SECP256R1-PUBLIC-KEY ...) ; processing (DEFCLASS SECP256R1-PRIVATE-KEY ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFCONSTANT +SECP256R1-BITS+ ...) ; processing (DEFCONSTANT +SECP256R1-P+ ...) ; processing (DEFCONSTANT +SECP256R1-B+ ...) ; processing (DEFCONSTANT +SECP256R1-L+ ...) ; processing (DEFCONSTANT +SECP256R1-I+ ...) ; processing (DEFCONST +SECP256R1-G+ ...) ; processing (DEFCONST +SECP256R1-POINT-AT-INFINITY+ ...) ; processing (DEFMETHOD EC-SCALAR-INV ...) ; processing (DEFMETHOD EC-POINT-EQUAL ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp256r1.lisp ; in: DEFMETHOD EC-POINT-EQUAL (SECP256R1-POINT SECP256R1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z1 IRONCLAD::Z1) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z2 IRONCLAD::Z2) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (- (* IRONCLAD::X1 IRONCLAD::Z2Z2) (* IRONCLAD::X2 IRONCLAD::Z1Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (- (* IRONCLAD::X1 IRONCLAD::Z2Z2) (* IRONCLAD::X2 IRONCLAD::Z1Z1)) ; IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (- (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD ; (- (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1)) ; IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; processing (DEFMETHOD EC-DOUBLE ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp256r1.lisp ; in: DEFMETHOD EC-DOUBLE (SECP256R1-POINT) ; (* IRONCLAD::X1 IRONCLAD::X1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X1 IRONCLAD::X1) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; (* IRONCLAD::Y1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y1 IRONCLAD::Y1) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; (* IRONCLAD::YY IRONCLAD::YY) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z1 IRONCLAD::Z1) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; (+ IRONCLAD::X1 IRONCLAD::YY) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (+ IRONCLAD::X1 IRONCLAD::YY) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (+ IRONCLAD::Y1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (+ IRONCLAD::Y1 IRONCLAD::Z1) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; (* IRONCLAD::X1+YY IRONCLAD::X1+YY) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::X1+YY IRONCLAD::X1+YY) IRONCLAD::XX IRONCLAD::YYYY) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 2 (- (* IRONCLAD::X1+YY IRONCLAD::X1+YY) IRONCLAD::XX IRONCLAD::YYYY)) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -463168356841424995050789787797630294120344573661161256782134525235468391415800 ; 26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205000) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -463168356841424995050789787797630294120344573661161256782134525235468391415800 ; 26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205000) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (MOD ; (* 2 (- (* IRONCLAD::X1+YY IRONCLAD::X1+YY) IRONCLAD::XX IRONCLAD::YYYY)) ; IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -463168356841424995050789787797630294120344573661161256782134525235468391415800 ; 26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205000), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -463168356841424995050789787797630294120344573661161256782134525235468391415800 ; 26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205000), not a FIXNUM. ; (* IRONCLAD::ZZ IRONCLAD::ZZ) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- IRONCLAD::XX (* IRONCLAD::ZZ IRONCLAD::ZZ)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 3 (- IRONCLAD::XX (* IRONCLAD::ZZ IRONCLAD::ZZ))) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -40223423771097300003367670123973035050679398068931717577633076269386332303793874726227466822817982466316604363741688119809643966887559564864574086591807500 ; 347376267631068746288092340848222720590258430245870942586600893926601293561850) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -40223423771097300003367670123973035050679398068931717577633076269386332303793874726227466822817982466316604363741688119809643966887559564864574086591807500 ; 347376267631068746288092340848222720590258430245870942586600893926601293561850) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (MOD (* 3 (- IRONCLAD::XX (* IRONCLAD::ZZ IRONCLAD::ZZ))) ; IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -40223423771097300003367670123973035050679398068931717577633076269386332303793874726227466822817982466316604363741688119809643966887559564864574086591807500 ; 347376267631068746288092340848222720590258430245870942586600893926601293561850), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -40223423771097300003367670123973035050679398068931717577633076269386332303793874726227466822817982466316604363741688119809643966887559564864574086591807500 ; 347376267631068746288092340848222720590258430245870942586600893926601293561850), not a FIXNUM. ; (* IRONCLAD::M IRONCLAD::M) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 2 IRONCLAD::S) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 231584178420712497525394893898815147060172286830580628391067262617734195707901) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 231584178420712497525394893898815147060172286830580628391067262617734195707901) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::M IRONCLAD::M) (* 2 IRONCLAD::S)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a FIXNUM. ; The second argument is a (MOD ; 231584178420712497525394893898815147060172286830580628391067262617734195707901), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 231584178420712497525394893898815147060172286830580628391067262617734195707901), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- (* IRONCLAD::M IRONCLAD::M) (* 2 IRONCLAD::S)) ; IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; (- IRONCLAD::S IRONCLAD::U) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::M (- IRONCLAD::S IRONCLAD::U)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 8 IRONCLAD::YYYY) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 926336713682849990101579575595260588240689147322322513564269050470936782831601) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 926336713682849990101579575595260588240689147322322513564269050470936782831601) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::M (- IRONCLAD::S IRONCLAD::U)) (* 8 IRONCLAD::YYYY)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The second argument is a (MOD ; 926336713682849990101579575595260588240689147322322513564269050470936782831601), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101265551245456171790929429068347796715168803395750536978142750790671995632313434100 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 926336713682849990101579575595260588240689147322322513564269050470936782831601), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101265551245456171790929429068347796715168803395750536978142750790671995632313434100 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- (* IRONCLAD::M (- IRONCLAD::S IRONCLAD::U)) (* 8 IRONCLAD::YYYY)) ; IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101265551245456171790929429068347796715168803395750536978142750790671995632313434100 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101265551245456171790929429068347796715168803395750536978142750790671995632313434100 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; (* IRONCLAD::Y1+Z1 IRONCLAD::Y1+Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::Y1+Z1 IRONCLAD::Y1+Z1) IRONCLAD::YY IRONCLAD::ZZ) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- (* IRONCLAD::Y1+Z1 IRONCLAD::Y1+Z1) IRONCLAD::YY IRONCLAD::ZZ) ; IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; processing (DEFMETHOD EC-ADD ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp256r1.lisp ; in: DEFMETHOD EC-ADD (SECP256R1-POINT SECP256R1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z1 IRONCLAD::Z1) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z2 IRONCLAD::Z2) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X1 IRONCLAD::Z2Z2) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X2 IRONCLAD::Z1Z1) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (* IRONCLAD::Y1 IRONCLAD::Z2 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y1 IRONCLAD::Z2 IRONCLAD::Z2Z2) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (* IRONCLAD::Y2 IRONCLAD::Z1 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y2 IRONCLAD::Z1 IRONCLAD::Z1Z1) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (= IRONCLAD::U1 IRONCLAD::U2) ; ; note: forced to do %EQL/INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; (- IRONCLAD::U2 IRONCLAD::U1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::U2 IRONCLAD::U1) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; (* 4 IRONCLAD::H IRONCLAD::H) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 463168356841424995050789787797630294120344573661161256782134525235468391415801) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 463168356841424995050789787797630294120344573661161256782134525235468391415801) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 463168356841424995050789787797630294120344573661161256782134525235468391415801), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 53631231694796400004490226831964046734239197425242290103510768359181776405058499634969955763757309955088805818322250826412858622516746086486098782122410001) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 463168356841424995050789787797630294120344573661161256782134525235468391415801), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 53631231694796400004490226831964046734239197425242290103510768359181776405058499634969955763757309955088805818322250826412858622516746086486098782122410001) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::H IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- IRONCLAD::S2 IRONCLAD::S1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 2 (- IRONCLAD::S2 IRONCLAD::S1)) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (MOD (* 2 (- IRONCLAD::S2 IRONCLAD::S1)) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900), not a FIXNUM. ; (* IRONCLAD::U1 IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::R IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 2 IRONCLAD::V) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 231584178420712497525394893898815147060172286830580628391067262617734195707901) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 231584178420712497525394893898815147060172286830580628391067262617734195707901) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The second argument is a (MOD ; 231584178420712497525394893898815147060172286830580628391067262617734195707901), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -347376267631068746288092340848222720590258430245870942586600893926601293561850 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 231584178420712497525394893898815147060172286830580628391067262617734195707901), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -347376267631068746288092340848222720590258430245870942586600893926601293561850 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -347376267631068746288092340848222720590258430245870942586600893926601293561850 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -347376267631068746288092340848222720590258430245870942586600893926601293561850 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; (- IRONCLAD::V IRONCLAD::X3) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 2 IRONCLAD::S1 IRONCLAD::J) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 231584178420712497525394893898815147060172286830580628391067262617734195707901) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 231584178420712497525394893898815147060172286830580628391067262617734195707901) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 231584178420712497525394893898815147060172286830580628391067262617734195707901), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205001) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 231584178420712497525394893898815147060172286830580628391067262617734195707901), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205001) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; (* 2 IRONCLAD::S1 IRONCLAD::J)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The second argument is a (MOD ; 26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205001), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -40223423771097300003367670123973035050679398068931717577633076269386332303793874726227466822817982466316604363741688119809643966887559564864574086591807500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205001), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -40223423771097300003367670123973035050679398068931717577633076269386332303793874726227466822817982466316604363741688119809643966887559564864574086591807500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD ; (- (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; (* 2 IRONCLAD::S1 IRONCLAD::J)) ; IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -40223423771097300003367670123973035050679398068931717577633076269386332303793874726227466822817982466316604363741688119809643966887559564864574086591807500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -40223423771097300003367670123973035050679398068931717577633076269386332303793874726227466822817982466316604363741688119809643966887559564864574086591807500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; (+ IRONCLAD::Z1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (+ IRONCLAD::Z1 IRONCLAD::Z2) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205000 ; 1552518091216287575509997016045519883874413001817462420952243358319381311981552516218821248992487553429028716151972263135050472406590473520502256999630780789960399351157211211886562356228292661589244886765074003724582584300504875000) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205000 ; 1552518091216287575509997016045519883874413001817462420952243358319381311981552516218821248992487553429028716151972263135050472406590473520502256999630780789960399351157211211886562356228292661589244886765074003724582584300504875000) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD ; (* (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; IRONCLAD::H) ; IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205000 ; 1552518091216287575509997016045519883874413001817462420952243358319381311981552516218821248992487553429028716151972263135050472406590473520502256999630780789960399351157211211886562356228292661589244886765074003724582584300504875000), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205000 ; 1552518091216287575509997016045519883874413001817462420952243358319381311981552516218821248992487553429028716151972263135050472406590473520502256999630780789960399351157211211886562356228292661589244886765074003724582584300504875000), not a FIXNUM. ; (= IRONCLAD::S1 IRONCLAD::S2) ; ; note: forced to do %EQL/INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; processing (DEFMETHOD EC-SCALAR-MULT ...) ; processing (DEFMETHOD EC-POINT-ON-CURVE-P ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp256r1.lisp ; in: DEFMETHOD EC-POINT-ON-CURVE-P (SECP256R1-POINT) ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y IRONCLAD::Y) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; (* IRONCLAD::Z IRONCLAD::Z) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z IRONCLAD::Z) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::Z4 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* -3 IRONCLAD::X IRONCLAD::Z4) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ IRONCLAD::X3 (* -3 IRONCLAD::X IRONCLAD::Z4) ; (* IRONCLAD::+SECP256R1-B+ IRONCLAD::Z6)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 4754233715294071753536997766098265397605321291568756963789803770565338829955226958282817707719945690448174040500929197932238602174421086657888409559449451), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 4754233715294071753536997766098265397605321291568756963789803770565338829955226958282817707719945690448174040500929197932238602174421086657888409559449451), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD ; (+ IRONCLAD::X3 (* -3 IRONCLAD::X IRONCLAD::Z4) ; (* IRONCLAD::+SECP256R1-B+ IRONCLAD::Z6)) ; IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; (- IRONCLAD::Y2 IRONCLAD::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::Y2 IRONCLAD::A) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; processing (DEFMETHOD EC-ENCODE-SCALAR ...) ; processing (DEFMETHOD EC-DECODE-SCALAR ...) ; processing (DEFMETHOD EC-ENCODE-POINT ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp256r1.lisp ; in: DEFMETHOD EC-ENCODE-POINT (SECP256R1-POINT) ; (* IRONCLAD::INVZ IRONCLAD::INVZ) ; ; 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. ; (MOD (* IRONCLAD::INVZ IRONCLAD::INVZ) IRONCLAD::+SECP256R1-P+) ; ; 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. ; (* IRONCLAD::INVZ2 IRONCLAD::INVZ) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), 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 (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), 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 (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), 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 (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), 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 (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), 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 (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (MOD (* IRONCLAD::INVZ2 IRONCLAD::INVZ) IRONCLAD::+SECP256R1-P+) ; ; 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. ; (* IRONCLAD::X IRONCLAD::INVZ2) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), not a FLOAT. ; (MOD (* IRONCLAD::X IRONCLAD::INVZ2) IRONCLAD::+SECP256R1-P+) ; ; 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. ; (* IRONCLAD::Y IRONCLAD::INVZ3) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), not a FLOAT. ; (MOD (* IRONCLAD::Y IRONCLAD::INVZ3) IRONCLAD::+SECP256R1-P+) ; ; 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 ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089210356248762697446949407573530086143415290314195533631308867097853951) ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), 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 ; (-115792089210356248762697446949407573530086143415290314195533631308867097853951) ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089210356248762697446949407573530086143415290314195533631308867097853951) ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::X IRONCLAD::INVZ2) IRONCLAD::+SECP256R1-P+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089210356248762697446949407573530086143415290314195533631308867097853951) ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), 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 ; (-115792089210356248762697446949407573530086143415290314195533631308867097853951) ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089210356248762697446949407573530086143415290314195533631308867097853951) ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::INVZ2 IRONCLAD::INVZ) IRONCLAD::+SECP256R1-P+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089210356248762697446949407573530086143415290314195533631308867097853951) ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), 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 ; (-115792089210356248762697446949407573530086143415290314195533631308867097853951) ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089210356248762697446949407573530086143415290314195533631308867097853951) ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::INVZ IRONCLAD::INVZ) IRONCLAD::+SECP256R1-P+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089210356248762697446949407573530086143415290314195533631308867097853951) ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), 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 ; (-115792089210356248762697446949407573530086143415290314195533631308867097853951) ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089210356248762697446949407573530086143415290314195533631308867097853951) ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (* IRONCLAD::INVZ IRONCLAD::INVZ) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::INVZ IRONCLAD::INVZ) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::INVZ2 IRONCLAD::INVZ) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; #1=(115792089210356248762697446949407573530086143415290314195533631308867097853951))), not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR FLOAT (RATIONAL 0 #1#)), not a (SIGNED-BYTE ; 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #2#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::INVZ2 IRONCLAD::INVZ) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::X IRONCLAD::INVZ2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; #1=(115792089210356248762697446949407573530086143415290314195533631308867097853951))), not a FIXNUM. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (OR FLOAT (RATIONAL 0 #1#)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES REAL . #2#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::X IRONCLAD::INVZ2) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::Y IRONCLAD::INVZ3) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; #1=(115792089210356248762697446949407573530086143415290314195533631308867097853951))), not a FIXNUM. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (OR FLOAT (RATIONAL 0 #1#)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES REAL . #2#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::Y IRONCLAD::INVZ3) IRONCLAD::+SECP256R1-P+) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFMETHOD EC-DECODE-POINT ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp256r1.lisp ; in: DEFMETHOD EC-DECODE-POINT ((EQL :SECP256R1) T) ; (AREF IRONCLAD::OCTETS 0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (- (AREF IRONCLAD::OCTETS 0) 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)). ; (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) ; ; 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 ; 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. ; (* -3 IRONCLAD::X) ; ; 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 ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (+ (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) (* -3 IRONCLAD::X) ; IRONCLAD::+SECP256R1-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 ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (MOD ; (+ (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) (* -3 IRONCLAD::X) ; IRONCLAD::+SECP256R1-B+) ; IRONCLAD::+SECP256R1-P+) ; ; 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. ; (= (LOGAND IRONCLAD::Y 1) IRONCLAD::Y-SIGN) ; ; note: unable to open code because: The operands might not be the same type. ; (MOD ; (+ (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) (* -3 IRONCLAD::X) ; IRONCLAD::+SECP256R1-B+) ; IRONCLAD::+SECP256R1-P+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089210356248762697446949407573530086143415290314195533631308867097853951) ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), 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 ; (-115792089210356248762697446949407573530086143415290314195533631308867097853951) ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089210356248762697446949407573530086143415290314195533631308867097853951) ; (115792089210356248762697446949407573530086143415290314195533631308867097853951))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (- (AREF IRONCLAD::OCTETS 0) 2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* -3 IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (+ (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) (* -3 IRONCLAD::X) ; IRONCLAD::+SECP256R1-B+) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (MOD ; (+ (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) (* -3 IRONCLAD::X) ; IRONCLAD::+SECP256R1-B+) ; IRONCLAD::+SECP256R1-P+) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFUN SECP256R1-PUBLIC-KEY ...) ; processing (DEFMETHOD MAKE-SIGNATURE ...) ; processing (DEFMETHOD DESTRUCTURE-SIGNATURE ...) ; processing (DEFMETHOD GENERATE-SIGNATURE-NONCE ...) ; processing (DEFMETHOD SIGN-MESSAGE ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp256r1.lisp ; in: DEFMETHOD SIGN-MESSAGE (SECP256R1-PRIVATE-KEY T) ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ (IRONCLAD::EC-ENCODE-POINT IRONCLAD::R) 1 ; (1+ (/ IRONCLAD::+SECP256R1-BITS+ 8))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (MOD IRONCLAD::R IRONCLAD::+SECP256R1-L+) ; ; 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. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (* IRONCLAD::SK IRONCLAD::R) ; ; 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 (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), 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 (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), 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 (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), 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 (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), 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 (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), 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 (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a SINGLE-FLOAT. ; (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R)) ; ; 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. ; (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; ; 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. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP256R1-L+) ; ; 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. ; (ZEROP IRONCLAD::R) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP256R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089210356248762697446949407573529996955224135760342422259061068512044369) ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), 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 ; (-115792089210356248762697446949407573529996955224135760342422259061068512044369) ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089210356248762697446949407573529996955224135760342422259061068512044369) ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a RATIONAL. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256R1-BITS+ 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 32.0d0) (SINGLE-FLOAT 32.0) ; (RATIONAL 32)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP256R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD IRONCLAD::R IRONCLAD::+SECP256R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089210356248762697446949407573529996955224135760342422259061068512044369) ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), 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 ; (-115792089210356248762697446949407573529996955224135760342422259061068512044369) ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089210356248762697446949407573529996955224135760342422259061068512044369) ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a RATIONAL. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256R1-BITS+ 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD IRONCLAD::R IRONCLAD::+SECP256R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (ZEROP IRONCLAD::S) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256R1-BITS+ 8)) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (MOD IRONCLAD::R IRONCLAD::+SECP256R1-L+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::SK IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; #1=(115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a (OR FLOAT (RATIONAL 0 #1#)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER . #2#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP256R1-L+) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFMETHOD VERIFY-SIGNATURE ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp256r1.lisp ; in: DEFMETHOD VERIFY-SIGNATURE (SECP256R1-PUBLIC-KEY T T) ; (LENGTH IRONCLAD::SIGNATURE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (* IRONCLAD::E IRONCLAD::W) ; ; 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. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP256R1-L+) ; ; 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. ; (* IRONCLAD::R IRONCLAD::W) ; ; 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. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP256R1-L+) ; ; 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. ; (SUBSEQ (IRONCLAD::EC-ENCODE-POINT IRONCLAD::RP) 1 ; (1+ (/ IRONCLAD::+SECP256R1-BITS+ 8))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (MOD IRONCLAD::V IRONCLAD::+SECP256R1-L+) ; ; 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. ; (< IRONCLAD::R IRONCLAD::+SECP256R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD IRONCLAD::V IRONCLAD::+SECP256R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089210356248762697446949407573529996955224135760342422259061068512044369) ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), 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 ; (-115792089210356248762697446949407573529996955224135760342422259061068512044369) ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089210356248762697446949407573529996955224135760342422259061068512044369) ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP256R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089210356248762697446949407573529996955224135760342422259061068512044369) ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), 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 ; (-115792089210356248762697446949407573529996955224135760342422259061068512044369) ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089210356248762697446949407573529996955224135760342422259061068512044369) ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a RATIONAL. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256R1-BITS+ 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 32.0d0) (SINGLE-FLOAT 32.0) ; (RATIONAL 32)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP256R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP256R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089210356248762697446949407573529996955224135760342422259061068512044369) ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), 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 ; (-115792089210356248762697446949407573529996955224135760342422259061068512044369) ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-115792089210356248762697446949407573529996955224135760342422259061068512044369) ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a RATIONAL. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256R1-BITS+ 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP256R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (< IRONCLAD::S IRONCLAD::+SECP256R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a SINGLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * (1.1579208921035625d77)) ; SINGLE-FLOAT ; (RATIONAL * ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), 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 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a DOUBLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * (1.1579208921035625d77)) ; SINGLE-FLOAT ; (RATIONAL * ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * (1.1579208921035625d77)) ; SINGLE-FLOAT ; (RATIONAL * ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256R1-BITS+ 8)) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::E IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP256R1-L+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::R IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP256R1-L+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (MOD IRONCLAD::V IRONCLAD::+SECP256R1-L+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; #2=(115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a DOUBLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * #3=(1.1579208921035625d77)) ; SINGLE-FLOAT ; (RATIONAL * ; #4=(115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a DOUBLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a (OR FLOAT (RATIONAL 0 #2#)), not a SINGLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * #3#) SINGLE-FLOAT ; (RATIONAL * #4#)), not a SINGLE-FLOAT. ; processing (DEFMETHOD MAKE-PUBLIC-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PUBLIC-KEY ...) ; processing (DEFMETHOD MAKE-PRIVATE-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PRIVATE-KEY ...) ; processing (DEFMETHOD GENERATE-KEY-PAIR ...) ; processing (DEFMETHOD DIFFIE-HELLMAN ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/public-key/secp256r1-tmpG1VNK6NW.fasl ; compilation finished in 0:00:00.130 ; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/secp384r1.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS SECP384R1-PUBLIC-KEY ...) ; processing (DEFCLASS SECP384R1-PRIVATE-KEY ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFCONSTANT +SECP384R1-BITS+ ...) ; processing (DEFCONSTANT +SECP384R1-P+ ...) ; processing (DEFCONSTANT +SECP384R1-B+ ...) ; processing (DEFCONSTANT +SECP384R1-L+ ...) ; processing (DEFCONSTANT +SECP384R1-I+ ...) ; processing (DEFCONST +SECP384R1-G+ ...) ; processing (DEFCONST +SECP384R1-POINT-AT-INFINITY+ ...) ; processing (DEFMETHOD EC-SCALAR-INV ...) ; processing (DEFMETHOD EC-POINT-EQUAL ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp384r1.lisp ; in: DEFMETHOD EC-POINT-EQUAL (SECP384R1-POINT SECP384R1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z1 IRONCLAD::Z1) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z2 IRONCLAD::Z2) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (- (* IRONCLAD::X1 IRONCLAD::Z2Z2) (* IRONCLAD::X2 IRONCLAD::Z1Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (- (* IRONCLAD::X1 IRONCLAD::Z2Z2) (* IRONCLAD::X2 IRONCLAD::Z1Z1)) ; IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (- (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD ; (- (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1)) ; IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; processing (DEFMETHOD EC-DOUBLE ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp384r1.lisp ; in: DEFMETHOD EC-DOUBLE (SECP384R1-POINT) ; (* IRONCLAD::X1 IRONCLAD::X1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X1 IRONCLAD::X1) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; (* IRONCLAD::Y1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y1 IRONCLAD::Y1) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; (* IRONCLAD::YY IRONCLAD::YY) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z1 IRONCLAD::Z1) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; (+ IRONCLAD::X1 IRONCLAD::YY) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (+ IRONCLAD::X1 IRONCLAD::YY) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (+ IRONCLAD::Y1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (+ IRONCLAD::Y1 IRONCLAD::Z1) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; (* IRONCLAD::X1+YY IRONCLAD::X1+YY) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::X1+YY IRONCLAD::X1+YY) IRONCLAD::XX IRONCLAD::YYYY) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 2 (- (* IRONCLAD::X1+YY IRONCLAD::X1+YY) IRONCLAD::XX IRONCLAD::YYYY)) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -157608024785577916849116160400574455220318957081861786671793173616982887085987481316189064353035752007446427892449272 ; 3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666248) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -157608024785577916849116160400574455220318957081861786671793173616982887085987481316189064353035752007446427892449272 ; 3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666248) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (MOD ; (* 2 (- (* IRONCLAD::X1+YY IRONCLAD::X1+YY) IRONCLAD::XX IRONCLAD::YYYY)) ; IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -157608024785577916849116160400574455220318957081861786671793173616982887085987481316189064353035752007446427892449272 ; 3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666248), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -157608024785577916849116160400574455220318957081861786671793173616982887085987481316189064353035752007446427892449272 ; 3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666248), not a FIXNUM. ; (* IRONCLAD::ZZ IRONCLAD::ZZ) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- IRONCLAD::XX (* IRONCLAD::ZZ IRONCLAD::ZZ)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 3 (- IRONCLAD::XX (* IRONCLAD::ZZ IRONCLAD::ZZ))) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -4657554276902126805446938465387507665770658051350089833417156114078152858059050212145036840412040093748086682813217173423530327591384702966601351005412722431777478597450618859688861730941493532175219467651189956725220018998329999372 ; 118206018589183437636837120300430841415239217811396340003844880212737165314490610987141798264776814005584820919336954) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -4657554276902126805446938465387507665770658051350089833417156114078152858059050212145036840412040093748086682813217173423530327591384702966601351005412722431777478597450618859688861730941493532175219467651189956725220018998329999372 ; 118206018589183437636837120300430841415239217811396340003844880212737165314490610987141798264776814005584820919336954) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (MOD (* 3 (- IRONCLAD::XX (* IRONCLAD::ZZ IRONCLAD::ZZ))) ; IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -4657554276902126805446938465387507665770658051350089833417156114078152858059050212145036840412040093748086682813217173423530327591384702966601351005412722431777478597450618859688861730941493532175219467651189956725220018998329999372 ; 118206018589183437636837120300430841415239217811396340003844880212737165314490610987141798264776814005584820919336954), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -4657554276902126805446938465387507665770658051350089833417156114078152858059050212145036840412040093748086682813217173423530327591384702966601351005412722431777478597450618859688861730941493532175219467651189956725220018998329999372 ; 118206018589183437636837120300430841415239217811396340003844880212737165314490610987141798264776814005584820919336954), not a FIXNUM. ; (* IRONCLAD::M IRONCLAD::M) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 2 IRONCLAD::S) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224637) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224637) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::M IRONCLAD::M) (* 2 IRONCLAD::S)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a FIXNUM. ; The second argument is a (MOD ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224637), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224637), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- (* IRONCLAD::M IRONCLAD::M) (* 2 IRONCLAD::S)) ; IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; (- IRONCLAD::S IRONCLAD::U) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::M (- IRONCLAD::S IRONCLAD::U)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 8 IRONCLAD::YYYY) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 315216049571155833698232320801148910440637914163723573343586347233965774171974962632378128706071504014892855784898545) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 315216049571155833698232320801148910440637914163723573343586347233965774171974962632378128706071504014892855784898545) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::M (- IRONCLAD::S IRONCLAD::U)) (* 8 IRONCLAD::YYYY)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The second argument is a (MOD ; 315216049571155833698232320801148910440637914163723573343586347233965774171974962632378128706071504014892855784898545), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072706357226347019628599221187918150714681448506656589390216539576854542754669819021038867345769390412421565855228231668 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 315216049571155833698232320801148910440637914163723573343586347233965774171974962632378128706071504014892855784898545), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072706357226347019628599221187918150714681448506656589390216539576854542754669819021038867345769390412421565855228231668 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- (* IRONCLAD::M (- IRONCLAD::S IRONCLAD::U)) (* 8 IRONCLAD::YYYY)) ; IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072706357226347019628599221187918150714681448506656589390216539576854542754669819021038867345769390412421565855228231668 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072706357226347019628599221187918150714681448506656589390216539576854542754669819021038867345769390412421565855228231668 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; (* IRONCLAD::Y1+Z1 IRONCLAD::Y1+Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::Y1+Z1 IRONCLAD::Y1+Z1) IRONCLAD::YY IRONCLAD::ZZ) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- (* IRONCLAD::Y1+Z1 IRONCLAD::Y1+Z1) IRONCLAD::YY IRONCLAD::ZZ) ; IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; processing (DEFMETHOD EC-ADD ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp384r1.lisp ; in: DEFMETHOD EC-ADD (SECP384R1-POINT SECP384R1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z1 IRONCLAD::Z1) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z2 IRONCLAD::Z2) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X1 IRONCLAD::Z2Z2) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X2 IRONCLAD::Z1Z1) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (* IRONCLAD::Y1 IRONCLAD::Z2 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y1 IRONCLAD::Z2 IRONCLAD::Z2Z2) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (* IRONCLAD::Y2 IRONCLAD::Z1 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y2 IRONCLAD::Z1 IRONCLAD::Z1Z1) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (= IRONCLAD::U1 IRONCLAD::U2) ; ; note: forced to do %EQL/INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; (- IRONCLAD::U2 IRONCLAD::U1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::U2 IRONCLAD::U1) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; (* 4 IRONCLAD::H IRONCLAD::H) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 157608024785577916849116160400574455220318957081861786671793173616982887085987481316189064353035752007446427892449273) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 157608024785577916849116160400574455220318957081861786671793173616982887085987481316189064353035752007446427892449273) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 157608024785577916849116160400574455220318957081861786671793173616982887085987481316189064353035752007446427892449273), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 6210072369202835740595917953850010221027544068466786444556208152104203810745400282860049120549386791664115577084289564564707103455179603955468468007216963242369971463267491812918482307921991376233625956868253275633626691997773332497) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 157608024785577916849116160400574455220318957081861786671793173616982887085987481316189064353035752007446427892449273), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 6210072369202835740595917953850010221027544068466786444556208152104203810745400282860049120549386791664115577084289564564707103455179603955468468007216963242369971463267491812918482307921991376233625956868253275633626691997773332497) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::H IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- IRONCLAD::S2 IRONCLAD::S1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 2 (- IRONCLAD::S2 IRONCLAD::S1)) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (MOD (* 2 (- IRONCLAD::S2 IRONCLAD::S1)) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636), not a FIXNUM. ; (* IRONCLAD::U1 IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::R IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 2 IRONCLAD::V) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224637) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224637) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The second argument is a (MOD ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224637), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -118206018589183437636837120300430841415239217811396340003844880212737165314490610987141798264776814005584820919336954 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224637), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -118206018589183437636837120300430841415239217811396340003844880212737165314490610987141798264776814005584820919336954 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -118206018589183437636837120300430841415239217811396340003844880212737165314490610987141798264776814005584820919336954 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -118206018589183437636837120300430841415239217811396340003844880212737165314490610987141798264776814005584820919336954 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; (- IRONCLAD::V IRONCLAD::X3) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 2 IRONCLAD::S1 IRONCLAD::J) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224637) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224637) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224637), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666249) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224637), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666249) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; (* 2 IRONCLAD::S1 IRONCLAD::J)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The second argument is a (MOD ; 3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666249), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -4657554276902126805446938465387507665770658051350089833417156114078152858059050212145036840412040093748086682813217173423530327591384702966601351005412722431777478597450618859688861730941493532175219467651189956725220018998329999372 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666249), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -4657554276902126805446938465387507665770658051350089833417156114078152858059050212145036840412040093748086682813217173423530327591384702966601351005412722431777478597450618859688861730941493532175219467651189956725220018998329999372 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD ; (- (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; (* 2 IRONCLAD::S1 IRONCLAD::J)) ; IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -4657554276902126805446938465387507665770658051350089833417156114078152858059050212145036840412040093748086682813217173423530327591384702966601351005412722431777478597450618859688861730941493532175219467651189956725220018998329999372 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -4657554276902126805446938465387507665770658051350089833417156114078152858059050212145036840412040093748086682813217173423530327591384702966601351005412722431777478597450618859688861730941493532175219467651189956725220018998329999372 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; (+ IRONCLAD::Z1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (+ IRONCLAD::Z1 IRONCLAD::Z2) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666248 ; 61172327492847069472032393719205726809135813743440799050195397570919697796090373438193087932951745364335411418754192158027371883482871393221879462331321106336775708560918647649541641604232637072055046695989901089216659016884039006326354228973932344229259162402188271721529352380657325954679977318277520211348882541876885333111266759951749941821432) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666248 ; 61172327492847069472032393719205726809135813743440799050195397570919697796090373438193087932951745364335411418754192158027371883482871393221879462331321106336775708560918647649541641604232637072055046695989901089216659016884039006326354228973932344229259162402188271721529352380657325954679977318277520211348882541876885333111266759951749941821432) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD ; (* (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; IRONCLAD::H) ; IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666248 ; 61172327492847069472032393719205726809135813743440799050195397570919697796090373438193087932951745364335411418754192158027371883482871393221879462331321106336775708560918647649541641604232637072055046695989901089216659016884039006326354228973932344229259162402188271721529352380657325954679977318277520211348882541876885333111266759951749941821432), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666248 ; 61172327492847069472032393719205726809135813743440799050195397570919697796090373438193087932951745364335411418754192158027371883482871393221879462331321106336775708560918647649541641604232637072055046695989901089216659016884039006326354228973932344229259162402188271721529352380657325954679977318277520211348882541876885333111266759951749941821432), not a FIXNUM. ; (= IRONCLAD::S1 IRONCLAD::S2) ; ; note: forced to do %EQL/INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; processing (DEFMETHOD EC-SCALAR-MULT ...) ; processing (DEFMETHOD EC-POINT-ON-CURVE-P ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp384r1.lisp ; in: DEFMETHOD EC-POINT-ON-CURVE-P (SECP384R1-POINT) ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y IRONCLAD::Y) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; (* IRONCLAD::Z IRONCLAD::Z) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z IRONCLAD::Z) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::Z4 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* -3 IRONCLAD::X IRONCLAD::Z4) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ IRONCLAD::X3 (* -3 IRONCLAD::X IRONCLAD::Z4) ; (* IRONCLAD::+SECP384R1-B+ IRONCLAD::Z6)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 1086714957547291441539380743186883691325052640168535502985634527585716824737423997330458424652672228621187160777634281319450819776407920055319325979067815022545612052681671576296126271714236782641033750695114220282292143901370722851), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 1086714957547291441539380743186883691325052640168535502985634527585716824737423997330458424652672228621187160777634281319450819776407920055319325979067815022545612052681671576296126271714236782641033750695114220282292143901370722851), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD ; (+ IRONCLAD::X3 (* -3 IRONCLAD::X IRONCLAD::Z4) ; (* IRONCLAD::+SECP384R1-B+ IRONCLAD::Z6)) ; IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; (- IRONCLAD::Y2 IRONCLAD::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::Y2 IRONCLAD::A) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; processing (DEFMETHOD EC-ENCODE-SCALAR ...) ; processing (DEFMETHOD EC-DECODE-SCALAR ...) ; processing (DEFMETHOD EC-ENCODE-POINT ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp384r1.lisp ; in: DEFMETHOD EC-ENCODE-POINT (SECP384R1-POINT) ; (* IRONCLAD::INVZ IRONCLAD::INVZ) ; ; 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. ; (MOD (* IRONCLAD::INVZ IRONCLAD::INVZ) IRONCLAD::+SECP384R1-P+) ; ; 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. ; (* IRONCLAD::INVZ2 IRONCLAD::INVZ) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), 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 (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), 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 (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), 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 (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), 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 (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), 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 (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (MOD (* IRONCLAD::INVZ2 IRONCLAD::INVZ) IRONCLAD::+SECP384R1-P+) ; ; 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. ; (* IRONCLAD::X IRONCLAD::INVZ2) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), not a FLOAT. ; (MOD (* IRONCLAD::X IRONCLAD::INVZ2) IRONCLAD::+SECP384R1-P+) ; ; 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. ; (* IRONCLAD::Y IRONCLAD::INVZ3) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), not a FLOAT. ; (MOD (* IRONCLAD::Y IRONCLAD::INVZ3) IRONCLAD::+SECP384R1-P+) ; ; 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 ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319) ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), 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 ; (-39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319) ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319) ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::X IRONCLAD::INVZ2) IRONCLAD::+SECP384R1-P+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319) ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), 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 ; (-39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319) ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319) ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::INVZ2 IRONCLAD::INVZ) IRONCLAD::+SECP384R1-P+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319) ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), 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 ; (-39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319) ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319) ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::INVZ IRONCLAD::INVZ) IRONCLAD::+SECP384R1-P+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319) ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), 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 ; (-39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319) ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319) ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (* IRONCLAD::INVZ IRONCLAD::INVZ) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::INVZ IRONCLAD::INVZ) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::INVZ2 IRONCLAD::INVZ) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; #1=(39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR FLOAT (RATIONAL 0 #1#)), not a (SIGNED-BYTE ; 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #2#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::INVZ2 IRONCLAD::INVZ) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::X IRONCLAD::INVZ2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; #1=(39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), not a FIXNUM. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (OR FLOAT (RATIONAL 0 #1#)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES REAL . #2#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::X IRONCLAD::INVZ2) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::Y IRONCLAD::INVZ3) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; #1=(39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), not a FIXNUM. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (OR FLOAT (RATIONAL 0 #1#)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES REAL . #2#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::Y IRONCLAD::INVZ3) IRONCLAD::+SECP384R1-P+) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFMETHOD EC-DECODE-POINT ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp384r1.lisp ; in: DEFMETHOD EC-DECODE-POINT ((EQL :SECP384R1) T) ; (AREF IRONCLAD::OCTETS 0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (- (AREF IRONCLAD::OCTETS 0) 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)). ; (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) ; ; 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 ; 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. ; (* -3 IRONCLAD::X) ; ; 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 ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (+ (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) (* -3 IRONCLAD::X) ; IRONCLAD::+SECP384R1-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 ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (MOD ; (+ (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) (* -3 IRONCLAD::X) ; IRONCLAD::+SECP384R1-B+) ; IRONCLAD::+SECP384R1-P+) ; ; 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. ; (= (LOGAND IRONCLAD::Y 1) IRONCLAD::Y-SIGN) ; ; note: unable to open code because: The operands might not be the same type. ; (MOD ; (+ (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) (* -3 IRONCLAD::X) ; IRONCLAD::+SECP384R1-B+) ; IRONCLAD::+SECP384R1-P+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319) ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), 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 ; (-39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319) ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319) ; (39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (- (AREF IRONCLAD::OCTETS 0) 2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* -3 IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (+ (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) (* -3 IRONCLAD::X) ; IRONCLAD::+SECP384R1-B+) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (MOD ; (+ (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) (* -3 IRONCLAD::X) ; IRONCLAD::+SECP384R1-B+) ; IRONCLAD::+SECP384R1-P+) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFUN SECP384R1-PUBLIC-KEY ...) ; processing (DEFMETHOD MAKE-SIGNATURE ...) ; processing (DEFMETHOD DESTRUCTURE-SIGNATURE ...) ; processing (DEFMETHOD GENERATE-SIGNATURE-NONCE ...) ; processing (DEFMETHOD SIGN-MESSAGE ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp384r1.lisp ; in: DEFMETHOD SIGN-MESSAGE (SECP384R1-PRIVATE-KEY T) ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ (IRONCLAD::EC-ENCODE-POINT IRONCLAD::R) 1 ; (1+ (/ IRONCLAD::+SECP384R1-BITS+ 8))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (MOD IRONCLAD::R IRONCLAD::+SECP384R1-L+) ; ; 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. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (* IRONCLAD::SK IRONCLAD::R) ; ; 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 (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), 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 (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), 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 (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), 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 (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), 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 (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), 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 (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a SINGLE-FLOAT. ; (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R)) ; ; 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. ; (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; ; 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. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP384R1-L+) ; ; 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. ; (ZEROP IRONCLAD::R) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP384R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643) ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), 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 ; (-39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643) ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643) ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a RATIONAL. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP384R1-BITS+ 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 48.0d0) (SINGLE-FLOAT 48.0) ; (RATIONAL 48)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP384R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD IRONCLAD::R IRONCLAD::+SECP384R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643) ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), 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 ; (-39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643) ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643) ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a RATIONAL. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP384R1-BITS+ 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD IRONCLAD::R IRONCLAD::+SECP384R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (ZEROP IRONCLAD::S) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP384R1-BITS+ 8)) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (MOD IRONCLAD::R IRONCLAD::+SECP384R1-L+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::SK IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; #1=(39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a (OR FLOAT (RATIONAL 0 #1#)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER . #2#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP384R1-L+) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFMETHOD VERIFY-SIGNATURE ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp384r1.lisp ; in: DEFMETHOD VERIFY-SIGNATURE (SECP384R1-PUBLIC-KEY T T) ; (LENGTH IRONCLAD::SIGNATURE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (* IRONCLAD::E IRONCLAD::W) ; ; 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. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP384R1-L+) ; ; 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. ; (* IRONCLAD::R IRONCLAD::W) ; ; 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. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP384R1-L+) ; ; 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. ; (SUBSEQ (IRONCLAD::EC-ENCODE-POINT IRONCLAD::RP) 1 ; (1+ (/ IRONCLAD::+SECP384R1-BITS+ 8))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (MOD IRONCLAD::V IRONCLAD::+SECP384R1-L+) ; ; 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. ; (< IRONCLAD::R IRONCLAD::+SECP384R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD IRONCLAD::V IRONCLAD::+SECP384R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643) ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), 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 ; (-39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643) ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643) ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP384R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643) ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), 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 ; (-39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643) ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643) ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a RATIONAL. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP384R1-BITS+ 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 48.0d0) (SINGLE-FLOAT 48.0) ; (RATIONAL 48)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP384R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP384R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643) ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), 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 ; (-39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643) ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643) ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a RATIONAL. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP384R1-BITS+ 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP384R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (< IRONCLAD::S IRONCLAD::+SECP384R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a SINGLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * (3.940200619639448d115)) ; SINGLE-FLOAT ; (RATIONAL * ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), 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 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a DOUBLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * (3.940200619639448d115)) ; SINGLE-FLOAT ; (RATIONAL * ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * (3.940200619639448d115)) ; SINGLE-FLOAT ; (RATIONAL * ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP384R1-BITS+ 8)) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::E IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP384R1-L+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::R IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP384R1-L+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (MOD IRONCLAD::V IRONCLAD::+SECP384R1-L+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; #2=(39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a DOUBLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * #3=(3.940200619639448d115)) ; SINGLE-FLOAT ; (RATIONAL * ; #4=(39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a DOUBLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a (OR FLOAT (RATIONAL 0 #2#)), not a SINGLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * #3#) SINGLE-FLOAT ; (RATIONAL * #4#)), not a SINGLE-FLOAT. ; processing (DEFMETHOD MAKE-PUBLIC-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PUBLIC-KEY ...) ; processing (DEFMETHOD MAKE-PRIVATE-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PRIVATE-KEY ...) ; processing (DEFMETHOD GENERATE-KEY-PAIR ...) ; processing (DEFMETHOD DIFFIE-HELLMAN ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/public-key/secp384r1-tmpV4YWE7CS.fasl ; compilation finished in 0:00:00.133 ; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/secp521r1.lisp" (written 18 FEB 2022 01:39:10 PM): ; processing (IN-PACKAGE :CRYPTO) ; processing (DEFCLASS SECP521R1-PUBLIC-KEY ...) ; processing (DEFCLASS SECP521R1-PRIVATE-KEY ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFCONSTANT +SECP521R1-BITS+ ...) ; processing (DEFCONSTANT +SECP521R1-P+ ...) ; processing (DEFCONSTANT +SECP521R1-B+ ...) ; processing (DEFCONSTANT +SECP521R1-L+ ...) ; processing (DEFCONSTANT +SECP521R1-I+ ...) ; processing (DEFCONST +SECP521R1-G+ ...) ; processing (DEFCONST +SECP521R1-POINT-AT-INFINITY+ ...) ; processing (DEFMETHOD EC-SCALAR-INV ...) ; processing (DEFMETHOD EC-POINT-EQUAL ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp521r1.lisp ; in: DEFMETHOD EC-POINT-EQUAL (SECP521R1-POINT SECP521R1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z1 IRONCLAD::Z1) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z2 IRONCLAD::Z2) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (- (* IRONCLAD::X1 IRONCLAD::Z2Z2) (* IRONCLAD::X2 IRONCLAD::Z1Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (- (* IRONCLAD::X1 IRONCLAD::Z2Z2) (* IRONCLAD::X2 IRONCLAD::Z1Z1)) ; IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (- (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD ; (- (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1)) ; IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; processing (DEFMETHOD EC-DOUBLE ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp521r1.lisp ; in: DEFMETHOD EC-DOUBLE (SECP521R1-POINT) ; (* IRONCLAD::X1 IRONCLAD::X1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X1 IRONCLAD::X1) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; (* IRONCLAD::Y1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y1 IRONCLAD::Y1) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; (* IRONCLAD::YY IRONCLAD::YY) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z1 IRONCLAD::Z1) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; (+ IRONCLAD::X1 IRONCLAD::YY) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (+ IRONCLAD::X1 IRONCLAD::YY) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (+ IRONCLAD::Y1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (+ IRONCLAD::Y1 IRONCLAD::Z1) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; (* IRONCLAD::X1+YY IRONCLAD::X1+YY) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::X1+YY IRONCLAD::X1+YY) IRONCLAD::XX IRONCLAD::YYYY) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 2 (- (* IRONCLAD::X1+YY IRONCLAD::X1+YY) IRONCLAD::XX IRONCLAD::YYYY)) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -27459190640522438859927603196325572869077741200573221637577853836742172733590624208490238562645818219909185245565923432148487951998866575250296113164460228600 ; 94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245000) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -27459190640522438859927603196325572869077741200573221637577853836742172733590624208490238562645818219909185245565923432148487951998866575250296113164460228600 ; 94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245000) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (MOD ; (* 2 (- (* IRONCLAD::X1+YY IRONCLAD::X1+YY) IRONCLAD::XX IRONCLAD::YYYY)) ; IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -27459190640522438859927603196325572869077741200573221637577853836742172733590624208490238562645818219909185245565923432148487951998866575250296113164460228600 ; 94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245000), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -27459190640522438859927603196325572869077741200573221637577853836742172733590624208490238562645818219909185245565923432148487951998866575250296113164460228600 ; 94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245000), not a FIXNUM. ; (* IRONCLAD::ZZ IRONCLAD::ZZ) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- IRONCLAD::XX (* IRONCLAD::ZZ IRONCLAD::ZZ)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 3 (- IRONCLAD::XX (* IRONCLAD::ZZ IRONCLAD::ZZ))) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -141376340743604082394737293980259429930865287150355604260858165585038023699071733438382193237615603368161533398775019621050317355468259293260294990572662914500279188040336496737030097576470449683316503330454450344065363007189429568031419809878128157839393409091144834999667896072426624256444553198130698343298367500 ; 20594392980391829144945702397244179651808305900429916228183390377556629550192968156367678921984363664931888934174442574111365963999149931437722084873345171450) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -141376340743604082394737293980259429930865287150355604260858165585038023699071733438382193237615603368161533398775019621050317355468259293260294990572662914500279188040336496737030097576470449683316503330454450344065363007189429568031419809878128157839393409091144834999667896072426624256444553198130698343298367500 ; 20594392980391829144945702397244179651808305900429916228183390377556629550192968156367678921984363664931888934174442574111365963999149931437722084873345171450) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (MOD (* 3 (- IRONCLAD::XX (* IRONCLAD::ZZ IRONCLAD::ZZ))) ; IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -141376340743604082394737293980259429930865287150355604260858165585038023699071733438382193237615603368161533398775019621050317355468259293260294990572662914500279188040336496737030097576470449683316503330454450344065363007189429568031419809878128157839393409091144834999667896072426624256444553198130698343298367500 ; 20594392980391829144945702397244179651808305900429916228183390377556629550192968156367678921984363664931888934174442574111365963999149931437722084873345171450), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -141376340743604082394737293980259429930865287150355604260858165585038023699071733438382193237615603368161533398775019621050317355468259293260294990572662914500279188040336496737030097576470449683316503330454450344065363007189429568031419809878128157839393409091144834999667896072426624256444553198130698343298367500 ; 20594392980391829144945702397244179651808305900429916228183390377556629550192968156367678921984363664931888934174442574111365963999149931437722084873345171450), not a FIXNUM. ; (* IRONCLAD::M IRONCLAD::M) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 2 IRONCLAD::S) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114301) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114301) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::M IRONCLAD::M) (* 2 IRONCLAD::S)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a FIXNUM. ; The second argument is a (MOD ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114301), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114301), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- (* IRONCLAD::M IRONCLAD::M) (* 2 IRONCLAD::S)) ; IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; (- IRONCLAD::S IRONCLAD::U) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::M (- IRONCLAD::S IRONCLAD::U)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 8 IRONCLAD::YYYY) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 54918381281044877719855206392651145738155482401146443275155707673484345467181248416980477125291636439818370491131846864296975903997733150500592226328920457201) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 54918381281044877719855206392651145738155482401146443275155707673484345467181248416980477125291636439818370491131846864296975903997733150500592226328920457201) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::M (- IRONCLAD::S IRONCLAD::U)) (* 8 IRONCLAD::YYYY)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The second argument is a (MOD ; 54918381281044877719855206392651145738155482401146443275155707673484345467181248416980477125291636439818370491131846864296975903997733150500592226328920457201), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304888344777294490376632198572251474628965927650177964593389844162009214155323191721686939853177904767576182085436131736162987784778749881334899969125776686579700 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 54918381281044877719855206392651145738155482401146443275155707673484345467181248416980477125291636439818370491131846864296975903997733150500592226328920457201), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304888344777294490376632198572251474628965927650177964593389844162009214155323191721686939853177904767576182085436131736162987784778749881334899969125776686579700 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- (* IRONCLAD::M (- IRONCLAD::S IRONCLAD::U)) (* 8 IRONCLAD::YYYY)) ; IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304888344777294490376632198572251474628965927650177964593389844162009214155323191721686939853177904767576182085436131736162987784778749881334899969125776686579700 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304888344777294490376632198572251474628965927650177964593389844162009214155323191721686939853177904767576182085436131736162987784778749881334899969125776686579700 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; (* IRONCLAD::Y1+Z1 IRONCLAD::Y1+Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::Y1+Z1 IRONCLAD::Y1+Z1) IRONCLAD::YY IRONCLAD::ZZ) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- (* IRONCLAD::Y1+Z1 IRONCLAD::Y1+Z1) IRONCLAD::YY IRONCLAD::ZZ) ; IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; processing (DEFMETHOD EC-ADD ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp521r1.lisp ; in: DEFMETHOD EC-ADD (SECP521R1-POINT SECP521R1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z1 IRONCLAD::Z1) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z2 IRONCLAD::Z2) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X1 IRONCLAD::Z2Z2) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X2 IRONCLAD::Z1Z1) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (* IRONCLAD::Y1 IRONCLAD::Z2 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y1 IRONCLAD::Z2 IRONCLAD::Z2Z2) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (* IRONCLAD::Y2 IRONCLAD::Z1 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y2 IRONCLAD::Z1 IRONCLAD::Z1Z1) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; (= IRONCLAD::U1 IRONCLAD::U2) ; ; note: forced to do %EQL/INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; (- IRONCLAD::U2 IRONCLAD::U1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::U2 IRONCLAD::U1) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; (* 4 IRONCLAD::H IRONCLAD::H) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 27459190640522438859927603196325572869077741200573221637577853836742172733590624208490238562645818219909185245565923432148487951998866575250296113164460228601) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 27459190640522438859927603196325572869077741200573221637577853836742172733590624208490238562645818219909185245565923432148487951998866575250296113164460228601) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 27459190640522438859927603196325572869077741200573221637577853836742172733590624208490238562645818219909185245565923432148487951998866575250296113164460228601), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 188501787658138776526316391973679239907820382867140805681144220780050698265428977917842924316820804490882044531700026161400423140624345724347059987430217219333705584053781995649373463435293932911088671107272600458753817342919239424041893079837504210452524545454859779999557194763235499008592737597507597791064490001) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 27459190640522438859927603196325572869077741200573221637577853836742172733590624208490238562645818219909185245565923432148487951998866575250296113164460228601), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 188501787658138776526316391973679239907820382867140805681144220780050698265428977917842924316820804490882044531700026161400423140624345724347059987430217219333705584053781995649373463435293932911088671107272600458753817342919239424041893079837504210452524545454859779999557194763235499008592737597507597791064490001) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::H IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- IRONCLAD::S2 IRONCLAD::S1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 2 (- IRONCLAD::S2 IRONCLAD::S1)) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (MOD (* 2 (- IRONCLAD::S2 IRONCLAD::S1)) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300), not a FIXNUM. ; (* IRONCLAD::U1 IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::R IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 2 IRONCLAD::V) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114301) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114301) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The second argument is a (MOD ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114301), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -20594392980391829144945702397244179651808305900429916228183390377556629550192968156367678921984363664931888934174442574111365963999149931437722084873345171450 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114301), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -20594392980391829144945702397244179651808305900429916228183390377556629550192968156367678921984363664931888934174442574111365963999149931437722084873345171450 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -20594392980391829144945702397244179651808305900429916228183390377556629550192968156367678921984363664931888934174442574111365963999149931437722084873345171450 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -20594392980391829144945702397244179651808305900429916228183390377556629550192968156367678921984363664931888934174442574111365963999149931437722084873345171450 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; (- IRONCLAD::V IRONCLAD::X3) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* 2 IRONCLAD::S1 IRONCLAD::J) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114301) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114301) ; . #2#), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114301), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245001) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114301), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245001) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; (* 2 IRONCLAD::S1 IRONCLAD::J)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The second argument is a (MOD ; 94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245001), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -141376340743604082394737293980259429930865287150355604260858165585038023699071733438382193237615603368161533398775019621050317355468259293260294990572662914500279188040336496737030097576470449683316503330454450344065363007189429568031419809878128157839393409091144834999667896072426624256444553198130698343298367500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245001), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -141376340743604082394737293980259429930865287150355604260858165585038023699071733438382193237615603368161533398775019621050317355468259293260294990572662914500279188040336496737030097576470449683316503330454450344065363007189429568031419809878128157839393409091144834999667896072426624256444553198130698343298367500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD ; (- (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; (* 2 IRONCLAD::S1 IRONCLAD::J)) ; IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -141376340743604082394737293980259429930865287150355604260858165585038023699071733438382193237615603368161533398775019621050317355468259293260294990572662914500279188040336496737030097576470449683316503330454450344065363007189429568031419809878128157839393409091144834999667896072426624256444553198130698343298367500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -141376340743604082394737293980259429930865287150355604260858165585038023699071733438382193237615603368161533398775019621050317355468259293260294990572662914500279188040336496737030097576470449683316503330454450344065363007189429568031419809878128157839393409091144834999667896072426624256444553198130698343298367500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; (+ IRONCLAD::Z1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (+ IRONCLAD::Z1 IRONCLAD::Z2) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245000 ; 323506657711507029453181996836191423905396619463411038446198094561650090834658129016932671774513214895603258054623797825080015583482483484232107124273991285595557946679886497826749103320711322052528368706114976541287213729802118735079263806492268073748703604020759669694249097481800780470115074570825703566287612472605957916899534347533818426664998835338294071500789521188679927290659570626952894517682587436359707625191202872228989641967995942405768892668191421400875000) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245000 ; 323506657711507029453181996836191423905396619463411038446198094561650090834658129016932671774513214895603258054623797825080015583482483484232107124273991285595557946679886497826749103320711322052528368706114976541287213729802118735079263806492268073748703604020759669694249097481800780470115074570825703566287612472605957916899534347533818426664998835338294071500789521188679927290659570626952894517682587436359707625191202872228989641967995942405768892668191421400875000) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD ; (* (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; IRONCLAD::H) ; IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245000 ; 323506657711507029453181996836191423905396619463411038446198094561650090834658129016932671774513214895603258054623797825080015583482483484232107124273991285595557946679886497826749103320711322052528368706114976541287213729802118735079263806492268073748703604020759669694249097481800780470115074570825703566287612472605957916899534347533818426664998835338294071500789521188679927290659570626952894517682587436359707625191202872228989641967995942405768892668191421400875000), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245000 ; 323506657711507029453181996836191423905396619463411038446198094561650090834658129016932671774513214895603258054623797825080015583482483484232107124273991285595557946679886497826749103320711322052528368706114976541287213729802118735079263806492268073748703604020759669694249097481800780470115074570825703566287612472605957916899534347533818426664998835338294071500789521188679927290659570626952894517682587436359707625191202872228989641967995942405768892668191421400875000), not a FIXNUM. ; (= IRONCLAD::S1 IRONCLAD::S2) ; ; note: forced to do %EQL/INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; processing (DEFMETHOD EC-SCALAR-MULT ...) ; processing (DEFMETHOD EC-POINT-ON-CURVE-P ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp521r1.lisp ; in: DEFMETHOD EC-POINT-ON-CURVE-P (SECP521R1-POINT) ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Y IRONCLAD::Y) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; (* IRONCLAD::Z IRONCLAD::Z) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (* IRONCLAD::Z IRONCLAD::Z) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* IRONCLAD::Z4 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (* -3 IRONCLAD::X IRONCLAD::Z4) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ IRONCLAD::X3 (* -3 IRONCLAD::X IRONCLAD::Z4) ; (* IRONCLAD::+SECP521R1-B+ IRONCLAD::Z6)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 7509052317104689266221718773197879358824997841303921778022934628560891681178716185992316901383281939388722899667008339423247323322262598318844851232229404578616146770570011358819916291506176207588497241970009430275979183224789671278182396703835216413712162605475020184622768221244312921726542116999523306208985601), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 7509052317104689266221718773197879358824997841303921778022934628560891681178716185992316901383281939388722899667008339423247323322262598318844851232229404578616146770570011358819916291506176207588497241970009430275979183224789671278182396703835216413712162605475020184622768221244312921726542116999523306208985601), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD ; (+ IRONCLAD::X3 (* -3 IRONCLAD::X IRONCLAD::Z4) ; (* IRONCLAD::+SECP521R1-B+ IRONCLAD::Z6)) ; IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; (- IRONCLAD::Y2 IRONCLAD::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MOD (- IRONCLAD::Y2 IRONCLAD::A) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; processing (DEFMETHOD EC-ENCODE-SCALAR ...) ; processing (DEFMETHOD EC-DECODE-SCALAR ...) ; processing (DEFMETHOD EC-ENCODE-POINT ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp521r1.lisp ; in: DEFMETHOD EC-ENCODE-POINT (SECP521R1-POINT) ; (* IRONCLAD::INVZ IRONCLAD::INVZ) ; ; 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. ; (MOD (* IRONCLAD::INVZ IRONCLAD::INVZ) IRONCLAD::+SECP521R1-P+) ; ; 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. ; (* IRONCLAD::INVZ2 IRONCLAD::INVZ) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), 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 (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), 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 (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), 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 (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), 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 (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), 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 (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (MOD (* IRONCLAD::INVZ2 IRONCLAD::INVZ) IRONCLAD::+SECP521R1-P+) ; ; 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. ; (* IRONCLAD::X IRONCLAD::INVZ2) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), not a FLOAT. ; (MOD (* IRONCLAD::X IRONCLAD::INVZ2) IRONCLAD::+SECP521R1-P+) ; ; 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. ; (* IRONCLAD::Y IRONCLAD::INVZ3) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), not a FLOAT. ; (MOD (* IRONCLAD::Y IRONCLAD::INVZ3) IRONCLAD::+SECP521R1-P+) ; ; 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 ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), 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 ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::X IRONCLAD::INVZ2) IRONCLAD::+SECP521R1-P+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), 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 ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::INVZ2 IRONCLAD::INVZ) IRONCLAD::+SECP521R1-P+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), 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 ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::INVZ IRONCLAD::INVZ) IRONCLAD::+SECP521R1-P+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), 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 ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (* IRONCLAD::INVZ IRONCLAD::INVZ) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::INVZ IRONCLAD::INVZ) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::INVZ2 IRONCLAD::INVZ) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; #1=(6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR FLOAT (RATIONAL 0 #1#)), not a (SIGNED-BYTE ; 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #2#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::INVZ2 IRONCLAD::INVZ) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::X IRONCLAD::INVZ2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; #1=(6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), not a FIXNUM. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (OR FLOAT (RATIONAL 0 #1#)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES REAL . #2#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::X IRONCLAD::INVZ2) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::Y IRONCLAD::INVZ3) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; #1=(6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), not a FIXNUM. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (OR FLOAT (RATIONAL 0 #1#)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES REAL . #2#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::Y IRONCLAD::INVZ3) IRONCLAD::+SECP521R1-P+) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFMETHOD EC-DECODE-POINT ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp521r1.lisp ; in: DEFMETHOD EC-DECODE-POINT ((EQL :SECP521R1) T) ; (AREF IRONCLAD::OCTETS 0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (- (AREF IRONCLAD::OCTETS 0) 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)). ; (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) ; ; 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 ; 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. ; (* -3 IRONCLAD::X) ; ; 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 ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (+ (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) (* -3 IRONCLAD::X) ; IRONCLAD::+SECP521R1-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 ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (MOD ; (+ (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) (* -3 IRONCLAD::X) ; IRONCLAD::+SECP521R1-B+) ; IRONCLAD::+SECP521R1-P+) ; ; 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. ; (= (LOGAND IRONCLAD::Y 1) IRONCLAD::Y-SIGN) ; ; note: unable to open code because: The operands might not be the same type. ; (MOD ; (+ (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) (* -3 IRONCLAD::X) ; IRONCLAD::+SECP521R1-B+) ; IRONCLAD::+SECP521R1-P+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), 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 ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (- (AREF IRONCLAD::OCTETS 0) 2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* -3 IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (+ (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) (* -3 IRONCLAD::X) ; IRONCLAD::+SECP521R1-B+) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (MOD ; (+ (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) (* -3 IRONCLAD::X) ; IRONCLAD::+SECP521R1-B+) ; IRONCLAD::+SECP521R1-P+) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFUN SECP521R1-PUBLIC-KEY ...) ; processing (DEFMETHOD MAKE-SIGNATURE ...) ; processing (DEFMETHOD DESTRUCTURE-SIGNATURE ...) ; processing (DEFMETHOD GENERATE-SIGNATURE-NONCE ...) ; processing (DEFMETHOD SIGN-MESSAGE ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp521r1.lisp ; in: DEFMETHOD SIGN-MESSAGE (SECP521R1-PRIVATE-KEY T) ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ (IRONCLAD::EC-ENCODE-POINT IRONCLAD::R) 1 ; (1+ (CEILING IRONCLAD::+SECP521R1-BITS+ 8))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (MOD IRONCLAD::R IRONCLAD::+SECP521R1-L+) ; ; 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. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (* IRONCLAD::SK IRONCLAD::R) ; ; 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 (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), 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 (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), 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 (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), 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 (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), 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 (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), 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 (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a SINGLE-FLOAT. ; (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R)) ; ; 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. ; (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; ; 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. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP521R1-L+) ; ; 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. ; (ZEROP IRONCLAD::R) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP521R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), 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 ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a RATIONAL. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (CEILING IRONCLAD::+SECP521R1-BITS+ 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 66.0d0) (SINGLE-FLOAT 66.0) ; (RATIONAL 66)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP521R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD IRONCLAD::R IRONCLAD::+SECP521R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), 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 ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a RATIONAL. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (CEILING IRONCLAD::+SECP521R1-BITS+ 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD IRONCLAD::R IRONCLAD::+SECP521R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (ZEROP IRONCLAD::S) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (CEILING IRONCLAD::+SECP521R1-BITS+ 8)) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (MOD IRONCLAD::R IRONCLAD::+SECP521R1-L+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::SK IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; #1=(6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a (OR FLOAT (RATIONAL 0 #1#)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER . #2#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP521R1-L+) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFMETHOD VERIFY-SIGNATURE ...) ; file: /usr/share/common-lisp/source/ironclad/src/public-key/secp521r1.lisp ; in: DEFMETHOD VERIFY-SIGNATURE (SECP521R1-PUBLIC-KEY T T) ; (LENGTH IRONCLAD::SIGNATURE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (* IRONCLAD::E IRONCLAD::W) ; ; 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. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP521R1-L+) ; ; 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. ; (* IRONCLAD::R IRONCLAD::W) ; ; 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. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP521R1-L+) ; ; 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. ; (SUBSEQ (IRONCLAD::EC-ENCODE-POINT IRONCLAD::RP) 1 ; (1+ (CEILING IRONCLAD::+SECP521R1-BITS+ 8))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (MOD IRONCLAD::V IRONCLAD::+SECP521R1-L+) ; ; 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. ; (< IRONCLAD::R IRONCLAD::+SECP521R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD IRONCLAD::V IRONCLAD::+SECP521R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), 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 ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP521R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), 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 ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a RATIONAL. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (CEILING IRONCLAD::+SECP521R1-BITS+ 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 66.0d0) (SINGLE-FLOAT 66.0) ; (RATIONAL 66)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP521R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP521R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), 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 ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL ; (-6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449) ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a RATIONAL. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (CEILING IRONCLAD::+SECP521R1-BITS+ 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP521R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (< IRONCLAD::S IRONCLAD::+SECP521R1-L+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a SINGLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * (6.86479766013061d156)) ; SINGLE-FLOAT ; (RATIONAL * ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), 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 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a DOUBLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * (6.86479766013061d156)) ; SINGLE-FLOAT ; (RATIONAL * ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * (6.86479766013061d156)) ; SINGLE-FLOAT ; (RATIONAL * ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (CEILING IRONCLAD::+SECP521R1-BITS+ 8)) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::E IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP521R1-L+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (* IRONCLAD::R IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP521R1-L+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (MOD IRONCLAD::V IRONCLAD::+SECP521R1-L+) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; #2=(6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a DOUBLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * #3=(6.86479766013061d156)) ; SINGLE-FLOAT ; (RATIONAL * ; #4=(6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a DOUBLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a (OR FLOAT (RATIONAL 0 #2#)), not a SINGLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT * #3#) SINGLE-FLOAT ; (RATIONAL * #4#)), not a SINGLE-FLOAT. ; processing (DEFMETHOD MAKE-PUBLIC-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PUBLIC-KEY ...) ; processing (DEFMETHOD MAKE-PRIVATE-KEY ...) ; processing (DEFMETHOD DESTRUCTURE-PRIVATE-KEY ...) ; processing (DEFMETHOD GENERATE-KEY-PAIR ...) ; processing (DEFMETHOD DIFFIE-HELLMAN ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ironclad/src/public-key/secp521r1-tmpC487WU3K.fasl ; compilation finished in 0:00:00.146 ; compiling file "/usr/share/common-lisp/source/cl-base64/package.lisp" (written 30 SEP 2020 06:06:36 PM): ; processing (DEFPACKAGE #:CL-BASE64 ...) ; processing (IN-PACKAGE #:CL-BASE64) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFCONSTANT +DECODE-TABLE+ ...) ; processing (DEFVAR *DECODE-TABLE* ...) ; processing (DECLAIM (TYPE DECODE-TABLE ...)) ; processing (DEFCONSTANT +URI-DECODE-TABLE+ ...) ; processing (DEFVAR *URI-DECODE-TABLE* ...) ; processing (DECLAIM (TYPE DECODE-TABLE ...)) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-base64/package-tmpKMQH3GP.fasl ; compilation finished in 0:00:00.013 ; compiling file "/usr/share/common-lisp/source/cl-base64/encode.lisp" (written 30 SEP 2020 06:06:36 PM): ; processing (IN-PACKAGE #:CL-BASE64) ; processing (DEFUN ROUND-NEXT-MULTIPLE ...) ; file: /usr/share/common-lisp/source/cl-base64/encode.lisp ; in: DEFUN ROUND-NEXT-MULTIPLE ; (MOD CL-BASE64::X CL-BASE64::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387904) ; (4611686018427387904))), 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 (-4611686018427387904) ; (4611686018427387904))), 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. ; (+ CL-BASE64::X (THE FIXNUM (- CL-BASE64::N CL-BASE64::REMAINDER))) ; ; 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 CL-BASE64::X CL-BASE64::N) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL #1=(-4611686018427387904) ; #2=(4611686018427387904))), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL #3=(-9223372036854775808) ; #4=(9223372036854775807))) ; . #5=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR FLOAT (RATIONAL #1# #2#)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES (OR FLOAT (RATIONAL #3# #4#)) . #5#), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL #2=(-9223372036854775808) ; #3=(9223372036854775807)), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (RATIONAL #2# #3#), not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline (unsigned-byte 64) comparison (cost 5) because: ; The first argument is a (RATIONAL #1=(-4611686018427387904) ; #2=(9223372036854775807)), not a (UNSIGNED-BYTE ; 64). ; unable to do inline (signed-byte 64) comparison (cost 5) because: ; The first argument is a (RATIONAL #1# #2#), not a (SIGNED-BYTE 64). ; (+ CL-BASE64::X (THE FIXNUM (- CL-BASE64::N CL-BASE64::REMAINDER))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; processing (DEFMACRO DEF-*-TO-BASE64-* ...) ; processing (DEF-*-TO-BASE64-* :STRING ...) ; file: /usr/share/common-lisp/source/cl-base64/encode.lisp ; in: DEF-*-TO-BASE64-* :STRING ; (CL-BASE64::DEF-*-TO-BASE64-* :STRING :STRING) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF ; --> CL-BASE64::OUTPUT-GROUP THE + THE ASH CHAR-CODE THE CHAR ; ==> ; 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. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF IF ; --> CL-BASE64::OUTPUT-GROUP THE ASH CHAR-CODE THE CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY TAGBODY CL-BASE64::OUTPUT-GROUP THE ; --> + ; ==> ; 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. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; processing (DEF-*-TO-BASE64-* :STRING ...) ; file: /usr/share/common-lisp/source/cl-base64/encode.lisp ; in: DEF-*-TO-BASE64-* :STRING ; (CL-BASE64::DEF-*-TO-BASE64-* :STRING :STREAM) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF ; --> CL-BASE64::OUTPUT-GROUP THE + THE ASH CHAR-CODE THE CHAR ; ==> ; 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. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF IF ; --> CL-BASE64::OUTPUT-GROUP THE ASH CHAR-CODE THE CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY TAGBODY CL-BASE64::OUTPUT-GROUP THE ; --> + ; ==> ; 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. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; processing (DEF-*-TO-BASE64-* :USB8-ARRAY ...) ; file: /usr/share/common-lisp/source/cl-base64/encode.lisp ; in: DEF-*-TO-BASE64-* :USB8-ARRAY ; (CL-BASE64::DEF-*-TO-BASE64-* :USB8-ARRAY :STRING) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF ; --> CL-BASE64::OUTPUT-GROUP THE + THE ASH THE AREF ; ==> ; 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. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF IF ; --> CL-BASE64::OUTPUT-GROUP THE ASH THE AREF ; ==> ; 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. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY TAGBODY CL-BASE64::OUTPUT-GROUP THE ; --> + ; ==> ; 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. ; processing (DEF-*-TO-BASE64-* :USB8-ARRAY ...) ; file: /usr/share/common-lisp/source/cl-base64/encode.lisp ; in: DEF-*-TO-BASE64-* :USB8-ARRAY ; (CL-BASE64::DEF-*-TO-BASE64-* :USB8-ARRAY :STREAM) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF ; --> CL-BASE64::OUTPUT-GROUP THE + THE ASH THE AREF ; ==> ; 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. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF IF ; --> CL-BASE64::OUTPUT-GROUP THE ASH THE AREF ; ==> ; 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. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY TAGBODY CL-BASE64::OUTPUT-GROUP THE ; --> + ; ==> ; 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. ; processing (DEFUN INTEGER-TO-BASE64-STRING ...) ; file: /usr/share/common-lisp/source/cl-base64/encode.lisp ; in: DEFUN INTEGER-TO-BASE64-STRING ; (MOD CL-BASE64::PADDED-BITS 24) ; ; 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 (SIGNED-BYTE 64). ; ; note: unable to ; convert integer division to multiplication ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; (ZEROP CL-BASE64::REMAINDER-PADDING) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 (24))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MOD CL-BASE64::PADDED-BITS 24) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-24) (24))), 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 (-24) (24))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-24) (24))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (- 24 CL-BASE64::REMAINDER-PADDING) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a (OR FLOAT (RATIONAL 0 (24))), not a FLOAT. ; (/ CL-BASE64::PADDING-BITS 6) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 24)), not a FLOAT. ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 24)), not a INTEGER. ; (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS) ; ; 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 (OR FLOAT (RATIONAL 0 24)), 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 (OR FLOAT (RATIONAL 0 24)), 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 (OR FLOAT (RATIONAL 0 24)), 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 (OR FLOAT (RATIONAL 0 24)), not a SINGLE-FLOAT. ; (/ (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS) 6) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (/ CL-BASE64::PADDING-BITS 3) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 24)), not a FLOAT. ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 24)), not a INTEGER. ; (INTEGER-LENGTH CL-BASE64::INPUT) ; ; note: forced to do full call ; unable to do inline positive fixnum integer-length (cost 24) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 62). ; unable to do inline fixnum integer-length (cost 25) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; (MOD CL-BASE64::PADDED-BITS 24) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR FLOAT (RATIONAL #2=(-24) #3=(24))), not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL #4=(0) #5=(48))) ; . #6=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (OR FLOAT (RATIONAL #2# #3#)), not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL #4# #5#)) . #6#), not a (VALUES ; FIXNUM ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL #2=(-24) #3=(48)), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (RATIONAL #2# #3#), not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL 0 #2=(48)), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (RATIONAL 0 #2#), not a FIXNUM. ; etc. ; (- 24 CL-BASE64::REMAINDER-PADDING) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR FLOAT (RATIONAL 0 #1=(24))), not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL #2=(0) 24)) . #3=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR FLOAT (RATIONAL 0 #1#)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES (OR FLOAT (RATIONAL #2# 24)) . #3#), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a (OR FLOAT (RATIONAL 0 24)), not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a (OR FLOAT (RATIONAL 0 24)), not a SINGLE-FLOAT. ; The result is a (VALUES REAL . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (* CL-BASE64::COLUMNS (TRUNCATE CL-BASE64::PADDED-LENGTH CL-BASE64::COLUMNS)) ; ; note: forced to do */SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653957237540927630737409) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653957237540927630737409) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; (- CL-BASE64::PADDED-LENGTH ; (* CL-BASE64::COLUMNS ; (TRUNCATE CL-BASE64::PADDED-LENGTH CL-BASE64::COLUMNS))) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653957237540927630737409), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125313 ; 21267647932558653966460912964485513215) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653957237540927630737409), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125313 ; 21267647932558653966460912964485513215) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (ASH CL-BASE64::INPUT (/ CL-BASE64::PADDING-BITS 3)) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR FLOAT (RATIONAL 0 8)), not a (UNSIGNED-BYTE ; 62). ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (OR FLOAT (RATIONAL 0 8)), not a (UNSIGNED-BYTE ; 62). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (ASH CL-BASE64::INT -6) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN INTEGER-TO-BASE64-STREAM ...) ; file: /usr/share/common-lisp/source/cl-base64/encode.lisp ; in: DEFUN INTEGER-TO-BASE64-STREAM ; (MOD CL-BASE64::PADDED-BITS 24) ; ; 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 (SIGNED-BYTE 64). ; ; note: unable to ; convert integer division to multiplication ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; (ZEROP CL-BASE64::REMAINDER-PADDING) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 (24))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MOD CL-BASE64::PADDED-BITS 24) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-24) (24))), 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 (-24) (24))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-24) (24))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (- 24 CL-BASE64::REMAINDER-PADDING) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a (OR FLOAT (RATIONAL 0 (24))), not a FLOAT. ; (/ CL-BASE64::PADDING-BITS 6) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 24)), not a FLOAT. ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 24)), not a INTEGER. ; (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS) ; ; 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 (OR FLOAT (RATIONAL 0 24)), 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 (OR FLOAT (RATIONAL 0 24)), 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 (OR FLOAT (RATIONAL 0 24)), 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 (OR FLOAT (RATIONAL 0 24)), not a SINGLE-FLOAT. ; (/ (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS) 6) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (- CL-BASE64::STRLEN CL-BASE64::PADDING-CHARS) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a (OR FLOAT (RATIONAL 0 4)), not a FLOAT. ; (1- CL-BASE64::NONPAD-CHARS) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL -4611686018427387908 ; 4611686018427387903)), not a FLOAT. ; (/ CL-BASE64::PADDING-BITS 3) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 24)), not a FLOAT. ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 24)), not a INTEGER. ; (= CL-BASE64::STRPOS CL-BASE64::NONPAD-CHARS) ; ; note: unable to open code because: The operands might not be the same type. ; (INTEGER-LENGTH CL-BASE64::INPUT) ; ; note: forced to do full call ; unable to do inline positive fixnum integer-length (cost 24) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 62). ; unable to do inline fixnum integer-length (cost 25) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; (MOD CL-BASE64::PADDED-BITS 24) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR FLOAT (RATIONAL #2=(-24) #3=(24))), not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL #4=(0) #5=(48))) ; . #6=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (OR FLOAT (RATIONAL #2# #3#)), not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL #4# #5#)) . #6#), not a (VALUES ; FIXNUM ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL #2=(-24) #3=(48)), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (RATIONAL #2# #3#), not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL 0 #2=(48)), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (RATIONAL 0 #2#), not a FIXNUM. ; etc. ; (- 24 CL-BASE64::REMAINDER-PADDING) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR FLOAT (RATIONAL 0 #1=(24))), not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL #2=(0) 24)) . #3=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR FLOAT (RATIONAL 0 #1#)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES (OR FLOAT (RATIONAL #2# 24)) . #3#), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a (OR FLOAT (RATIONAL 0 24)), not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a (OR FLOAT (RATIONAL 0 24)), not a SINGLE-FLOAT. ; The result is a (VALUES REAL . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (- CL-BASE64::STRLEN CL-BASE64::PADDING-CHARS) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR FLOAT (RATIONAL 0 4)), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL -4611686018427387908 4611686018427387903)) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a (OR FLOAT (RATIONAL 0 4)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL -4611686018427387908 4611686018427387903)) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (1- CL-BASE64::NONPAD-CHARS) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR FLOAT ; (RATIONAL -4611686018427387908 ; 4611686018427387903)), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL -4611686018427387909 4611686018427387902)) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL -4611686018427387908 ; 4611686018427387903)), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL -4611686018427387909 4611686018427387902)) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (ASH CL-BASE64::INPUT (/ CL-BASE64::PADDING-BITS 3)) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR FLOAT (RATIONAL 0 8)), not a (UNSIGNED-BYTE ; 62). ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (OR FLOAT (RATIONAL 0 8)), not a (UNSIGNED-BYTE ; 62). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (ASH CL-BASE64::INT -6) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-base64/encode-tmp8N0WO2QA.fasl ; compilation finished in 0:00:00.094 ; compiling file "/usr/share/common-lisp/source/cl-base64/decode.lisp" (written 30 SEP 2020 06:06:36 PM): ; processing (IN-PACKAGE #:CL-BASE64) ; processing (DEFINE-CONDITION BASE64-ERROR ...) ; processing (DEFINE-CONDITION BAD-BASE64-CHARACTER ...) ; processing (DEFINE-CONDITION INCOMPLETE-BASE64-DATA ...) ; processing (DEFTYPE ARRAY-INDEX ...) ; processing (DEFTYPE ARRAY-LENGTH ...) ; processing (DEFTYPE CHARACTER-CODE ...) ; processing (DEFMACRO ETYPECASE/UNROLL ...) ; processing (DEFMACRO LET/TYPED ...) ; processing (DEFMACRO DEFINE-BASE64-DECODER ...) ; processing (DEFINE-BASE64-DECODER :STRING ...) ; file: /usr/share/common-lisp/source/cl-base64/decode.lisp ; in: DEFINE-BASE64-DECODER :STRING ; (CL-BASE64::DEFINE-BASE64-DECODER :STRING :USB8-ARRAY) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> LET COND IF IF IF PROGN CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN ; --> IF SETQ THE CHAR-CODE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; processing (DEFINE-BASE64-DECODER :STRING ...) ; file: /usr/share/common-lisp/source/cl-base64/decode.lisp ; in: DEFINE-BASE64-DECODER :STRING ; (CL-BASE64::DEFINE-BASE64-DECODER :STRING :STRING) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> LET COND IF IF IF PROGN CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN ; --> IF SETQ THE CHAR-CODE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; processing (DEFINE-BASE64-DECODER :STRING ...) ; file: /usr/share/common-lisp/source/cl-base64/decode.lisp ; in: DEFINE-BASE64-DECODER :STRING ; (CL-BASE64::DEFINE-BASE64-DECODER :STRING :INTEGER) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> LET COND IF IF IF PROGN CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN ; --> IF SETQ THE CHAR-CODE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> LET COND IF IF PROGN CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN ; --> COND IF IF IF IF THE PROGN WHEN IF PROGN LET SETQ THE LOGIOR ; ==> ; (ASH CL-BASE64::RESULT 8) ; ; 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 result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> LET COND IF IF PROGN CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN ; --> COND IF IF IF IF THE PROGN WHEN IF PROGN LET SETQ THE ; ==> ; (LOGIOR (ASH CL-BASE64::RESULT 8) BYTE) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> LET COND IF IF IF PROGN CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN ; --> COND IF IF IF IF THE PROGN WHEN IF PROGN LET SETQ THE LOGIOR ; ==> ; (ASH CL-BASE64::RESULT 8) ; ; 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 result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> LET COND IF IF IF PROGN CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN ; --> COND IF IF IF IF THE PROGN WHEN IF PROGN LET SETQ THE ; ==> ; (LOGIOR (ASH CL-BASE64::RESULT 8) BYTE) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> LET COND IF PROGN CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN COND ; --> IF IF IF IF THE PROGN WHEN IF PROGN LET SETQ THE LOGIOR ; ==> ; (ASH CL-BASE64::RESULT 8) ; ; 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 result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> LET COND IF PROGN CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN COND ; --> IF IF IF IF THE PROGN WHEN IF PROGN LET SETQ THE ; ==> ; (LOGIOR (ASH CL-BASE64::RESULT 8) BYTE) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFINE-BASE64-DECODER :STRING ...) ; file: /usr/share/common-lisp/source/cl-base64/decode.lisp ; in: DEFINE-BASE64-DECODER :STRING ; (CL-BASE64::DEFINE-BASE64-DECODER :STRING :STREAM) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> LET COND IF IF IF PROGN CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN ; --> IF SETQ THE CHAR-CODE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; processing (DEFINE-BASE64-DECODER :STREAM ...) ; processing (DEFINE-BASE64-DECODER :STREAM ...) ; processing (DEFINE-BASE64-DECODER :STREAM ...) ; file: /usr/share/common-lisp/source/cl-base64/decode.lisp ; in: DEFINE-BASE64-DECODER :STREAM ; (CL-BASE64::DEFINE-BASE64-DECODER :STREAM :INTEGER) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY ; --> PROGN COND IF IF IF IF THE PROGN WHEN IF PROGN LET SETQ THE LOGIOR ; ==> ; (ASH CL-BASE64::RESULT 8) ; ; 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 result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY ; --> PROGN COND IF IF IF IF THE PROGN WHEN IF PROGN LET SETQ THE ; ==> ; (LOGIOR (ASH CL-BASE64::RESULT 8) BYTE) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFINE-BASE64-DECODER :STREAM ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-base64/decode-tmpZ9QI367A.fasl ; compilation finished in 0:00:00.151 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/packages.lisp" (written 26 JAN 2022 06:40:10 PM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE :CL-PPCRE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/packages-tmpRD10QMAI.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/specials.lisp" (written 26 JAN 2022 06:40:10 PM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFVAR *STANDARD-OPTIMIZE-SETTINGS* ...) ; processing (DEFVAR *SPECIAL-OPTIMIZE-SETTINGS* ...) ; processing (DEFVAR *EXTENDED-MODE-P* ...) ; processing (DECLAIM (BOOLEAN *EXTENDED-MODE-P*)) ; processing (DEFVAR *REGEX-CHAR-CODE-LIMIT* ...) ; processing (DECLAIM (FIXNUM *REGEX-CHAR-CODE-LIMIT*)) ; processing (DEFVAR *STRING* ...) ; processing (DECLAIM (SIMPLE-STRING *STRING*)) ; processing (DEFVAR *START-POS* ...) ; processing (DECLAIM (FIXNUM *START-POS*)) ; processing (DEFVAR *REAL-START-POS* ...) ; processing (DECLAIM (TYPE # ...)) ; processing (DEFVAR *END-POS* ...) ; processing (DECLAIM (FIXNUM *END-POS*)) ; processing (DEFVAR *REG-STARTS* ...) ; processing (DECLAIM (SIMPLE-VECTOR *REG-STARTS*)) ; processing (DEFVAR *REGS-MAYBE-START* ...) ; processing (DECLAIM (SIMPLE-VECTOR *REGS-MAYBE-START*)) ; processing (DEFVAR *REG-ENDS* ...) ; processing (DECLAIM (SIMPLE-VECTOR *REG-ENDS*)) ; processing (DEFVAR *END-STRING-POS* ...) ; processing (DEFVAR *REP-NUM* ...) ; processing (DECLAIM (FIXNUM *REP-NUM*)) ; processing (DEFVAR *ZERO-LENGTH-NUM* ...) ; processing (DECLAIM (FIXNUM *ZERO-LENGTH-NUM*)) ; processing (DEFVAR *REPEAT-COUNTERS* ...) ; processing (DECLAIM (TYPE # ...)) ; processing (DEFVAR *LAST-POS-STORES* ...) ; processing (DECLAIM (SIMPLE-VECTOR *LAST-POS-STORES*)) ; processing (DEFVAR *USE-BMH-MATCHERS* ...) ; processing (DEFVAR *OPTIMIZE-CHAR-CLASSES* ...) ; processing (DEFVAR *PROPERTY-RESOLVER* ...) ; processing (DEFVAR *ALLOW-QUOTING* ...) ; processing (DEFVAR *ALLOW-NAMED-REGISTERS* ...) ; processing (PUSHNEW :CL-PPCRE ...) ; processing (DEFVAR *HYPERDOC-BASE-URI* ...) ; processing (LET (#) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/specials-tmp2L2R3A8M.fasl ; compilation finished in 0:00:00.005 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/util.lisp" (written 26 JAN 2022 06:40:10 PM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFMACRO DEFCONSTANT ...) ; processing (DEFMACRO WITH-UNIQUE-NAMES ...) ; processing (DEFMACRO WITH-REBINDING ...) ; processing (DECLAIM (INLINE DIGIT-CHAR-P)) ; processing (DEFUN DIGIT-CHAR-P ...) ; processing (DECLAIM (INLINE WORD-CHAR-P)) ; processing (DEFUN WORD-CHAR-P ...) ; processing (DEFCONSTANT +WHITESPACE-CHAR-STRING+ ...) ; processing (DEFUN WHITESPACEP ...) ; processing (DEFMACRO MAYBE-COERCE-TO-SIMPLE-STRING ...) ; processing (DECLAIM (INLINE NSUBSEQ)) ; processing (DEFUN NSUBSEQ ...) ; processing (DEFUN NORMALIZE-VAR-LIST ...) ; processing (DEFUN STRING-LIST-TO-SIMPLE-STRING ...) ; file: /usr/share/common-lisp/source/cl-ppcre/util.lisp ; in: DEFUN STRING-LIST-TO-SIMPLE-STRING ; (REPLACE CL-PPCRE::RESULT-STRING STRING :START1 CL-PPCRE::CURR-POS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a SIMPLE-BASE-STRING. ; processing (DEFUN COMPLEMENT* ...) ; file: /usr/share/common-lisp/source/cl-ppcre/util.lisp ; in: DEFUN COMPLEMENT* ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/util-tmp1CJ2OZ96.fasl ; compilation finished in 0:00:00.024 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/errors.lisp" (written 26 JAN 2022 06:40:10 PM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFVAR *SYNTAX-ERROR-STRING* ...) ; processing (DEFINE-CONDITION PPCRE-ERROR ...) ; processing (DEFINE-CONDITION PPCRE-SYNTAX-ERROR ...) ; processing (SETF (DOCUMENTATION # ...) ...) ; processing (SETF (DOCUMENTATION # ...) ...) ; processing (DEFINE-CONDITION PPCRE-INVOCATION-ERROR ...) ; processing (DEFMACRO SIGNAL-SYNTAX-ERROR* ...) ; processing (DEFMACRO SIGNAL-SYNTAX-ERROR ...) ; processing (DEFMACRO SIGNAL-INVOCATION-ERROR ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/errors-tmpDKS9KGUG.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/charset.lisp" (written 26 JAN 2022 06:40:10 PM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFCONSTANT +PROBE-DEPTH+ ...) ; processing (DEFUN MAKE-CHAR-VECTOR ...) ; processing (DEFSTRUCT (CHARSET #) ...) ; processing (DEFMETHOD MAKE-LOAD-FORM ...) ; processing (DECLAIM (INLINE MIX)) ; processing (DEFUN MIX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN MIX ; (+ CL-PPCRE::CODE CL-PPCRE::HASH) ; ; note: unable to ; 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: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; processing (DECLAIM (INLINE COMPUTE-INDEX)) ; processing (DEFUN COMPUTE-INDEX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN COMPUTE-INDEX ; (LENGTH VECTOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))), not a RATIONAL. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))), 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 (-4611686018427387899) ; (4611686018427387899))), 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. ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL #1=(-4611686018427387899) ; #2=(4611686018427387899))), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL #3=(-4611686018427387900) ; #4=(9223372036854775798))) ; . #5=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR FLOAT (RATIONAL #1# #2#)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES (OR FLOAT (RATIONAL #3# #4#)) . #5#), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL #2=(-4611686018427387900) ; #3=(9223372036854775798)), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (RATIONAL #2# #3#), not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL #2=(-4611686018427387899) ; #3=(9223372036854775798)), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (RATIONAL #2# #3#), not a FIXNUM. ; etc. ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR FLOAT ; (RATIONAL #2=(-4611686018427387899) ; #3=(4611686018427387899))), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL #4=(-4611686018427387898) ; #5=(4611686018427387900))) ; . #6=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (OR FLOAT (RATIONAL #2# #3#)), not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL #4# #5#)) . #6#), not a (VALUES ; FIXNUM ; &REST ; T). ; etc. ; processing (DEFUN IN-CHARSET-P ...) ; processing (DEFUN ADD-TO-CHARSET ...) ; processing (DEFUN %ADD-TO-CHARSET ...) ; processing (DEFUN %ADD-TO-CHARSET/EXPAND ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN %ADD-TO-CHARSET/EXPAND ; (* 2 CL-PPCRE::NEW-SIZE) ; ; note: unable to ; 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 SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (>= CL-PPCRE::NEW-SIZE 371370) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * 371370.0d0) ; (SINGLE-FLOAT * 371370.0) ; (RATIONAL * 371370)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (* 2 CL-PPCRE::NEW-SIZE) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (>= CL-PPCRE::NEW-SIZE 371370) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (* 2 (LENGTH CL-PPCRE::OLD-VECTOR)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline ASH ; processing (DEFUN MAP-CHARSET ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN MAP-CHARSET ; (DECF CL-PPCRE::N) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387902) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387902) . #2#), not a (VALUES ; FIXNUM ; &REST ; T). ; etc. ; processing (DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET 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. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/charset-tmp3E37X9HX.fasl ; compilation finished in 0:00:00.035 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/charmap.lisp" (written 26 JAN 2022 06:40:10 PM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFSTRUCT (CHARMAP #) ...) ; processing (DEFMETHOD MAKE-LOAD-FORM ...) ; processing (DECLAIM (INLINE IN-CHARMAP-P)) ; processing (DEFUN IN-CHARMAP-P ...) ; processing (DEFUN CHARMAP-CONTENTS ...) ; processing (DEFUN MAKE-CHARMAP ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charmap.lisp ; in: DEFUN MAKE-CHARMAP ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; processing (DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charmap.lisp ; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ; (1- CL-PPCRE::END) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LOOP-LIMIT-23) ; ; 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. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> 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. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; (1- CL-PPCRE::END) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LOOP-LIMIT-23) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/charmap-tmpXPWOLC8S.fasl ; compilation finished in 0:00:00.036 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/chartest.lisp" (written 26 JAN 2022 06:40:10 PM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION ...) ; file: /usr/share/common-lisp/source/cl-ppcre/chartest.lisp ; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET 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. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; processing (DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ...) ; file: /usr/share/common-lisp/source/cl-ppcre/chartest.lisp ; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: unable to ; 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. ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; 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 (SIGNED-BYTE 64). ; ; note: unable to ; convert integer division to multiplication ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-2) (2))), 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. ; (- CL-PPCRE::END CL-PPCRE::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. ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; 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 (SIGNED-BYTE 64). ; ; note: unable to ; convert integer division to multiplication ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-2) (2))), 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. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (<= (HASH-TABLE-COUNT HASH-TABLE) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (<= (CL-PPCRE::CHARSET-COUNT CL-PPCRE::CHARSET) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/chartest-tmpUSWNVC8E.fasl ; compilation finished in 0:00:00.015 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/lexer.lisp" (written 26 JAN 2022 06:40:10 PM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DECLAIM (INLINE MAP-CHAR-TO-SPECIAL-CLASS)) ; processing (DEFUN MAP-CHAR-TO-SPECIAL-CHAR-CLASS ...) ; processing (DECLAIM (INLINE MAKE-LEXER-INTERNAL)) ; processing (DEFSTRUCT (LEXER #) ...) ; processing (DEFUN MAKE-LEXER ...) ; processing (DECLAIM (INLINE END-OF-STRING-P)) ; processing (DEFUN END-OF-STRING-P ...) ; processing (DECLAIM (INLINE LOOKING-AT-P)) ; processing (DEFUN LOOKING-AT-P ...) ; processing (DECLAIM (INLINE NEXT-CHAR-NON-EXTENDED)) ; processing (DEFUN NEXT-CHAR-NON-EXTENDED ...) ; processing (DEFUN NEXT-CHAR ...) ; file: /usr/share/common-lisp/source/cl-ppcre/lexer.lisp ; in: DEFUN NEXT-CHAR ; (- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER) 2) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; processing (DECLAIM (INLINE FAIL)) ; processing (DEFUN FAIL ...) ; processing (DEFUN GET-NUMBER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/lexer.lisp ; in: DEFUN GET-NUMBER ; (IF (< CL-PPCRE::END-POS CL-PPCRE::LEXER-LEN) ; CL-PPCRE::END-POS ; CL-PPCRE::LEXER-LEN) ; ; note: doing signed word to integer coercion (cost 20) ; processing (DECLAIM (INLINE TRY-NUMBER)) ; processing (DEFUN TRY-NUMBER ...) ; processing (DECLAIM (INLINE MAKE-CHAR-FROM-CODE)) ; processing (DEFUN MAKE-CHAR-FROM-CODE ...) ; processing (DEFUN UNESCAPE-CHAR ...) ; file: /usr/share/common-lisp/source/cl-ppcre/lexer.lisp ; in: DEFUN UNESCAPE-CHAR ; (CHAR-UPCASE CL-PPCRE::NEXT-CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; processing (DEFUN READ-CHAR-PROPERTY ...) ; processing (DEFUN COLLECT-CHAR-CLASS ...) ; processing (DEFUN MAYBE-PARSE-FLAGS ...) ; processing (DEFUN GET-QUANTIFIER ...) ; processing (DEFUN PARSE-REGISTER-NAME-AUX ...) ; processing (DECLAIM (INLINE UNGET-TOKEN)) ; processing (DEFUN UNGET-TOKEN ...) ; processing (DEFUN GET-TOKEN ...) ; processing (DECLAIM (INLINE START-OF-SUBEXPR-P)) ; processing (DEFUN START-OF-SUBEXPR-P ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/lexer-tmp68FKQK8H.fasl ; compilation finished in 0:00:00.100 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/parser.lisp" (written 26 JAN 2022 06:40:10 PM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFUN GROUP ...) ; file: /usr/share/common-lisp/source/cl-ppcre/parser.lisp ; in: DEFUN GROUP ; (+ CL-PPCRE::OPEN-PAREN-POS 2) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; processing (DEFUN GREEDY-QUANT ...) ; processing (DEFUN QUANT ...) ; processing (DEFUN SEQ ...) ; processing (DEFUN REG-EXPR ...) ; processing (DEFUN PARSE-STRING ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/parser-tmpMU3D23G2.fasl ; compilation finished in 0:00:00.018 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class.lisp" (written 26 JAN 2022 06:40:10 PM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFCLASS REGEX ...) ; processing (DEFCLASS SEQ ...) ; processing (DEFCLASS ALTERNATION ...) ; processing (DEFCLASS LOOKAHEAD ...) ; processing (DEFCLASS LOOKBEHIND ...) ; processing (DEFCLASS REPETITION ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFCLASS REGISTER ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFCLASS STANDALONE ...) ; processing (DEFCLASS BACK-REFERENCE ...) ; processing (DEFCLASS CHAR-CLASS ...) ; processing (DEFCLASS STR ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFCLASS ANCHOR ...) ; processing (DEFCLASS EVERYTHING ...) ; processing (DEFCLASS WORD-BOUNDARY ...) ; processing (DEFCLASS BRANCH ...) ; processing (DEFCLASS FILTER ...) ; processing (DEFCLASS VOID ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class.lisp ; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (STR) ; (COERCE CL-PPCRE::STR-SLOT 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-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 SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER . #1=((*)))) ; VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * . #1#). ; (LENGTH (CL-PPCRE::STR CL-PPCRE::STR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/regex-class-tmpP7RRFRW4.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp" (written 26 JAN 2022 06:40:10 PM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFMETHOD LEN ...) ; processing (DEFMETHOD STR ...) ; processing (DEFMETHOD SKIP ...) ; processing (DEFMETHOD START-OF-END-STRING-P ...) ; processing (DEFGENERIC CASE-MODE ...) ; processing (DEFMETHOD CASE-MODE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD CASE-MODE (STR T) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; 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 open code because: The operands might not be the same type. ; processing (DEFMETHOD CASE-MODE ...) ; processing (DEFGENERIC COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFGENERIC REMOVE-REGISTERS ...) ; processing (DEFMETHOD REMOVE-REGISTERS ...) ; processing (DEFMETHOD REMOVE-REGISTERS ...) ; processing (DEFMETHOD REMOVE-REGISTERS ...) ; processing (DEFMETHOD REMOVE-REGISTERS ...) ; processing (DEFMETHOD REMOVE-REGISTERS ...) ; processing (DEFMETHOD REMOVE-REGISTERS ...) ; processing (DEFMETHOD REMOVE-REGISTERS ...) ; processing (DEFMETHOD REMOVE-REGISTERS ...) ; processing (DEFMETHOD REMOVE-REGISTERS ...) ; processing (DEFGENERIC EVERYTHINGP ...) ; processing (DEFMETHOD EVERYTHINGP ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD EVERYTHINGP (SEQ) ; (LENGTH CL-PPCRE::CLEANED-ELEMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; processing (DEFMETHOD EVERYTHINGP ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD EVERYTHINGP (ALTERNATION) ; (LENGTH CL-PPCRE::CHOICES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; processing (DEFMETHOD EVERYTHINGP ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD EVERYTHINGP (REPETITION) ; (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; 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 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 (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a 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 (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a (OR ; (COMPLEX ; SINGLE-FLOAT) ; (COMPLEX ; DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) ; (SINGLE-FLOAT 1.0 1.0) (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do #1# (cost 3) because: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) ; (SINGLE-FLOAT 1.0 1.0) (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; processing (DEFMETHOD EVERYTHINGP ...) ; processing (DEFMETHOD EVERYTHINGP ...) ; processing (DEFMETHOD EVERYTHINGP ...) ; processing (DEFMETHOD EVERYTHINGP ...) ; processing (DEFGENERIC REGEX-LENGTH ...) ; processing (DEFMETHOD REGEX-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD REGEX-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-LENGTH ; CL-PPCRE::SUB-REGEX) ; IF (NOT CL-PPCRE::LEN) ; DO ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-5 CL-PPCRE::LEN) ; ; 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: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; processing (DEFMETHOD REGEX-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD REGEX-LENGTH (ALTERNATION) ; (/= CL-PPCRE::LEN CL-PPCRE::OLD-LEN) ; ; 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 open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). ; unable to do #1# (cost 3) because: ; The first argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). ; etc. ; processing (DEFMETHOD REGEX-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD REGEX-LENGTH (BRANCH) ; (EQL CL-PPCRE::THEN-LENGTH ; (CL-PPCRE::REGEX-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; note: forced to do IF-EQL (cost 15) ; unable to do #1=inline float comparison (cost 4) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do #1# (cost 4) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; processing (DEFMETHOD REGEX-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD REGEX-LENGTH (REPETITION) ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; 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. ; (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; note: forced to do IF-EQL (cost 15) ; unable to do #1=inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do #1# (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFMETHOD REGEX-LENGTH ...) ; processing (DEFMETHOD REGEX-LENGTH ...) ; processing (DEFMETHOD REGEX-LENGTH ...) ; processing (DEFMETHOD REGEX-LENGTH ...) ; processing (DEFMETHOD REGEX-LENGTH ...) ; processing (DEFMETHOD REGEX-LENGTH ...) ; processing (DEFMETHOD REGEX-LENGTH ...) ; processing (DEFMETHOD REGEX-LENGTH ...) ; processing (DEFGENERIC REGEX-MIN-LENGTH ...) ; processing (DEFMETHOD REGEX-MIN-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD REGEX-MIN-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::SUM CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-5 CL-PPCRE::LEN) ; ; 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: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; processing (DEFMETHOD REGEX-MIN-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD REGEX-MIN-LENGTH (ALTERNATION) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::MINIMIZE CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF < IF ; ==> ; (< #:LOOP-MAXMIN-TEMP-9 #:LOOP-MAXMIN-8) ; ; note: unable to ; open-code float 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: forced to do GENERIC-< (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; processing (DEFMETHOD REGEX-MIN-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD REGEX-MIN-LENGTH (BRANCH) ; (MIN (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH)) ; (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; 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: forced to do GENERIC-< (cost 10) ; 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 GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; processing (DEFMETHOD REGEX-MIN-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; 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: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFMETHOD REGEX-MIN-LENGTH ...) ; processing (DEFMETHOD REGEX-MIN-LENGTH ...) ; processing (DEFMETHOD REGEX-MIN-LENGTH ...) ; processing (DEFMETHOD REGEX-MIN-LENGTH ...) ; processing (DEFMETHOD REGEX-MIN-LENGTH ...) ; processing (DEFMETHOD REGEX-MIN-LENGTH ...) ; processing (DEFMETHOD REGEX-MIN-LENGTH ...) ; processing (DEFGENERIC COMPUTE-OFFSETS ...) ; processing (DEFMETHOD COMPUTE-OFFSETS ...) ; processing (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T) ; (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET) ; ; 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 open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). ; unable to do #1# (cost 3) because: ; The first argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). ; etc. ; processing (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD COMPUTE-OFFSETS (BRANCH T) ; (EQL CL-PPCRE::THEN-OFFSET ; (CL-PPCRE::COMPUTE-OFFSETS (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::START-POS)) ; ; note: forced to do IF-EQL (cost 15) ; unable to do #1=inline float comparison (cost 4) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do #1# (cost 4) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; processing (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T) ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; 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. ; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)) ; ; 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. ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; processing (DEFMETHOD COMPUTE-OFFSETS ...) ; processing (DEFMETHOD COMPUTE-OFFSETS ...) ; processing (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD COMPUTE-OFFSETS (CHAR-CLASS T) ; (1+ CL-PPCRE::START-POS) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD COMPUTE-OFFSETS (EVERYTHING T) ; (1+ CL-PPCRE::START-POS) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD COMPUTE-OFFSETS (STR T) ; (+ CL-PPCRE::START-POS (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; 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: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; processing (DEFMETHOD COMPUTE-OFFSETS ...) ; processing (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD COMPUTE-OFFSETS (FILTER T) ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: unable to ; 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: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; processing (DEFMETHOD COMPUTE-OFFSETS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/regex-class-util-tmp11AFZINB.fasl ; compilation finished in 0:00:00.117 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/convert.lisp" (written 26 JAN 2022 06:40:10 PM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFMACRO CASE-INSENSITIVE-MODE-P ...) ; processing (DEFMACRO MULTI-LINE-MODE-P ...) ; processing (DEFMACRO SINGLE-LINE-MODE-P ...) ; processing (DEFUN SET-FLAG ...) ; processing (DEFGENERIC RESOLVE-PROPERTY ...) ; processing (DEFUN CONVERT-CHAR-CLASS-TO-TEST-FUNCTION ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFUN CONVERT-CHAR-CLASS-TO-TEST-FUNCTION ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; processing (DEFUN MAYBE-SPLIT-REPETITION ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFUN MAYBE-SPLIT-REPETITION ; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM) ; ; note: doing signed word to integer coercion (cost 20) ; processing (DEFUN MAYBE-ACCUMULATE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFUN MAYBE-ACCUMULATE ; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; 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. ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; 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. ; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; (CL-PPCRE::STR CL-PPCRE::STR) ; (CL-PPCRE::SKIP CL-PPCRE::STR) T) ; --> SETF LET* ; ==> ; (REPLACE #:SEQUENCE #:NEW1 :START1 #:START :END1 NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * . #1=((*))). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY * . #1#). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY * . #1#) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER . #1=((*))). ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; . #1#) ; &REST T). ; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; processing (DECLAIM (INLINE CONVERT-AUX)) ; processing (DEFUN CONVERT-AUX ...) ; processing (DEFGENERIC CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BRANCH) T) ; (LENGTH (CL-PPCRE::CHOICES CL-PPCRE::ALTERNATIONS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :GREEDY-REPETITION) T) ; (ZEROP LENGTH) ; ; 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 open code because: The operands might not be the same type. ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :NAMED-REGISTER) T) ; (COPY-SEQ (SECOND CL-PPCRE::PARSE-TREE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BACK-REFERENCE) T) ; (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; The second argument is a (OR STRING (AND (NOT NULL) SYMBOL) ; CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING (AND (NOT NULL) SYMBOL) ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER ; . #1=((*))). ; The second argument is a (OR STRING (AND (NOT NULL) SYMBOL) ; CHARACTER), not a (SIMPLE-ARRAY CHARACTER . #1#). ; (- CL-PPCRE::REG-NUM CL-PPCRE::REG-INDEX) ; ; 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)). ; (1- CL-PPCRE::BACKREF-NUMBER) ; ; 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)). ; (COPY-SEQ CL-PPCRE::BACKREF-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (- CL-PPCRE::REG-NUM CL-PPCRE::REG-INDEX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (1- CL-PPCRE::BACKREF-NUMBER) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::NAME CL-PPCRE::IN CL-PPCRE::REG-NAMES ; CL-PPCRE::FOR CL-PPCRE::REG-INDEX CL-PPCRE::FROM 0 ; WHEN (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; CL-PPCRE::COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFGENERIC CONVERT-SIMPLE-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-SIMPLE-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-SIMPLE-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-SIMPLE-PARSE-TREE ...) ; processing (DEFUN CONVERT ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFUN CONVERT ; (COERCE (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-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 SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER . #1=((*)))) ; VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * . #1#). ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/convert-tmpN84Z1F4D.fasl ; compilation finished in 0:00:00.127 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/optimize.lisp" (written 26 JAN 2022 06:40:10 PM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFGENERIC FLATTEN ...) ; processing (DEFMETHOD FLATTEN ...) ; processing (DEFMETHOD FLATTEN ...) ; processing (DEFMETHOD FLATTEN ...) ; processing (DEFMETHOD FLATTEN ...) ; processing (DEFGENERIC GATHER-STRINGS ...) ; processing (DEFMETHOD GATHER-STRINGS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD GATHER-STRINGS (SEQ) ; (MAKE-ARRAY CL-PPCRE::COLLECTOR-LENGTH :INITIAL-CONTENTS CL-PPCRE::COLLECTOR ; :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a VECTOR, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a VECTOR, not a SIMPLE-BASE-STRING. ; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT)) ; --> THE ; ==> ; (+ (CL-PPCRE::LEN CL-PPCRE::ELEMENT) CL-PPCRE::COLLECTOR-LENGTH) ; ; 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)). ; (SETF (SUBSEQ CL-PPCRE::COLLECTOR CL-PPCRE::OLD-COLLECTOR-LENGTH) ; (CL-PPCRE::STR CL-PPCRE::ELEMENT) ; CL-PPCRE::SKIP (CL-PPCRE::SKIP CL-PPCRE::ELEMENT)) ; --> SETF LET* ; ==> ; (REPLACE #:SEQUENCE #:NEW1 :START1 #:START :END1 NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY * . #1=((*))). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY * . #1#). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY * . #1#) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY CHARACTER . #1=((*))). ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; . #1#) ; &REST T). ; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT)) ; --> THE ; ==> ; (+ (CL-PPCRE::LEN CL-PPCRE::ELEMENT) CL-PPCRE::COLLECTOR-LENGTH) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFMETHOD GATHER-STRINGS ...) ; processing (DEFMETHOD GATHER-STRINGS ...) ; processing (DEFMETHOD GATHER-STRINGS ...) ; processing (DEFGENERIC START-ANCHORED-P ...) ; processing (DEFMETHOD START-ANCHORED-P ...) ; processing (DEFMETHOD START-ANCHORED-P ...) ; processing (DEFMETHOD START-ANCHORED-P ...) ; processing (DEFMETHOD START-ANCHORED-P ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD START-ANCHORED-P (REPETITION) ; (PLUSP (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)) ; ; 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 GENERIC-> (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; processing (DEFMETHOD START-ANCHORED-P ...) ; processing (DEFMETHOD START-ANCHORED-P ...) ; processing (DEFMETHOD START-ANCHORED-P ...) ; processing (DEFMETHOD START-ANCHORED-P ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD START-ANCHORED-P (REGEX) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::REGEX)) ; ; 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 open code because: The operands might not be the same type. ; processing (DEFGENERIC END-STRING-AUX ...) ; processing (DEFMETHOD END-STRING-AUX ...) ; processing (DEFMETHOD END-STRING-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD END-STRING-AUX (SEQ) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END)) ; ; 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 open code because: The operands might not be the same type. ; (MAKE-ARRAY CL-PPCRE::CONCATENATED-LENGTH :INITIAL-CONTENTS ; (REVERSE (CL-PPCRE::STR CL-PPCRE::CONCATENATED-START)) ; :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST (SIMPLE-ARRAY * . #1=((*))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * . #1#). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING. ; (CHAR CL-PPCRE::STR CL-PPCRE::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; processing (DEFMETHOD END-STRING-AUX ...) ; processing (DEFMETHOD END-STRING-AUX ...) ; processing (DEFMETHOD END-STRING-AUX ...) ; processing (DEFUN END-STRING ...) ; processing (DEFGENERIC COMPUTE-MIN-REST ...) ; processing (DEFMETHOD COMPUTE-MIN-REST ...) ; processing (DEFMETHOD COMPUTE-MIN-REST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD COMPUTE-MIN-REST (ALTERNATION T) ; (LOOP CL-PPCRE::FOR CL-PPCRE::CHOICE CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::MINIMIZE (CL-PPCRE::COMPUTE-MIN-REST CL-PPCRE::CHOICE ; CL-PPCRE::CURRENT-MIN-REST)) ; --> LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF < IF ; ==> ; (< #:LOOP-MAXMIN-TEMP-10 #:LOOP-MAXMIN-9) ; ; note: unable to ; open-code float 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: forced to do GENERIC-< (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; processing (DEFMETHOD COMPUTE-MIN-REST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD COMPUTE-MIN-REST (BRANCH T) ; (MIN ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST) ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST)) ; ; 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: forced to do GENERIC-< (cost 10) ; 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 GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; processing (DEFMETHOD COMPUTE-MIN-REST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD COMPUTE-MIN-REST (STR T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; 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: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; processing (DEFMETHOD COMPUTE-MIN-REST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD COMPUTE-MIN-REST (FILTER T) ; (+ CL-PPCRE::CURRENT-MIN-REST (OR (CL-PPCRE::LEN CL-PPCRE::FILTER) 0)) ; ; note: unable to ; 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: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; processing (DEFMETHOD COMPUTE-MIN-REST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; 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. ; (+ CL-PPCRE::CURRENT-MIN-REST ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))) ; ; 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. ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ CL-PPCRE::CURRENT-MIN-REST ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; processing (DEFMETHOD COMPUTE-MIN-REST ...) ; processing (DEFMETHOD COMPUTE-MIN-REST ...) ; processing (DEFMETHOD COMPUTE-MIN-REST ...) ; processing (DEFMETHOD COMPUTE-MIN-REST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD COMPUTE-MIN-REST (LOOKBEHIND T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::LOOKBEHIND)) ; ; note: unable to ; 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: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; processing (DEFMETHOD COMPUTE-MIN-REST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD COMPUTE-MIN-REST (REGEX T) ; (1+ CL-PPCRE::CURRENT-MIN-REST) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/optimize-tmpHX0IAQ8A.fasl ; compilation finished in 0:00:00.067 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/closures.lisp" (written 26 JAN 2022 06:40:10 PM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DECLAIM (INLINE *STRING*= ...)) ; processing (DEFUN *STRING*= ...) ; processing (DEFUN *STRING*-EQUAL ...) ; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp ; in: DEFUN *STRING*-EQUAL ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; processing (DEFGENERIC CREATE-MATCHER-AUX ...) ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp ; in: DEFMETHOD CREATE-MATCHER-AUX (LOOKBEHIND T) ; (- CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; processing (DEFMACRO INSERT-CHAR-CLASS-TESTER ...) ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp ; in: DEFMETHOD CREATE-MATCHER-AUX (CHAR-CLASS T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::CHAR-CLASS ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::START-POS)) ; (LAMBDA (CL-PPCRE::START-POS) ; (DECLARE (FIXNUM CL-PPCRE::START-POS)) ; (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*) ; (CL-PPCRE::CHAR-CLASS-TEST) ; (FUNCALL CL-PPCRE::NEXT-FN (1+ CL-PPCRE::START-POS))))) ; --> LET LAMBDA FUNCTION AND IF IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp ; in: DEFMETHOD CREATE-MATCHER-AUX (STR T) ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) CL-PPCRE::CHR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::END-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::END-STRING CL-PPCRE::START-POS ; CL-PPCRE::TEST-END-POS 0 CL-PPCRE::END-STRING-LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; processing (DECLAIM (INLINE WORD-BOUNDARY-P)) ; processing (DEFUN WORD-BOUNDARY-P ...) ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp ; in: DEFMETHOD CREATE-MATCHER-AUX (BACK-REFERENCE T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::*STRING* CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS CL-PPCRE::REG-START CL-PPCRE::REG-END) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp ; in: DEFMETHOD CREATE-MATCHER-AUX (FILTER T) ; (FUNCALL CL-PPCRE::FN CL-PPCRE::START-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (FUNCALL CL-PPCRE::NEXT-FN CL-PPCRE::NEXT-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; NEXT-FN is not known to be a function ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/closures-tmp8MQVZGT.fasl ; compilation finished in 0:00:00.088 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp" (written 26 JAN 2022 06:40:10 PM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFMACRO INCF-AFTER ...) ; processing (DEFMACRO GREEDY-CONSTANT-LENGTH-CLOSURE ...) ; processing (DEFUN CREATE-GREEDY-EVERYTHING-MATCHER ...) ; processing (DEFGENERIC CREATE-GREEDY-CONSTANT-LENGTH-MATCHER ...) ; processing (DEFMETHOD CREATE-GREEDY-CONSTANT-LENGTH-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET BLOCK ; --> TAGBODY WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; processing (DEFGENERIC CREATE-GREEDY-NO-ZERO-MATCHER ...) ; processing (DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; processing (DEFGENERIC CREATE-GREEDY-MATCHER ...) ; processing (DEFMETHOD CREATE-GREEDY-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; processing (DEFMACRO NON-GREEDY-CONSTANT-LENGTH-CLOSURE ...) ; processing (DEFGENERIC CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER ...) ; processing (DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; processing (DEFGENERIC CREATE-NON-GREEDY-NO-ZERO-MATCHER ...) ; processing (DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; processing (DEFGENERIC CREATE-NON-GREEDY-MATCHER ...) ; processing (DEFMETHOD CREATE-NON-GREEDY-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-NON-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; processing (DEFMACRO CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ...) ; processing (DEFGENERIC CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER ...) ; processing (DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: ; DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS)))) ; --> LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA FUNCTION ; --> LET AND IF IF LOOP BLOCK LET TAGBODY UNLESS IF AND IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS CL-PPCRE::NEXT-POS ; 0 CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; processing (DEFGENERIC CREATE-CONSTANT-REPETITION-MATCHER ...) ; processing (DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (AREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; 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 open code because: The operands might not be the same type. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T) ; (ZEROP CL-PPCRE::MAXIMUM) ; ; 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 open code because: The operands might not be the same type. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; 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 open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (PLUSP CL-PPCRE::LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do #1# (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; note: forced to do IF-EQL (cost 15) ; unable to do #1=inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do #1# (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; ; note: forced to do IF-EQL (cost 15) ; unable to do #1=inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do #1# (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (PLUSP CL-PPCRE::LEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/repetition-closures-tmp88LUAVGW.fasl ; compilation finished in 0:00:00.201 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/scanner.lisp" (written 26 JAN 2022 06:40:10 PM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFMACRO BMH-MATCHER-AUX ...) ; processing (DEFUN CREATE-BMH-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/scanner.lisp ; in: DEFUN CREATE-BMH-MATCHER ; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION IF LOOP BLOCK LET TAGBODY LOOP BLOCK LET LET TAGBODY UNLESS IF ; --> AND IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::PATTERN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CHAR-UPCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-DOWNCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (SEARCH CL-PPCRE::PATTERN CL-PPCRE::*STRING* :START2 CL-PPCRE::START-POS ; :END2 CL-PPCRE::*END-POS* :TEST CL-PPCRE::TEST) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; processing (DEFMACRO CHAR-SEARCHER-AUX ...) ; processing (DEFUN CREATE-CHAR-SEARCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/scanner.lisp ; in: DEFUN CREATE-CHAR-SEARCHER ; (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION AND IF LOOP BLOCK LET LET TAGBODY WHEN IF SETQ THE AND IF ; --> CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; processing (DECLAIM (INLINE NEWLINE-SKIPPER)) ; processing (DEFUN NEWLINE-SKIPPER ...) ; processing (DEFMACRO INSERT-ADVANCE-FN ...) ; processing (DEFUN CREATE-SCANNER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/scanner.lisp ; in: DEFUN CREATE-SCANNER-AUX ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; 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. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; 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. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; 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. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; 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. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; 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. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; 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. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; 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. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; 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. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS) ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/scanner-tmpM5RP096T.fasl ; compilation finished in 0:00:00.302 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/api.lisp" (written 26 JAN 2022 06:40:10 PM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFVAR *LOOK-AHEAD-FOR-SUFFIX* ...) ; processing (DEFGENERIC CREATE-SCANNER ...) ; processing (DEFMETHOD CREATE-SCANNER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFMETHOD CREATE-SCANNER (STRING) ; (COPY-SEQ CL-PPCRE::QUOTED-REGEX-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; processing (DEFMETHOD CREATE-SCANNER ...) ; processing (DEFMETHOD CREATE-SCANNER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFMETHOD CREATE-SCANNER (T) ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; processing (DEFGENERIC SCAN ...) ; processing (DEFMETHOD SCAN ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFMETHOD SCAN (STRING T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-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 SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER . #1=((*)))) ; VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * . #1#). ; processing (DEFMETHOD SCAN ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFMETHOD SCAN #'T ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-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 SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER . #1=((*)))) ; VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * . #1#). ; processing (DEFMETHOD SCAN ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFMETHOD SCAN (T T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-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 SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER . #1=((*)))) ; VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * . #1#). ; processing (DEFINE-COMPILER-MACRO SCAN ...) ; processing (DEFUN SCAN-TO-STRINGS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN SCAN-TO-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MAP 'VECTOR ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (IF CL-PPCRE::REG-START ; (FUNCALL CL-PPCRE::SUBSTR-FN CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START CL-PPCRE::REG-END) ; NIL)) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; 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. ; processing (DEFINE-COMPILER-MACRO SCAN-TO-STRINGS ...) ; processing (DEFMACRO REGISTER-GROUPS-BIND ...) ; processing (DEFMACRO DO-SCANS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFMACRO DO-SCANS ; (DEFMACRO CL-PPCRE:DO-SCANS ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY &ENVIRONMENT CL-PPCRE::ENV) ; #<(SIMPLE-ARRAY CHARACTER ; (495)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START, MATCH-END, REG-STARTS, and ; REG-ENDS bound to the four return values of each match in turn. ... {10090D356F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::%START CL-PPCRE::%END ; CL-PPCRE::%REGEX CL-PPCRE::SCANNER) ; (DECLARE (IGNORABLE CL-PPCRE::%REGEX CL-PPCRE::SCANNER)) ; `(BLOCK NIL ; (LET* # ; # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END ; REG-STARTS REG-ENDS REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; processing (DEFMACRO DO-MATCHES ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFMACRO DO-MATCHES ; (DEFMACRO CL-PPCRE:DO-MATCHES ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (477)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START and MATCH-END bound to the ; start/end positions of each match in turn. After the last match, ; ... {100952D65F}> ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; `(CL-PPCRE:DO-SCANS (,CL-PPCRE::MATCH-START ,CL-PPCRE::MATCH-END ; ,CL-PPCRE::REG-STARTS ,CL-PPCRE::REG-ENDS ; ,CL-PPCRE::REGEX ,CL-PPCRE::TARGET-STRING ; ,CL-PPCRE::RESULT-FORM :START ,CL-PPCRE::START :END ; ,CL-PPCRE::END) ; ,@CL-PPCRE::BODY))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; processing (DEFMACRO DO-MATCHES-AS-STRINGS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFMACRO DO-MATCHES-AS-STRINGS ; (DEFMACRO CL-PPCRE:DO-MATCHES-AS-STRINGS ; ( ; (CL-PPCRE::MATCH-VAR ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (569)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-VAR bound to the substring of ; TARGET-STRING corresponding to each match in turn. After the last ; ma... {10096BBF0F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::SUBSTR-FN) ; `(LET (#) ; (CL-PPCRE:DO-MATCHES # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-VAR REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END ; SHAREDP) ; processing (DEFMACRO DO-REGISTER-GROUPS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFMACRO DO-REGISTER-GROUPS ; (DEFMACRO CL-PPCRE:DO-REGISTER-GROUPS ; (CL-PPCRE::VAR-LIST ; (CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (820)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with the variables in VAR-LIST bound to the ; corresponding register groups for each match in turn, i.e. each ; va... {10098BB0AF}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::SUBSTR-FN CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS CL-PPCRE::START-INDEX) ; `(LET (#) ; (CL-PPCRE:DO-SCANS # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX TARGET-STRING ; &OPTIONAL RESULT-FORM ; &KEY START END SHAREDP) ; processing (DEFUN COUNT-MATCHES ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN COUNT-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (INCF COUNT)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-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 SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER . #1=((*)))) ; VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * . #1#). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::S CL-PPCRE::E) ; ; 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 open code because: The operands might not be the same type. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a RATIONAL. ; (INCF COUNT) ; --> THE ; ==> ; (+ 1 COUNT) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (INCF COUNT)) ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::S CL-PPCRE::E) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; unable to do #1# (cost 3) because: ; The first argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR REAL COMPLEX), not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (OR REAL COMPLEX), not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFINE-COMPILER-MACRO COUNT-MATCHES ...) ; processing (DEFUN ALL-MATCHES ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN ALL-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-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 SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER . #1=((*)))) ; VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * . #1#). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code float 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 open code because: The operands might not be the same type. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a RATIONAL. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; unable to do #1# (cost 3) because: ; The first argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR REAL COMPLEX), not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (OR REAL COMPLEX), not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFINE-COMPILER-MACRO ALL-MATCHES ...) ; processing (DEFUN ALL-MATCHES-AS-STRINGS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN ALL-MATCHES-AS-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES-AS-STRINGS (CL-PPCRE::MATCH CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START ; CL-PPCRE::START :END CL-PPCRE::END :SHAREDP ; CL-PPCRE::SHAREDP) ; (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST)) ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING7) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-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 SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER . #1=((*)))) ; VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * . #1#). ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: unable to ; open-code float 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 open code because: The operands might not be the same type. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a RATIONAL. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; unable to do #1# (cost 3) because: ; The first argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR REAL COMPLEX), not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (OR REAL COMPLEX), not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFINE-COMPILER-MACRO ALL-MATCHES-AS-STRINGS ...) ; processing (DEFUN SPLIT ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN SPLIT ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-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 SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER . #1=((*)))) ; VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * . #1#). ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; 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 open code because: The operands might not be the same type. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), 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 (OR REAL COMPLEX), 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 (OR REAL COMPLEX), 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 (OR REAL COMPLEX), 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 (OR REAL COMPLEX), not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP CL-PPCRE::LIMIT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...) ; --> LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ 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. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code float 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 open code because: The operands might not be the same type. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a RATIONAL. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; 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. ; (>= (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT) ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; unable to do #1# (cost 3) because: ; The first argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a (OR REAL COMPLEX), not a DOUBLE-FLOAT. ; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; unable to do #1# (cost 3) because: ; The first argument is a (OR REAL COMPLEX), not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; (PLUSP CL-PPCRE::LIMIT) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; etc. ; (INCF CL-PPCRE::COUNTER) ; --> THE ; ==> ; (+ 1 CL-PPCRE::COUNTER) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (>= (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The second argument is a (OR (DOUBLE-FLOAT (0.0d0)) (SINGLE-FLOAT (0.0)) ; (RATIONAL (0))), not a FIXNUM. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do #1# (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR REAL COMPLEX), not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (OR REAL COMPLEX), not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a (NOT NULL), not a DOUBLE-FLOAT. ; etc. ; processing (DEFINE-COMPILER-MACRO SPLIT ...) ; processing (DEFUN STRING-CASE-MODIFIER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN STRING-CASE-MODIFIER ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR CL-PPCRE::FROM) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR CL-PPCRE::TO) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; processing (DEFGENERIC BUILD-REPLACEMENT-TEMPLATE ...) ; processing (LET* (# #) ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFMETHOD BUILD-REPLACEMENT-TEMPLATE (STRING) ; (POSITION-IF #'CL-PPCRE::DIGIT-CHAR-P CL-PPCRE::REPLACEMENT-STRING :START ; CL-PPCRE::MATCH-START :END CL-PPCRE::MATCH-END) ; ; note: unable to ; expand inline ; because: ; upgraded array element type not known at compile time ; (CHAR CL-PPCRE::REPLACEMENT-STRING (1+ CL-PPCRE::MATCH-START)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (< CL-PPCRE::FROM CL-PPCRE::MATCH-START) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; (1- ; (PARSE-INTEGER CL-PPCRE::REPLACEMENT-STRING :START CL-PPCRE::PARSE-START ; :JUNK-ALLOWED T)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR INTEGER NULL), not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (OR INTEGER NULL), not a FIXNUM. ; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (< CL-PPCRE::TOKEN 0) ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; processing (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...) ; processing (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...) ; processing (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...) ; processing (DEFUN BUILD-REPLACEMENT ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN BUILD-REPLACEMENT ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::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. ; (ARRAY-DIMENSION CL-PPCRE::REG-STARTS 0) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to open code because: can't determine sequence argument type ; (APPLY CL-PPCRE::TOKEN ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::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. ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to open code because: can't determine sequence argument type ; (FUNCALL CL-PPCRE::TOKEN CL-PPCRE::TARGET-STRING CL-PPCRE::START ; CL-PPCRE::END CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::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. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; ; 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. ; ==> ; (MAKE-ARRAY (- CL-PPCRE::END CL-PPCRE::START) :ELEMENT-TYPE ; (ARRAY-ELEMENT-TYPE SEQUENCE) :DISPLACED-TO SEQUENCE ; :DISPLACED-INDEX-OFFSET CL-PPCRE::START) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; ==> ; (MAKE-ARRAY (- CL-PPCRE::END CL-PPCRE::START) :ELEMENT-TYPE ; (ARRAY-ELEMENT-TYPE SEQUENCE) :DISPLACED-TO SEQUENCE ; :DISPLACED-INDEX-OFFSET CL-PPCRE::START) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (WITH-OUTPUT-TO-STRING (CL-PPCRE::S NIL :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE) ; (LOOP CL-PPCRE::FOR CL-PPCRE::TOKEN CL-PPCRE::IN CL-PPCRE::REPLACEMENT-TEMPLATE ; DO (TYPECASE CL-PPCRE::TOKEN ; (STRING (WRITE-STRING CL-PPCRE::TOKEN CL-PPCRE::S)) ; (INTEGER (WHEN # #) (WHEN # #)) ; (FUNCTION (WRITE-STRING # CL-PPCRE::S)) ; (SYMBOL (CASE CL-PPCRE::TOKEN # # # # #))))) ; --> LET ; ==> ; (MAKE-STRING 31 :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE) ; ; note: could not stack allocate: ; (WITH-OUTPUT-TO-STRING (S NIL :ELEMENT-TYPE ELEMENT-TYPE) ; (LOOP FOR TOKEN IN REPLACEMENT-TEMPLATE ; DO (TYPECASE TOKEN ; (STRING (WRITE-STRING TOKEN S)) ; (INTEGER ; (WHEN (>= TOKEN REG-BOUND) ; (SIGNAL-INVOCATION-ERROR ; "Reference to non-existent register ~A in replacement string." ; (1+ TOKEN))) ; (WHEN (SVREF REG-STARTS TOKEN) ; (WRITE-STRING TARGET-STRING S :START ; (SVREF REG-STARTS TOKEN) :END ; (SVREF REG-ENDS TOKEN)))) ; (FUNCTION ; (WRITE-STRING ; (COND ; (SIMPLE-CALLS ; (APPLY TOKEN ; (NSUBSEQ TARGET-STRING MATCH-START MATCH-END) ; (MAP 'LIST ; (LAMBDA (REG-START REG-END) ; (AND REG-START ; (NSUBSEQ TARGET-STRING REG-START ; REG-END))) ; REG-STARTS REG-ENDS))) ; (T ; (FUNCALL TOKEN TARGET-STRING START END MATCH-START ; MATCH-END REG-STARTS REG-ENDS))) ; S)) ; (SYMBOL ; (CASE TOKEN ; ((:BACKSLASH) (WRITE-CHAR #\\ S)) ; ((:MATCH) ; (WRITE-STRING TARGET-STRING S :START MATCH-START :END ; MATCH-END)) ; ((:BEFORE-MATCH) ; (WRITE-STRING TARGET-STRING S :START START :END ; MATCH-START)) ; ((:AFTER-MATCH) ; (WRITE-STRING TARGET-STRING S :START MATCH-END :END ; END)) ; (OTHERWISE ; (WRITE-STRING ; (COND ; (SIMPLE-CALLS ; (APPLY TOKEN ; (NSUBSEQ TARGET-STRING MATCH-START MATCH-END) ; (MAP 'LIST ; (LAMBDA (REG-START REG-END) ; (AND REG-START ; (NSUBSEQ TARGET-STRING REG-START ; REG-END))) ; REG-STARTS REG-ENDS))) ; (T ; (FUNCALL TOKEN TARGET-STRING START END MATCH-START ; MATCH-END REG-STARTS REG-ENDS))) ; S))))))) ; (>= CL-PPCRE::TOKEN CL-PPCRE::REG-BOUND) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; (1+ CL-PPCRE::TOKEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; processing (DEFUN REPLACE-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN REPLACE-AUX ; (FUNCALL ; (CL-PPCRE::STRING-CASE-MODIFIER CL-PPCRE::TARGET-STRING CL-PPCRE::FROM ; CL-PPCRE::TO CL-PPCRE::START CL-PPCRE::END) ; CL-PPCRE::CURR-REPLACEMENT) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (WITH-OUTPUT-TO-STRING (CL-PPCRE::S NIL :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE) ; (LOOP CL-PPCRE::FOR (CL-PPCRE::FROM CL-PPCRE::TO) CL-PPCRE::ON (APPEND ; (LIST ; CL-PPCRE::START) ; CL-PPCRE::POS-LIST ; (LIST ; CL-PPCRE::END)) ; CL-PPCRE::FOR REPLACE = NIL CL-PPCRE::THEN (AND (NOT REPLACE) ; CL-PPCRE::TO) ; CL-PPCRE::FOR ...)) ; --> LET ; ==> ; (MAKE-STRING 31 :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE) ; ; note: could not stack allocate: ; (WITH-OUTPUT-TO-STRING (S NIL :ELEMENT-TYPE ELEMENT-TYPE) ; (LOOP FOR (FROM TO) ON (APPEND (LIST START) POS-LIST (LIST END)) ; FOR REPLACE = NIL THEN (AND (NOT REPLACE) TO) ; FOR REG-STARTS = (IF REPLACE ; (POP REG-LIST) ; NIL) ; FOR REG-ENDS = (IF REPLACE ; (POP REG-LIST) ; NIL) ; FOR CURR-REPLACEMENT = (IF REPLACE ; (BUILD-REPLACEMENT ; REPLACEMENT-TEMPLATE TARGET-STRING ; START END FROM TO REG-STARTS ; REG-ENDS SIMPLE-CALLS ELEMENT-TYPE) ; NIL) ; WHILE TO ; IF REPLACE ; DO (WRITE-STRING ; (IF PRESERVE-CASE ; (FUNCALL ; (STRING-CASE-MODIFIER TARGET-STRING FROM TO START END) ; CURR-REPLACEMENT) ; CURR-REPLACEMENT) ; S) ELSE ; DO (WRITE-STRING TARGET-STRING S :START FROM :END TO))) ; processing (DEFUN REGEX-REPLACE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN REGEX-REPLACE ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; processing (DEFINE-COMPILER-MACRO REGEX-REPLACE ...) ; processing (DEFUN REGEX-REPLACE-ALL ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN REGEX-REPLACE-ALL ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-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 SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER . #1=((*)))) ; VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * . #1#). ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code float 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 open code because: The operands might not be the same type. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR REAL COMPLEX), not a RATIONAL. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; unable to do #1# (cost 3) because: ; The first argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR REAL COMPLEX), not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (OR REAL COMPLEX), not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFINE-COMPILER-MACRO REGEX-REPLACE-ALL ...) ; processing (DEFMACRO REGEX-APROPOS-AUX ...) ; processing (DEFUN REGEX-APROPOS-LIST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN REGEX-APROPOS-LIST ; (DEFUN CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {100BE0F6DF}> ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {100BE0F6DF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS-LIST ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; processing (DEFUN PRINT-SYMBOL-INFO ...) ; processing (DEFUN REGEX-APROPOS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN REGEX-APROPOS ; (DEFUN CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {100C39A6BF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {100C39A6BF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; processing (LET* (# #) ...) ; processing (LET* (# # ...) ...) ; processing (LET* (# # ...) ...) ; processing (DEFUN PARSE-TREE-SYNONYM ...) ; processing (DEFUN (SETF PARSE-TREE-SYNONYM) ...) ; processing (DEFMACRO DEFINE-PARSE-TREE-SYNONYM ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/api-tmpRHTB3TH1.fasl ; compilation finished in 0:00:00.215 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/uax-15/src/package.lisp" (written 21 OCT 2021 12:41:43 PM): ; processing (DEFPACKAGE :UAX-15 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/uax-15/src/package-tmp4YJPLPB8.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/uax-15/src/utilities.lisp" (written 21 OCT 2021 12:41:43 PM): ; processing (IN-PACKAGE :UAX-15) ; processing (DEFINE-CONDITION BAD-CHAR-ERROR ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN BAD-CHAR-ERROR ...) ; processing (DEFMACRO NCONCF ...) ; processing (DEFUN PARSE-HEX-STRING-TO-STRING ...) ; processing (DEFUN PARSE-HEX-STRING-TO-INT ...) ; processing (DEFUN PARSE-HEX-STRING-TO-CHAR ...) ; processing (DEFUN INT-TO-HEX-STRING ...) ; processing (DEFUN PARSE-HEX-LIST-TO-STRING ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/uax-15/src/utilities-tmp6202QBVV.fasl ; compilation finished in 0:00:00.014 ; compiling file "/usr/share/common-lisp/source/uax-15/src/trivial-utf-16.lisp" (written 21 OCT 2021 12:41:43 PM): ; processing (IN-PACKAGE :UAX-15) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; file: /usr/share/common-lisp/source/uax-15/src/trivial-utf-16.lisp ; in: EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) ; (ERROR "Unexpected char-code-limit; Unicode support seems unlikely.") ; ; note: deleting unreachable code ; processing (DEFUN UNICODE-POINT-P ...) ; processing (DEFTYPE HIGH-SURROGATE ...) ; processing (DEFTYPE LOW-SURROGATE ...) ; processing (DEFTYPE UNICODE-POINT ...) ; processing (DEFTYPE UNICODE-STRING ...) ; processing (DEFUN CODEPOINT-TO-UNICODE-POINT ...) ; processing (DEFUN CODEPOINT-AS-UTF-16 ...) ; processing (DEFUN SURROGATES-TO-CODEPOINT ...) ; processing (DEFUN ENCODE-UTF-16 ...) ; processing (DEFUN DECODE-UTF-16 ...) ; processing (DECLAIM (INLINE FROM-UNICODE-STRING)) ; processing (DEFUN FROM-UNICODE-STRING ...) ; processing (DECLAIM (INLINE TO-UNICODE-STRING)) ; processing (DEFUN TO-UNICODE-STRING ...) ; processing (DEFUN CHAR-FROM-HEXSTRING ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/uax-15/src/trivial-utf-16-tmp8COQHEZO.fasl ; compilation finished in 0:00:00.018 ; compiling file "/usr/share/common-lisp/source/uax-15/src/precomputed-tables.lisp" (written 21 OCT 2021 12:41:43 PM): ; processing (IN-PACKAGE :UAX-15) ; processing (DEFPARAMETER *DATA-DIRECTORY* ...) ; processing (DEFVAR *UNICODE-DATA* ...) ; processing (LET (# # ...) ...) ; processing (DEFPARAMETER *COMPOSITION-EXCLUSIONS-DATA* ...) ; processing (WITH-OPEN-FILE (IN # ...) ...) ; processing (DEFPARAMETER *CANONICAL-COMP-MAP* ...) ; processing (MAPHASH (LAMBDA # ...) ...) ; processing (DEFPARAMETER *UNICODE-LETTERS* ...) ; processing (LOOP FOR ...) ; processing (LOOP FOR ...) ; processing (LOOP FOR ...) ; processing (LOOP FOR ...) ; processing (LOOP FOR ...) ; processing (LOOP FOR ...) ; processing (LOOP FOR ...) ; processing (LOOP FOR ...) ; processing (LOOP FOR ...) ; processing (LOOP FOR ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/uax-15/src/precomputed-tables-tmpQYBBS7QC.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/uax-15/src/normalize-backend.lisp" (written 21 OCT 2021 12:41:43 PM): ; processing (IN-PACKAGE :UAX-15) ; processing (DEFUN GET-CANONICAL-COMBINING-CLASS ...) ; processing (DEFUN DECOMPOSE-CHAR ...) ; processing (LET* (# # ...) ...) ; processing (DEFUN DECOMPOSE ...) ; processing (DEFUN CANONICAL-ORDERING ...) ; processing (DEFUN COMPOSE ...) ; processing (DEFUN NFD ...) ; processing (DEFUN NFKD ...) ; processing (DEFUN NFC ...) ; processing (DEFUN NFKC ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/uax-15/src/normalize-backend-tmpAMQ7AMSJ.fasl ; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/uax-15/src/uax-15.lisp" (written 21 OCT 2021 12:41:43 PM): ; processing (IN-PACKAGE :UAX-15) ; processing (DEFUN NORMALIZE ...) ; processing (DEFUN NORMALIZE-CHAR ...) ; processing (DEFUN GET-MAPPING ...) ; processing (DEFPARAMETER *DERIVED-NORMALIZATION-PROPS-DATA* ...) ; processing (DEFPARAMETER *DERIVED-NORMALIZATION-PROPS-DATA-FILE* ...) ; processing (DEFUN GET-CANONICAL-COMBINING-CLASS-MAP ...) ; processing (LET (# # ...) ...) ; processing (DEFUN UNICODE-LETTER-P ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/uax-15/src/uax-15-tmpQSC8Z7I4.fasl ; compilation finished in 0:00:00.044 ; compiling file "/usr/share/common-lisp/source/postmodern/cl-postgres/package.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (DEFPACKAGE :CL-POSTGRES ...) ; processing (DEFPACKAGE :CL-POSTGRES-ERROR ...) ; processing (DEFPACKAGE :CL-POSTGRES-OID ...) ; processing (DEFPACKAGE :CL-POSTGRES.FEATURES ...) ; processing (DEFPACKAGE :CL-POSTGRES-TRIVIAL-UTF-8 ...) ; processing (DEFPACKAGE :CL-POSTGRES-IEEE-FLOATS ...) ; processing (IN-PACKAGE :CL-POSTGRES) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/cl-postgres/package-tmpNGMCS43U.fasl ; compilation finished in 0:00:00.002 ; compiling file "/usr/share/common-lisp/source/postmodern/cl-postgres/features.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :CL-POSTGRES.FEATURES) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/cl-postgres/features-tmp5EM0MAXI.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/postmodern/cl-postgres/config.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :CL-POSTGRES) ; processing (DEFPARAMETER *SILENTLY-TRUNCATE-RATIOS* ...) ; processing (DEFPARAMETER *QUERY-LOG* ...) ; processing (DEFPARAMETER *QUERY-CALLBACK* ...) ; processing (DEFVAR *RETRY-CONNECT-TIMES* ...) ; processing (DEFVAR *RETRY-CONNECT-DELAY* ...) ; processing (DEFPARAMETER *ON-EVIDENCE-OF-MAN-IN-THE-MIDDLE-ATTACK* ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/cl-postgres/config-tmpPO1KM2UM.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/postmodern/cl-postgres/oid.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :CL-POSTGRES-OID) ; processing (DEFCONSTANT +BOOL+ ...) ; processing (DEFCONSTANT +BYTEA+ ...) ; processing (DEFCONSTANT +CHAR+ ...) ; processing (DEFCONSTANT +NAME+ ...) ; processing (DEFCONSTANT +INT8+ ...) ; processing (DEFCONSTANT +INT2+ ...) ; processing (DEFCONSTANT +INT2VECTOR+ ...) ; processing (DEFCONSTANT +INT4+ ...) ; processing (DEFCONSTANT +REGPROC+ ...) ; processing (DEFCONSTANT +TEXT+ ...) ; processing (DEFCONSTANT +OID+ ...) ; processing (DEFCONSTANT +TID+ ...) ; processing (DEFCONSTANT +XID+ ...) ; processing (DEFCONSTANT +CID+ ...) ; processing (DEFCONSTANT +OID-VECTOR+ ...) ; processing (DEFCONSTANT +JSON+ ...) ; processing (DEFCONSTANT +XML+ ...) ; processing (DEFCONSTANT +PGNODETREE+ ...) ; processing (DEFCONSTANT +PGDDLCOMMAND+ ...) ; processing (DEFCONSTANT +POINT+ ...) ; processing (DEFCONSTANT +LSEG+ ...) ; processing (DEFCONSTANT +PATH+ ...) ; processing (DEFCONSTANT +BOX+ ...) ; processing (DEFCONSTANT +POLYGON+ ...) ; processing (DEFCONSTANT +LINE+ ...) ; processing (DEFCONSTANT +FLOAT4+ ...) ; processing (DEFCONSTANT +FLOAT8+ ...) ; processing (DEFCONSTANT +ABSTIME+ ...) ; processing (DEFCONSTANT +RELTIME+ ...) ; processing (DEFCONSTANT +TINTERVAL+ ...) ; processing (DEFCONSTANT +UNKNOWN+ ...) ; processing (DEFCONSTANT +CIRCLE+ ...) ; processing (DEFCONSTANT +CASH+ ...) ; processing (DEFCONSTANT +MACADDR+ ...) ; processing (DEFCONSTANT +INET+ ...) ; processing (DEFCONSTANT +CIDR+ ...) ; processing (DEFCONSTANT +BOOL-ARRAY+ ...) ; processing (DEFCONSTANT +BYTEA-ARRAY+ ...) ; processing (DEFCONSTANT +CHAR-ARRAY+ ...) ; processing (DEFCONSTANT +NAME-ARRAY+ ...) ; processing (DEFCONSTANT +INT2-ARRAY+ ...) ; processing (DEFCONSTANT +INT4-ARRAY+ ...) ; processing (DEFCONSTANT +TEXT-ARRAY+ ...) ; processing (DEFCONSTANT +BPCHAR-ARRAY+ ...) ; processing (DEFCONSTANT +VARCHAR-ARRAY+ ...) ; processing (DEFCONSTANT +INT8-ARRAY+ ...) ; processing (DEFCONSTANT +POINT-ARRAY+ ...) ; processing (DEFCONSTANT +LSEG-ARRAY+ ...) ; processing (DEFCONSTANT +BOX-ARRAY+ ...) ; processing (DEFCONSTANT +FLOAT4-ARRAY+ ...) ; processing (DEFCONSTANT +FLOAT8-ARRAY+ ...) ; processing (DEFCONSTANT +OID-ARRAY+ ...) ; processing (DEFCONSTANT +ACLITEM+ ...) ; processing (DEFCONSTANT +CSTRING-ARRAY+ ...) ; processing (DEFCONSTANT +BPCHAR+ ...) ; processing (DEFCONSTANT +VARCHAR+ ...) ; processing (DEFCONSTANT +DATE+ ...) ; processing (DEFCONSTANT +TIME+ ...) ; processing (DEFCONSTANT +TIMESTAMP+ ...) ; processing (DEFCONSTANT +TIMESTAMP-ARRAY+ ...) ; processing (DEFCONSTANT +DATE-ARRAY+ ...) ; processing (DEFCONSTANT +TIME-ARRAY+ ...) ; processing (DEFCONSTANT +TIMESTAMPTZ+ ...) ; processing (DEFCONSTANT +TIMESTAMPTZ-ARRAY+ ...) ; processing (DEFCONSTANT +INTERVAL+ ...) ; processing (DEFCONSTANT +INTERVAL-ARRAY+ ...) ; processing (DEFCONSTANT +TIMETZ+ ...) ; processing (DEFCONSTANT +BIT+ ...) ; processing (DEFCONSTANT +BIT-ARRAY+ ...) ; processing (DEFCONSTANT +VARBIT+ ...) ; processing (DEFCONSTANT +VARBIT-ARRAY+ ...) ; processing (DEFCONSTANT +NUMERIC+ ...) ; processing (DEFCONSTANT +NUMERIC-ARRAY+ ...) ; processing (DEFCONSTANT +REFCURSOR+ ...) ; processing (DEFCONSTANT +REGPROCEDURE+ ...) ; processing (DEFCONSTANT +REGOPER+ ...) ; processing (DEFCONSTANT +REGOPERATOR+ ...) ; processing (DEFCONSTANT +REGCLASS+ ...) ; processing (DEFCONSTANT +REGTYPE+ ...) ; processing (DEFCONSTANT +REGROLE+ ...) ; processing (DEFCONSTANT +REGNAMESPACE+ ...) ; processing (DEFCONSTANT +REGTYPE-ARRAY+ ...) ; processing (DEFCONSTANT +UUID+ ...) ; processing (DEFCONSTANT +LSN+ ...) ; processing (DEFCONSTANT +TSVECTOR+ ...) ; processing (DEFCONSTANT +GTSVECTOR+ ...) ; processing (DEFCONSTANT +TSQUERY+ ...) ; processing (DEFCONSTANT +REGCONFIG+ ...) ; processing (DEFCONSTANT +REGDICTIONARY+ ...) ; processing (DEFCONSTANT +JSONB+ ...) ; processing (DEFCONSTANT +INT4RANGE+ ...) ; processing (DEFCONSTANT +RECORD+ ...) ; processing (DEFCONSTANT +RECORD-ARRAY+ ...) ; processing (DEFCONSTANT +CSTRING+ ...) ; processing (DEFCONSTANT +ANY+ ...) ; processing (DEFCONSTANT +ANY-ARRAY+ ...) ; processing (DEFCONSTANT +V-OID+ ...) ; processing (DEFCONSTANT +TRIGGER+ ...) ; processing (DEFCONSTANT +EVTTRIGGER+ ...) ; processing (DEFCONSTANT +LANGUAGE-HANDLER+ ...) ; processing (DEFCONSTANT +INTERNAL+ ...) ; processing (DEFCONSTANT +OPAQUE+ ...) ; processing (DEFCONSTANT +ANYELEMENT+ ...) ; processing (DEFCONSTANT +ANYNON-ARRAY+ ...) ; processing (DEFCONSTANT +ANYENUM+ ...) ; processing (DEFCONSTANT +FDW-HANDLER+ ...) ; processing (DEFCONSTANT +INDEX-AM-HANDLER+ ...) ; processing (DEFCONSTANT +TSM-HANDLER+ ...) ; processing (DEFCONSTANT +ANYRANGE+ ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/cl-postgres/oid-tmp9MJ8K0GA.fasl ; compilation finished in 0:00:00.003 ; compiling file "/usr/share/common-lisp/source/postmodern/cl-postgres/errors.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :CL-POSTGRES) ; processing (DEFPARAMETER *CURRENT-QUERY* ...) ; processing (DEFUN LOG-QUERY ...) ; processing (DEFMACRO WITH-QUERY ...) ; processing (DEFINE-CONDITION DATABASE-ERROR ...) ; processing (DEFUN DATABASE-ERROR-CONSTRAINT-NAME ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/errors.lisp ; in: DEFUN DATABASE-ERROR-CONSTRAINT-NAME ; (TYPECASE CL-POSTGRES::ERR ; (CL-POSTGRES-ERROR:NOT-NULL-VIOLATION ; (CL-POSTGRES::EXTRACT-QUOTED-PART CL-POSTGRES::MESSAGE 0)) ; (CL-POSTGRES-ERROR:UNIQUE-VIOLATION ; (CL-POSTGRES::EXTRACT-QUOTED-PART CL-POSTGRES::MESSAGE 0)) ; (CL-POSTGRES-ERROR:FOREIGN-KEY-VIOLATION ; (CL-POSTGRES::EXTRACT-QUOTED-PART CL-POSTGRES::MESSAGE 1)) ; (CL-POSTGRES-ERROR:CHECK-VIOLATION ; (CL-POSTGRES::EXTRACT-QUOTED-PART CL-POSTGRES::MESSAGE 1))) ; --> COND IF ; ==> ; (TYPEP #:G1 'CL-POSTGRES-ERROR:NOT-NULL-VIOLATION) ; ; note: can't open-code test of unknown type CL-POSTGRES-ERROR:NOT-NULL-VIOLATION ; --> COND IF IF ; ==> ; (TYPEP #:G1 'CL-POSTGRES-ERROR:UNIQUE-VIOLATION) ; ; note: can't open-code test of unknown type CL-POSTGRES-ERROR:UNIQUE-VIOLATION ; --> COND IF IF IF ; ==> ; (TYPEP #:G1 'CL-POSTGRES-ERROR:FOREIGN-KEY-VIOLATION) ; ; note: can't open-code test of unknown type CL-POSTGRES-ERROR:FOREIGN-KEY-VIOLATION ; --> COND IF IF IF IF ; ==> ; (TYPEP #:G1 'CL-POSTGRES-ERROR:CHECK-VIOLATION) ; ; note: can't open-code test of unknown type CL-POSTGRES-ERROR:CHECK-VIOLATION ; processing (DEFUN DATABASE-ERROR-EXTRACT-NAME ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/errors.lisp ; in: DEFUN DATABASE-ERROR-EXTRACT-NAME ; (TYPECASE CL-POSTGRES::ERR ; (CL-POSTGRES-ERROR:INVALID-SQL-STATEMENT-NAME ; (CL-POSTGRES::EXTRACT-QUOTED-PART CL-POSTGRES::MESSAGE 0)) ; (CL-POSTGRES-ERROR:DUPLICATE-PREPARED-STATEMENT ; (CL-POSTGRES::EXTRACT-QUOTED-PART CL-POSTGRES::MESSAGE 0))) ; --> COND IF ; ==> ; (TYPEP #:G1 'CL-POSTGRES-ERROR:INVALID-SQL-STATEMENT-NAME) ; ; note: can't open-code test of unknown type CL-POSTGRES-ERROR:INVALID-SQL-STATEMENT-NAME ; --> COND IF IF ; ==> ; (TYPEP #:G1 'CL-POSTGRES-ERROR:DUPLICATE-PREPARED-STATEMENT) ; ; note: can't open-code test of unknown type CL-POSTGRES-ERROR:DUPLICATE-PREPARED-STATEMENT ; processing (DEFINE-CONDITION DATABASE-CONNECTION-ERROR ...) ; processing (DEFINE-CONDITION DATABASE-CONNECTION-LOST ...) ; processing (DEFINE-CONDITION DATABASE-SOCKET-ERROR ...) ; processing (DEFUN WRAP-SOCKET-ERROR ...) ; processing (IN-PACKAGE :CL-POSTGRES-ERROR) ; processing (DEFPARAMETER *ERROR-TABLE* ...) ; processing (DEFMACRO DEFERROR ...) ; processing (DEFERROR "08000" ...) ; processing (DEFERROR "08003" ...) ; processing (DEFERROR "08006" ...) ; processing (DEFERROR "08001" ...) ; processing (DEFERROR "08004" ...) ; processing (DEFERROR "08007" ...) ; processing (DEFERROR "08P01" ...) ; processing (DEFERROR "0A" ...) ; processing (DEFERROR "22" ...) ; processing (DEFERROR "22012" ...) ; processing (DEFERROR "22021" ...) ; processing (DEFERROR "22007" ...) ; processing (DEFERROR "22003" ...) ; processing (DEFERROR "22P01" ...) ; processing (DEFERROR "23" ...) ; processing (DEFERROR "23001" ...) ; processing (DEFERROR "23502" ...) ; processing (DEFERROR "23503" ...) ; processing (DEFERROR "23505" ...) ; processing (DEFERROR "23514" ...) ; processing (DEFERROR "26000" ...) ; processing (DEFERROR "42" ...) ; processing (DEFERROR "42501" ...) ; processing (DEFERROR "40" ...) ; processing (DEFERROR "40001" ...) ; processing (DEFERROR "40002" ...) ; processing (DEFERROR "40003" ...) ; processing (DEFERROR "40P01" ...) ; processing (DEFERROR "42P01" ...) ; processing (DEFERROR "42601" ...) ; processing (DEFERROR "42703" ...) ; processing (DEFERROR "42704" ...) ; processing (DEFERROR "42701" ...) ; processing (DEFERROR "42P03" ...) ; processing (DEFERROR "42P04" ...) ; processing (DEFERROR "42723" ...) ; processing (DEFERROR "42P05" ...) ; processing (DEFERROR "42P06" ...) ; processing (DEFERROR "42P07" ...) ; processing (DEFERROR "42712" ...) ; processing (DEFERROR "42710" ...) ; processing (DEFERROR "53" ...) ; processing (DEFERROR "54" ...) ; processing (DEFERROR "55" ...) ; processing (DEFERROR "55006" ...) ; processing (DEFERROR "55P03" ...) ; processing (DEFERROR "57" ...) ; processing (DEFERROR "57014" ...) ; processing (DEFINE-CONDITION SERVER-SHUTDOWN ...) ; processing (DEFERROR "57P01" ...) ; processing (DEFERROR "57P02" ...) ; processing (DEFERROR "57P03" ...) ; processing (DEFERROR "58" ...) ; processing (DEFERROR "XX" ...) ; processing (DEFUN GET-ERROR-TYPE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/cl-postgres/errors-tmpDNAAZUQ1.fasl ; compilation finished in 0:00:00.023 ; compiling file "/usr/share/common-lisp/source/postmodern/cl-postgres/data-types.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :CL-POSTGRES) ; processing (DEFUN INT64-TO-VECTOR ...) ; processing (DEFUN INT32-TO-VECTOR ...) ; processing (DEFUN INT16-TO-VECTOR ...) ; processing (DEFUN INT8-TO-VECTOR ...) ; processing (DEFUN INT-TO-VECTOR ...) ; processing (DEFUN GET-INT-SIZE ...) ; processing (DEFUN INT2P ...) ; processing (DEFUN INT4P ...) ; processing (DEFUN INT8P ...) ; processing (DEFTYPE INT2 ...) ; processing (DEFTYPE INT4 ...) ; processing (DEFTYPE INT8 ...) ; processing (DEFUN UUID-TO-BYTE-ARRAY ...) ; processing (DEFUN UUIP-P ...) ; processing (DEFTYPE UUID-STRING ...) ; processing (DEFUN TEXT-ARRAY-P ...) ; processing (DEFUN INT2-ARRAY-P ...) ; processing (DEFUN INT4-ARRAY-P ...) ; processing (DEFUN INT8-ARRAY-P ...) ; processing (DEFTYPE TEXT-ARRAY ...) ; processing (DEFTYPE INT2-ARRAY ...) ; processing (DEFTYPE INT4-ARRAY ...) ; processing (DEFTYPE INT8-ARRAY ...) ; processing (DEFUN PARAM-TO-OID ...) ; processing (DEFUN TYPES-MATCH-P ...) ; processing (DEFUN OID-TYPES-MATCH-P ...) ; processing (DEFUN PARAMETER-LIST-TYPES ...) ; processing (DEFUN PARAMETER-LISTS-MATCH-OID-TYPES-P ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/cl-postgres/data-types-tmpSFHGUSI2.fasl ; compilation finished in 0:00:00.042 ; compiling file "/usr/share/common-lisp/source/postmodern/cl-postgres/sql-string.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :CL-POSTGRES) ; processing (DEFUN ESCAPE-BYTES ...) ; processing (DEFUN WRITE-RATIO-AS-FLOATING-POINT ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/sql-string.lisp ; in: DEFUN WRITE-RATIO-AS-FLOATING-POINT ; (< NUMBER 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (- NUMBER) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (TRUNCATE ; (IF (< NUMBER 0) ; (PROGN (WRITE-CHAR #\- STREAM) (- NUMBER)) ; NUMBER)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (ZEROP CL-POSTGRES::REMAINDER) ; ; 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 (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (* CL-POSTGRES::REMAINDER 10) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a RATIONAL. ; (FLOOR (* CL-POSTGRES::REMAINDER 10)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-10) (10))), not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-10) (10))), 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 (-10) (10))), not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-10) (10))), not a FLOAT. ; (< NUMBER 0) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (- NUMBER) ; ; note: forced to do GENERIC-NEGATE (cost 10) ; unable to do #1=inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (cost 1) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (TRUNCATE ; (IF (< NUMBER 0) ; (PROGN (WRITE-CHAR #\- STREAM) (- NUMBER)) ; NUMBER)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL #1=(-1) #2=(1))) ; . #3=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL #1# #2#)) . #3#), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; (* CL-POSTGRES::REMAINDER 10) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR FLOAT (RATIONAL #2=(-1) #3=(1))), not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL #4=(-10) #5=(10))) ; . #6=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (OR FLOAT (RATIONAL #2# #3#)), not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL #4# #5#)) . #6#), not a (VALUES ; FIXNUM ; &REST ; T). ; etc. ; (FLOOR (* CL-POSTGRES::REMAINDER 10)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT (RATIONAL #1=(-10) #2=(10))), not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL #3=(-1) #4=(1))) ; . #5=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR FLOAT (RATIONAL #1# #2#)), not a (UNSIGNED-BYTE ; 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL #3# #4#)) . #5#), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (OR FLOAT (RATIONAL #2=(-10) #3=(10))), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (OR FLOAT (RATIONAL #2# #3#)), not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR FLOAT (RATIONAL #2=(-1) #3=(1))), not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL #4=(0) #5=(2))) ; . #6=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (OR FLOAT (RATIONAL #2# #3#)), not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL #4# #5#)) . #6#), not a (VALUES ; FIXNUM ; &REST ; T). ; etc. ; (CL-POSTGRES::FAIL NIL ; (UNLESS CL-POSTGRES::SILENTLY-TRUNCATE? ; (RESTART-CASE (ERROR 'CL-POSTGRES:DATABASE-ERROR :MESSAGE ; (FORMAT NIL ; "Can not write the ratio ~A as a floating point number with only ~A available digits. You may want to (setf ~S t) if you don't mind the loss of precision." ; NUMBER CL-POSTGRES::DIGIT-LENGTH-LIMIT ; 'CL-POSTGRES:*SILENTLY-TRUNCATE-RATIOS*)) ; (CONTINUE NIL :REPORT (LAMBDA # #) (SETF #)) ; (CL-POSTGRES::DISABLE-ASSERTION NIL :REPORT (LAMBDA # #) (SETF #) ; (SETF #))))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; processing (DEFUN WRITE-QUOTED ...) ; processing (DEFGENERIC TO-SQL-STRING ...) ; processing (DEFGENERIC SERIALIZE-FOR-POSTGRES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/cl-postgres/sql-string-tmpJEMJHCAQ.fasl ; compilation finished in 0:00:00.037 ; compiling file "/usr/share/common-lisp/source/postmodern/cl-postgres/trivial-utf-8.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :CL-POSTGRES-TRIVIAL-UTF-8) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFUN UTF-8-BYTE-LENGTH ...) ; processing (DEFMACRO AS-UTF-8-BYTES ...) ; processing (DEFUN STRING-TO-UTF-8-BYTES ...) ; processing (DEFUN WRITE-UTF-8-BYTES ...) ; processing (DEFINE-CONDITION UTF-8-DECODING-ERROR ...) ; processing (DECLAIM (INLINE UTF-8-GROUP-SIZE)) ; processing (DEFUN UTF-8-GROUP-SIZE ...) ; processing (DEFUN UTF-8-STRING-LENGTH ...) ; processing (DEFUN GET-UTF-8-CHARACTER ...) ; processing (DEFUN UTF-8-BYTES-TO-STRING ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/trivial-utf-8.lisp ; in: DEFUN UTF-8-BYTES-TO-STRING ; (COERCE CL-POSTGRES-TRIVIAL-UTF-8::BYTES-IN ; '(SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (AND VECTOR ; (NOT ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; . #1=((*))))), not a (SIMPLE-ARRAY * . #1#). ; processing (DEFUN READ-UTF-8-STRING ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/cl-postgres/trivial-utf-8-tmpJV5SBQ61.fasl ; compilation finished in 0:00:00.043 ; compiling file "/usr/share/common-lisp/source/postmodern/cl-postgres/strings-utf-8.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :CL-POSTGRES) ; processing (DEFPARAMETER *CLIENT-ENCODING* ...) ; processing (DECLAIM (INLINE ENC-BYTE-LENGTH)) ; processing (DEFUN ENC-BYTE-LENGTH ...) ; processing (DECLAIM (INLINE ENC-WRITE-STRING)) ; processing (DEFUN ENC-WRITE-STRING ...) ; processing (DECLAIM (INLINE ENC-READ-STRING)) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN ENC-READ-STRING ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/strings-utf-8.lisp ; in: DEFUN ENC-READ-STRING ; (DEFUN CL-POSTGRES::ENC-READ-STRING ; (CL-POSTGRES::INPUT ; &KEY CL-POSTGRES::NULL-TERMINATED (CL-POSTGRES::BYTE-LENGTH -1)) ; (CL-POSTGRES-TRIVIAL-UTF-8:READ-UTF-8-STRING CL-POSTGRES::INPUT ; :NULL-TERMINATED ; CL-POSTGRES::NULL-TERMINATED ; :STOP-AT-EOF T :BYTE-LENGTH ; CL-POSTGRES::BYTE-LENGTH)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-POSTGRES::ENC-READ-STRING ; (CL-POSTGRES::INPUT &KEY CL-POSTGRES::NULL-TERMINATED ; (CL-POSTGRES::BYTE-LENGTH -1)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL-POSTGRES::ENC-READ-STRING ; (CL-POSTGRES-TRIVIAL-UTF-8:READ-UTF-8-STRING CL-POSTGRES::INPUT ; :NULL-TERMINATED ; CL-POSTGRES::NULL-TERMINATED ; :STOP-AT-EOF T ; :BYTE-LENGTH ; CL-POSTGRES::BYTE-LENGTH))) ; ; note: Type assertion too complex to check: ; (VALUES STRING &REST T). ; It allows an unknown number of values, consider using ; (VALUES STRING &OPTIONAL). ; processing (DECLAIM (INLINE ENC-STRING-BYTES)) ; processing (DEFUN ENC-STRING-BYTES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/cl-postgres/strings-utf-8-tmpFHSB04A0.fasl ; compilation finished in 0:00:00.006 ; compiling file "/usr/share/common-lisp/source/postmodern/cl-postgres/communicate.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :CL-POSTGRES) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFMACRO INTEGER-READER ...) ; processing (DEFMACRO INTEGER-WRITER ...) ; processing (INTEGER-READER 1) ; processing (INTEGER-READER 2) ; processing (INTEGER-READER 4) ; processing (INTEGER-READER 8) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/communicate.lisp ; in: INTEGER-READER 8 ; (CL-POSTGRES::INTEGER-READER 8) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-POSTGRES::READ-INT8 ; (CL-POSTGRES::SOCKET) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (DECLARE (TYPE STREAM CL-POSTGRES::SOCKET) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 1) (DEBUG 1) ; (COMPILATION-SPEED 0))) ; (BLOCK CL-POSTGRES::READ-INT8 ; (LET ((CL-POSTGRES::RESULT 0)) ; (DECLARE (TYPE # CL-POSTGRES::RESULT)) ; (SETF # #) ; (SETF # #) ; (SETF # #) ; (SETF # #) ; (SETF # #) ; (SETF # #) ; (SETF # #) ; (SETF # #) ; (IF (LOGBITP 63 CL-POSTGRES::RESULT) ; (DPB CL-POSTGRES::RESULT # -1) ; CL-POSTGRES::RESULT)))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-POSTGRES::READ-UINT8 ; (CL-POSTGRES::SOCKET) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (DECLARE (TYPE STREAM CL-POSTGRES::SOCKET) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 1) (DEBUG 1) ; (COMPILATION-SPEED 0))) ; (BLOCK CL-POSTGRES::READ-UINT8 ; (LET ((CL-POSTGRES::RESULT 0)) ; (DECLARE (TYPE # CL-POSTGRES::RESULT)) ; (SETF # #) ; (SETF # #) ; (SETF # #) ; (SETF # #) ; (SETF # #) ; (SETF # #) ; (SETF # #) ; (SETF # #) ; CL-POSTGRES::RESULT))) ; ; note: doing unsigned word to integer coercion (cost 20) from RESULT to "" ; processing (INTEGER-WRITER 1) ; processing (INTEGER-WRITER 2) ; processing (INTEGER-WRITER 4) ; processing (INTEGER-WRITER 8) ; processing (DEFUN WRITE-BYTES ...) ; processing (DEFUN WRITE-STR ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN READ-BYTES ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN READ-STR ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN READ-SIMPLE-STR ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/communicate.lisp ; in: DEFUN READ-SIMPLE-STR ; (< CL-POSTGRES::B 128) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM. ; etc. ; processing (DEFUN SKIP-BYTES ...) ; processing (DEFUN SKIP-STR ...) ; processing (DEFUN ENSURE-SOCKET-IS-CLOSED ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/cl-postgres/communicate-tmpQQZWJZI3.fasl ; compilation finished in 0:00:00.051 ; compiling file "/usr/share/common-lisp/source/postmodern/cl-postgres/messages.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :CL-POSTGRES) ; processing (DEFMACRO DEFINE-MESSAGE ...) ; processing (DEFINE-MESSAGE SSL-REQUEST-MESSAGE ...) ; processing (DEFINE-MESSAGE STARTUP-MESSAGE ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/messages.lisp ; in: DEFINE-MESSAGE STARTUP-MESSAGE ; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::STARTUP-MESSAGE ; NIL ; (CL-POSTGRES::USER CL-POSTGRES::DATABASE CL-POSTGRES::APPLICATION-NAME) ; (CL-POSTGRES::UINT 4 196608) ; (STRING "user") ; (STRING CL-POSTGRES::USER) ; (STRING "database") ; (STRING CL-POSTGRES::DATABASE) ; (STRING "client_encoding") ; (STRING CL-POSTGRES::*CLIENT-ENCODING*) ; (STRING "application_name") ; ...) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET CL-POSTGRES::WRITE-UINT4 + ; ==> ; 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 ; associate +/(+ -) of constants ; 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 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 ; 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 ; 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 ; 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 ; 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 ; 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 ; 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: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; 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. ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; etc. ; processing (DEFINE-MESSAGE PLAIN-PASSWORD-MESSAGE ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/messages.lisp ; in: DEFINE-MESSAGE PLAIN-PASSWORD-MESSAGE ; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::PLAIN-PASSWORD-MESSAGE ; #\p ; (CL-POSTGRES::PASSWORD) ; (STRING CL-POSTGRES::PASSWORD)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET CL-POSTGRES::WRITE-UINT4 ; ==> ; (+ 5 (CL-POSTGRES::ENC-BYTE-LENGTH #:G1)) ; ; note: unable to ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; etc. ; processing (DEFUN BYTES-TO-HEX-STRING ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/messages.lisp ; in: DEFUN BYTES-TO-HEX-STRING ; (LOOP :FOR BYTE :ACROSS CL-POSTGRES::BYTES ; :FOR CL-POSTGRES::POS :FROM 0 :BY 2 ; :DO ...) ; --> LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; processing (DEFUN MD5-PASSWORD ...) ; processing (DEFINE-MESSAGE MD5-PASSWORD-MESSAGE ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/messages.lisp ; in: DEFINE-MESSAGE MD5-PASSWORD-MESSAGE ; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::MD5-PASSWORD-MESSAGE ; #\p ; (CL-POSTGRES::PASSWORD CL-POSTGRES::USER CL-POSTGRES::SALT) ; (STRING ; (CL-POSTGRES::MD5-PASSWORD CL-POSTGRES::PASSWORD CL-POSTGRES::USER ; CL-POSTGRES::SALT))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET CL-POSTGRES::WRITE-UINT4 ; ==> ; (+ 5 (CL-POSTGRES::ENC-BYTE-LENGTH #:G1)) ; ; note: unable to ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; etc. ; processing (DEFINE-MESSAGE GSS-AUTH-BUFFER-MESSAGE ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/messages.lisp ; in: DEFINE-MESSAGE GSS-AUTH-BUFFER-MESSAGE ; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::GSS-AUTH-BUFFER-MESSAGE ; #\p ; (CL-POSTGRES::BUF) ; (CL-POSTGRES::BYTES CL-POSTGRES::BUF)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET CL-POSTGRES::WRITE-UINT4 + ; ==> ; (LENGTH #:G1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; processing (DEFINE-MESSAGE SCRAM-TYPE-MESSAGE ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/messages.lisp ; in: DEFINE-MESSAGE SCRAM-TYPE-MESSAGE ; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::SCRAM-TYPE-MESSAGE ; #\p ; (CL-POSTGRES::CLIENT-INITIAL-MESSAGE) ; (STRING "SCRAM-SHA-256") ; (CL-POSTGRES::UINT 4 ; (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::CLIENT-INITIAL-MESSAGE)) ; (CL-POSTGRES::BYTES ; (CL-POSTGRES-TRIVIAL-UTF-8:STRING-TO-UTF-8-BYTES ; CL-POSTGRES::CLIENT-INITIAL-MESSAGE))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET CL-POSTGRES::WRITE-UINT4 + ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; 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: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 9 4611686018427387909), not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; etc. ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of GENERIC-+ ; processing (DEFINE-MESSAGE SCRAM-CONT-MESSAGE ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/messages.lisp ; in: DEFINE-MESSAGE SCRAM-CONT-MESSAGE ; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::SCRAM-CONT-MESSAGE ; #\p ; (CL-POSTGRES::FINAL-MESSAGE) ; (CL-POSTGRES::BYTES ; (CL-POSTGRES-TRIVIAL-UTF-8:STRING-TO-UTF-8-BYTES ; CL-POSTGRES::FINAL-MESSAGE))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET CL-POSTGRES::WRITE-UINT4 + ; ==> ; (LENGTH #:G1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; processing (DEFINE-MESSAGE QUERY-MESSAGE ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/messages.lisp ; in: DEFINE-MESSAGE QUERY-MESSAGE ; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::QUERY-MESSAGE ; #\Q ; (CL-POSTGRES::QUERY) ; (STRING CL-POSTGRES::QUERY)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET CL-POSTGRES::WRITE-UINT4 ; ==> ; (+ 5 (CL-POSTGRES::ENC-BYTE-LENGTH #:G1)) ; ; note: unable to ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; etc. ; processing (DEFINE-MESSAGE SIMPLE-PARSE-MESSAGE ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/messages.lisp ; in: DEFINE-MESSAGE SIMPLE-PARSE-MESSAGE ; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::SIMPLE-PARSE-MESSAGE ; #\P ; (CL-POSTGRES::QUERY) ; (CL-POSTGRES::UINT 1 0) ; (STRING CL-POSTGRES::QUERY) ; (CL-POSTGRES::UINT 2 0)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET CL-POSTGRES::WRITE-UINT4 ; ==> ; (+ 8 (CL-POSTGRES::ENC-BYTE-LENGTH #:G2)) ; ; note: unable to ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; etc. ; processing (DEFINE-MESSAGE PARSE-MESSAGE ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/messages.lisp ; in: DEFINE-MESSAGE PARSE-MESSAGE ; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::PARSE-MESSAGE ; #\P ; (CL-POSTGRES::NAME CL-POSTGRES::QUERY) ; (STRING CL-POSTGRES::NAME) ; (STRING CL-POSTGRES::QUERY) ; (CL-POSTGRES::UINT 2 0)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET CL-POSTGRES::WRITE-UINT4 + ; ==> ; 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 ; associate +/(+ -) of constants ; 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 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: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; 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. ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; etc. ; processing (DEFUN PARSE-MESSAGE-BINARY-PARAMETERS ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/messages.lisp ; in: DEFUN PARSE-MESSAGE-BINARY-PARAMETERS ; (LENGTH CL-POSTGRES::PARAMETERS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (+ 8 (* CL-POSTGRES::LEN 4) (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::QUERY) ; (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::NAME)) ; ; 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 ; 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: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 8 18446744073709551608), not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER 8 18446744073709551608), not a (SIGNED-BYTE ; 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; 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. ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; etc. ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of GENERIC-+ ; processing (DEFINE-MESSAGE CLOSE-PREPARED-MESSAGE ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/messages.lisp ; in: DEFINE-MESSAGE CLOSE-PREPARED-MESSAGE ; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::CLOSE-PREPARED-MESSAGE ; #\C ; (CL-POSTGRES::NAME) ; (CL-POSTGRES::UINT 1 83) ; (STRING CL-POSTGRES::NAME)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET CL-POSTGRES::WRITE-UINT4 ; ==> ; (+ 6 (CL-POSTGRES::ENC-BYTE-LENGTH #:G2)) ; ; note: unable to ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; etc. ; processing (DEFUN FORMATS-TO-BYTES ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/messages.lisp ; in: DEFUN FORMATS-TO-BYTES ; (LOOP :FOR FORMAT :ACROSS CL-POSTGRES::FORMATS ; :FOR CL-POSTGRES::POS :FROM 1 :BY 2 ; :DO ...) ; --> LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; --> LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE ; ==> ; (+ CL-POSTGRES::POS 2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 3) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 3) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFINE-MESSAGE SIMPLE-BIND-MESSAGE ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/messages.lisp ; in: DEFINE-MESSAGE SIMPLE-BIND-MESSAGE ; (LENGTH CL-POSTGRES::FORMATS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; processing (DEFUN GO-BINARY-LIST-P ...) ; processing (DEFUN GO-BINARY-P ...) ; processing (DEFUN BIND-MESSAGE ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/messages.lisp ; in: DEFUN BIND-MESSAGE ; (+ 12 (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::NAME) ; (* 6 CL-POSTGRES::N-PARAMS) (* 2 CL-POSTGRES::N-RESULT-FORMATS) ; (LOOP :FOR CL-POSTGRES::SIZE :OF-TYPE FIXNUM :ACROSS CL-POSTGRES::PARAM-SIZES ; :SUM CL-POSTGRES::SIZE)) ; ; 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 ; associate +/(+ -) of constants ; 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 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 ; 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 ; 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)). ; (LOOP :FOR FORMAT :ACROSS CL-POSTGRES::RESULT-FORMATS ; :DO (CL-POSTGRES::WRITE-UINT2 CL-POSTGRES::SOCKET ; (IF FORMAT ; 1 ; 0))) ; --> LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (+ 12 (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::NAME) ; (* 6 CL-POSTGRES::N-PARAMS) (* 2 CL-POSTGRES::N-RESULT-FORMATS) ; (LOOP :FOR CL-POSTGRES::SIZE :OF-TYPE FIXNUM :ACROSS CL-POSTGRES::PARAM-SIZES ; :SUM CL-POSTGRES::SIZE)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; (LOOP :FOR CL-POSTGRES::SIZE :OF-TYPE FIXNUM :ACROSS CL-POSTGRES::PARAM-SIZES ; :SUM CL-POSTGRES::SIZE) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFINE-MESSAGE SIMPLE-DESCRIBE-MESSAGE ...) ; processing (DEFINE-MESSAGE DESCRIBE-PREPARED-MESSAGE ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/messages.lisp ; in: DEFINE-MESSAGE DESCRIBE-PREPARED-MESSAGE ; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::DESCRIBE-PREPARED-MESSAGE ; #\D ; (CL-POSTGRES::NAME) ; (CL-POSTGRES::UINT 1 83) ; (STRING CL-POSTGRES::NAME)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET CL-POSTGRES::WRITE-UINT4 ; ==> ; (+ 6 (CL-POSTGRES::ENC-BYTE-LENGTH #:G2)) ; ; note: unable to ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; etc. ; processing (DEFINE-MESSAGE SIMPLE-EXECUTE-MESSAGE ...) ; processing (DEFINE-MESSAGE FLUSH-MESSAGE ...) ; processing (DEFINE-MESSAGE SYNC-MESSAGE ...) ; processing (DEFINE-MESSAGE TERMINATE-MESSAGE ...) ; processing (DEFINE-MESSAGE COPY-DONE-MESSAGE ...) ; processing (DEFUN COPY-DATA-MESSAGE ...) ; processing (DEFINE-MESSAGE COPY-FAIL-MESSAGE ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/messages.lisp ; in: DEFINE-MESSAGE COPY-FAIL-MESSAGE ; (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::COPY-FAIL-MESSAGE ; #\f ; (CL-POSTGRES::REASON) ; (STRING CL-POSTGRES::REASON)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET CL-POSTGRES::WRITE-UINT4 ; ==> ; (+ 5 (CL-POSTGRES::ENC-BYTE-LENGTH #:G1)) ; ; note: unable to ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; etc. ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/cl-postgres/messages-tmpPHMA69WA.fasl ; compilation finished in 0:00:00.087 ; compiling file "/usr/share/common-lisp/source/postmodern/cl-postgres/ieee-floats.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :CL-POSTGRES-IEEE-FLOATS) ; processing (DEFMACRO MAKE-FLOAT-CONVERTERS ...) ; processing (MAKE-FLOAT-CONVERTERS ENCODE-FLOAT32 ...) ; processing (MAKE-FLOAT-CONVERTERS ENCODE-FLOAT64 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/cl-postgres/ieee-floats-tmpXFTEJBZU.fasl ; compilation finished in 0:00:00.022 ; compiling file "/usr/share/common-lisp/source/postmodern/cl-postgres/interpret.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :CL-POSTGRES) ; processing (DEFPARAMETER *TIMESTAMP-FORMAT* ...) ; processing (DEFPARAMETER *SQL-READTABLE* ...) ; processing (DEFUN INTERPRET-AS-TEXT ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/interpret.lisp ; in: DEFUN INTERPRET-AS-TEXT ; (CL-POSTGRES::ENC-READ-STRING STREAM :BYTE-LENGTH CL-POSTGRES::SIZE) ; ; note: Type assertion too complex to check: ; (VALUES STRING &REST T). ; It allows an unknown number of values, consider using ; (VALUES STRING &OPTIONAL). ; processing (DEFCLASS TYPE-INTERPRETER ...) ; processing (DEFUN INTERPRETER-BINARY-P ...) ; processing (DEFUN INTERPRETER-READER ...) ; processing (LET (#) ...) ; processing (DEFUN SET-SQL-READER ...) ; processing (DEFMACRO BINARY-READER ...) ; processing (DEFMACRO DEFINE-INTERPRETER ...) ; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+CHAR+ ...) ; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+INT2+ ...) ; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+INT4+ ...) ; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+INT8+ ...) ; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+OID+ ...) ; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+BOOL+ ...) ; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+BYTEA+ ...) ; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+TEXT+ ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/interpret.lisp ; in: DEFINE-INTERPRETER CL-POSTGRES-OID:+TEXT+ ; (CL-POSTGRES::DEFINE-INTERPRETER CL-POSTGRES-OID:+TEXT+ ; "text" ; STRING) ; --> CL-POSTGRES:SET-SQL-READER CL-POSTGRES::BINARY-READER FUNCTION ; ==> ; (CL-POSTGRES::ENC-READ-STRING #:G2 :BYTE-LENGTH (- #:G3 0)) ; ; note: Type assertion too complex to check: ; (VALUES STRING &REST T). ; It allows an unknown number of values, consider using ; (VALUES STRING &OPTIONAL). ; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+BPCHAR+ ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/interpret.lisp ; in: DEFINE-INTERPRETER CL-POSTGRES-OID:+BPCHAR+ ; (CL-POSTGRES::DEFINE-INTERPRETER CL-POSTGRES-OID:+BPCHAR+ ; "bpchar" ; STRING) ; --> CL-POSTGRES:SET-SQL-READER CL-POSTGRES::BINARY-READER FUNCTION ; ==> ; (CL-POSTGRES::ENC-READ-STRING #:G2 :BYTE-LENGTH (- #:G3 0)) ; ; note: Type assertion too complex to check: ; (VALUES STRING &REST T). ; It allows an unknown number of values, consider using ; (VALUES STRING &OPTIONAL). ; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+VARCHAR+ ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/interpret.lisp ; in: DEFINE-INTERPRETER CL-POSTGRES-OID:+VARCHAR+ ; (CL-POSTGRES::DEFINE-INTERPRETER CL-POSTGRES-OID:+VARCHAR+ ; "varchar" ; STRING) ; --> CL-POSTGRES:SET-SQL-READER CL-POSTGRES::BINARY-READER FUNCTION ; ==> ; (CL-POSTGRES::ENC-READ-STRING #:G2 :BYTE-LENGTH (- #:G3 0)) ; ; note: Type assertion too complex to check: ; (VALUES STRING &REST T). ; It allows an unknown number of values, consider using ; (VALUES STRING &OPTIONAL). ; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+JSON+ ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/interpret.lisp ; in: DEFINE-INTERPRETER CL-POSTGRES-OID:+JSON+ ; (CL-POSTGRES::DEFINE-INTERPRETER CL-POSTGRES-OID:+JSON+ ; "json" ; STRING) ; --> CL-POSTGRES:SET-SQL-READER CL-POSTGRES::BINARY-READER FUNCTION ; ==> ; (CL-POSTGRES::ENC-READ-STRING #:G2 :BYTE-LENGTH (- #:G3 0)) ; ; note: Type assertion too complex to check: ; (VALUES STRING &REST T). ; It allows an unknown number of values, consider using ; (VALUES STRING &OPTIONAL). ; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+JSONB+ ...) ; processing (DEFUN READ-ROW-VALUE ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/interpret.lisp ; in: DEFUN READ-ROW-VALUE ; (DEFUN CL-POSTGRES::READ-ROW-VALUE (STREAM CL-POSTGRES::SIZE) ; (DECLARE (TYPE STREAM STREAM) ; (TYPE INTEGER CL-POSTGRES::SIZE)) ; (LET ((CL-POSTGRES::NUM-FIELDS (CL-POSTGRES::READ-UINT4 STREAM))) ; (LOOP CL-POSTGRES::FOR CL-POSTGRES::I CL-POSTGRES::BELOW CL-POSTGRES::NUM-FIELDS ; CL-POSTGRES::COLLECT (LET (# #) ; (DECLARE #) ; (IF # ; :NULL ; #))))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-POSTGRES::READ-ROW-VALUE ; (STREAM CL-POSTGRES::SIZE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (DECLARE (TYPE STREAM STREAM) ; (TYPE INTEGER CL-POSTGRES::SIZE)) ; (BLOCK CL-POSTGRES::READ-ROW-VALUE ; (LET ((CL-POSTGRES::NUM-FIELDS #)) ; (LOOP CL-POSTGRES::FOR CL-POSTGRES::I CL-POSTGRES::BELOW CL-POSTGRES::NUM-FIELDS ; CL-POSTGRES::COLLECT (LET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable SIZE is defined but never used. ; processing (DEFPARAMETER *READ-ROW-VALUES-AS-BINARY* ...) ; processing (SET-SQL-READER CL-POSTGRES-OID:+RECORD+ ...) ; processing (DEFMACRO WITH-BINARY-ROW-VALUES ...) ; processing (DEFMACRO WITH-TEXT-ROW-VALUES ...) ; processing (DEFUN READ-BINARY-BITS ...) ; processing (SET-SQL-READER CL-POSTGRES-OID:+BIT+ ...) ; processing (SET-SQL-READER CL-POSTGRES-OID:+VARBIT+ ...) ; processing (DEFUN READ-BINARY-ARRAY-VALUE ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/interpret.lisp ; in: DEFUN READ-BINARY-ARRAY-VALUE ; (DEFUN CL-POSTGRES::READ-BINARY-ARRAY-VALUE (STREAM CL-POSTGRES::SIZE) ; (DECLARE (TYPE STREAM STREAM) ; (TYPE INTEGER CL-POSTGRES::SIZE)) ; (LET ((CL-POSTGRES::NUM-DIMS (CL-POSTGRES::READ-UINT4 STREAM)) ; (CL-POSTGRES::HAS-NULL (CL-POSTGRES::READ-UINT4 STREAM)) ; (CL-POSTGRES::ELEMENT-TYPE (CL-POSTGRES::READ-UINT4 STREAM))) ; (COND ((ZEROP CL-POSTGRES::NUM-DIMS) NIL) ; (T ; (LET* # ; #))))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-POSTGRES::READ-BINARY-ARRAY-VALUE ; (STREAM CL-POSTGRES::SIZE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (DECLARE (TYPE STREAM STREAM) ; (TYPE INTEGER CL-POSTGRES::SIZE)) ; (BLOCK CL-POSTGRES::READ-BINARY-ARRAY-VALUE ; (LET ((CL-POSTGRES::NUM-DIMS #) ; (CL-POSTGRES::HAS-NULL #) ; (CL-POSTGRES::ELEMENT-TYPE #)) ; (COND (# NIL) (T #))))) ; ; caught STYLE-WARNING: ; The variable SIZE is defined but never used. ; (CL-POSTGRES::HAS-NULL (CL-POSTGRES::READ-UINT4 STREAM)) ; ; caught STYLE-WARNING: ; The variable HAS-NULL is defined but never used. ; processing (DOLIST (OID #) ...) ; processing (SET-SQL-READER CL-POSTGRES-OID:+RECORD-ARRAY+ ...) ; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+POINT+ ...) ; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+LSEG+ ...) ; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+BOX+ ...) ; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+FLOAT4+ ...) ; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+FLOAT8+ ...) ; processing (DEFINE-INTERPRETER CL-POSTGRES-OID:+NUMERIC+ ...) ; processing (DEFUN SET-DATE-READER ...) ; processing (DEFUN INTERPRET-USEC-BITS ...) ; processing (DEFUN SET-INTERVAL-READER ...) ; processing (DEFUN SET-USEC-READER ...) ; processing (DEFUN SET-SQL-DATETIME-READERS ...) ; processing (DEFCONSTANT +START-OF-2000+ ...) ; processing (DEFCONSTANT +SECONDS-IN-DAY+ ...) ; processing (DEFUN DEFAULT-DATE-READER ...) ; processing (DEFUN DEFAULT-TIMESTAMP-READER ...) ; processing (DEFUN DEFAULT-INTERVAL-READER ...) ; processing (DEFUN DEFAULT-TIME-READER ...) ; processing (SET-SQL-DATETIME-READERS :DATE ...) ; processing (DEFUN READ-ARRAY-VALUE ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/interpret.lisp ; in: DEFUN READ-ARRAY-VALUE ; (STRING= CL-POSTGRES::WORD "NULL") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SIMPLE-BASE-STRING ; (SIMPLE-ARRAY CHARACTER ; . #1=((*)))), not a (SIMPLE-ARRAY CHARACTER ; . #1#). ; (FUNCALL CL-POSTGRES::TRANSFORM CL-POSTGRES::WORD) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TRANSFORM is not known to be a function ; (CHAR CL-POSTGRES::VALUE CL-POSTGRES::POS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-POSTGRES::VALUE (INCF CL-POSTGRES::POS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-POSTGRES::VALUE CL-POSTGRES::POS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CL-POSTGRES::INTERPRET (CL-POSTGRES::WORD) ; (IF (STRING= CL-POSTGRES::WORD "NULL") ; :NULL ; (FUNCALL CL-POSTGRES::TRANSFORM CL-POSTGRES::WORD))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; processing (DEFUN COPY-SQL-READTABLE ...) ; processing (DEFPARAMETER *DEFAULT-SQL-READTABLE* ...) ; processing (DEFUN DEFAULT-SQL-READTABLE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/cl-postgres/interpret-tmpXHDS9JD.fasl ; compilation finished in 0:00:00.075 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/postmodern/cl-postgres/saslprep.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :CL-POSTGRES) ; processing (DEFVAR *PRINTABLE-ASCII-CHARS* ...) ; processing (DEFINE-CONDITION BAD-CHAR-ERROR ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN BAD-CHAR-ERROR ...) ; processing (DEFUN CHAR-PRINTABLE-ASCII-P ...) ; processing (DEFUN STRING-PRINTABLE-ASCII-P ...) ; processing (DEFUN CODE-POINT-PRINTABLE-ASCII-P ...) ; processing (DEFUN CHAR-MAPPED-TO-NOTHING-P ...) ; processing (DEFUN CHAR-MAPPED-TO-SPACE-P ...) ; processing (DEFUN STRING-MAPPED-TO-NOTHING ...) ; processing (DEFUN STRING-MAPPED-TO-SPACE ...) ; processing (DEFUN SASLPREP-NORMALIZE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/cl-postgres/saslprep-tmp7DVUZNNP.fasl ; compilation finished in 0:00:00.021 ; compiling file "/usr/share/common-lisp/source/postmodern/cl-postgres/scram.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :CL-POSTGRES) ; processing (DEFTYPE OCTET ...) ; processing (DEFTYPE OCTET-VECTOR ...) ; processing (DEFTYPE INDEX ...) ; processing (DECLAIM (FTYPE # ...) ...) ; processing (DEFUN MAKE-OCTET-VECTOR ...) ; processing (DEFUN PAD-OCTET-VECTOR ...) ; processing (DEFUN GEN-CLIENT-NONCE ...) ; processing (DEFUN GEN-CLIENT-INITIAL-RESPONSE ...) ; processing (DEFUN GEN-SALTED-PASSWORD ...) ; processing (DEFUN SPLIT-SERVER-RESPONSE ...) ; processing (DEFUN VALIDATE-SERVER-NONCE ...) ; processing (DEFUN PARSE-SCRAM-SERVER-FIRST-RESPONSE ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/scram.lisp ; in: DEFUN PARSE-SCRAM-SERVER-FIRST-RESPONSE ; (CL-POSTGRES::SERVER-NONCE-VALIDATED ; (CL-POSTGRES::VALIDATE-SERVER-NONCE CL-POSTGRES::SERVER-NONCE ; CL-POSTGRES::CLIENT-NONCE)) ; ; caught STYLE-WARNING: ; The variable SERVER-NONCE-VALIDATED is defined but never used. ; processing (DEFUN GEN-CLIENT-KEY ...) ; processing (DEFUN GEN-STORED-KEY ...) ; processing (DEFUN GEN-AUTH-MESSAGE ...) ; processing (DEFUN GEN-CLIENT-SIGNATURE ...) ; processing (DEFUN GEN-CLIENT-PROOF ...) ; processing (DEFUN GET-SERVER-KEY ...) ; processing (DEFUN GET-SERVER-SIGNATURE ...) ; processing (DEFUN GEN-FINAL-MESSAGE-PART-1 ...) ; processing (DEFUN GEN-FINAL-MESSAGE ...) ; processing (DEFUN AGGREGATED-GEN-FINAL-CLIENT-MESSAGE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/cl-postgres/scram-tmpSLELCKLF.fasl ; compilation finished in 0:00:00.027 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/postmodern/cl-postgres/protocol.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :CL-POSTGRES) ; processing (DEFINE-CONDITION PROTOCOL-ERROR ...) ; processing (DEFPARAMETER *CONNECTION-PARAMS* ...) ; processing (DEFPARAMETER *SSL-CERTIFICATE-FILE* ...) ; processing (DEFPARAMETER *SSL-KEY-FILE* ...) ; processing (DEFMACRO MESSAGE-CASE ...) ; processing (DEFUN UPDATE-PARAMETER ...) ; processing (DEFUN UPDATE-BACKEND-KEY-DATA ...) ; processing (DEFUN READ-BYTE-DELIMITED ...) ; processing (DEFINE-CONDITION POSTGRESQL-NOTIFICATION ...) ; processing (DEFUN GET-NOTIFICATION ...) ; processing (DEFUN GET-ERROR ...) ; processing (DEFINE-CONDITION POSTGRESQL-WARNING ...) ; processing (DEFUN GET-WARNING ...) ; processing (LET (#) ...) ; processing (DEFUN AUTHENTICATE ...) ; processing (DEFGENERIC FIELD-NAME ...) ; processing (DEFGENERIC FIELD-TYPE ...) ; processing (DEFCLASS FIELD-DESCRIPTION ...) ; processing (DEFUN READ-FIELD-DESCRIPTIONS ...) ; processing (DEFUN TERMINATE-CONNECTION ...) ; processing (DEFPARAMETER *EFFECTED-ROWS* ...) ; processing (DEFUN LOOK-FOR-ROW ...) ; processing (DEFUN TRY-TO-SYNC ...) ; processing (DEFMACRO WITH-SYNCING ...) ; processing (DEFMACRO RETURNING-EFFECTED-ROWS ...) ; processing (DEFUN SEND-QUERY ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/protocol.lisp ; in: DEFUN SEND-QUERY ; (MAP 'VECTOR 'CL-POSTGRES::FIELD-BINARY-P CL-POSTGRES::ROW-DESCRIPTION) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR NULL SIMPLE-VECTOR), not a VECTOR. ; (FUNCALL CL-POSTGRES:ROW-READER CL-POSTGRES::SOCKET ; CL-POSTGRES::ROW-DESCRIPTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; ROW-READER is not known to be a function ; (CL-POSTGRES::WITH-QUERY (CL-POSTGRES::QUERY) ; (LET ((CL-POSTGRES::ROW-DESCRIPTION NIL)) ; (CL-POSTGRES::SIMPLE-PARSE-MESSAGE CL-POSTGRES::SOCKET ; CL-POSTGRES::QUERY) ; (CL-POSTGRES::SIMPLE-DESCRIBE-MESSAGE CL-POSTGRES::SOCKET) ; (CL-POSTGRES::FLUSH-MESSAGE CL-POSTGRES::SOCKET) ; (FORCE-OUTPUT CL-POSTGRES::SOCKET) ; (CL-POSTGRES::MESSAGE-CASE CL-POSTGRES::SOCKET ; (#\1)) ; (CL-POSTGRES::MESSAGE-CASE CL-POSTGRES::SOCKET ; (#\t :SKIP)) ; (CL-POSTGRES::MESSAGE-CASE CL-POSTGRES::SOCKET ; (#\T (SETF #)) ; (#\n)) ; (CL-POSTGRES::SIMPLE-BIND-MESSAGE CL-POSTGRES::SOCKET ; (MAP 'VECTOR ; 'CL-POSTGRES::FIELD-BINARY-P ; CL-POSTGRES::ROW-DESCRIPTION)) ; (CL-POSTGRES::SIMPLE-EXECUTE-MESSAGE CL-POSTGRES::SOCKET) ; (CL-POSTGRES::SYNC-MESSAGE CL-POSTGRES::SOCKET) ; ...)) ; --> MULTIPLE-VALUE-PROG1 WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; processing (DEFUN SEND-PARSE ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/protocol.lisp ; in: DEFUN SEND-PARSE ; (CL-POSTGRES::WITH-QUERY (CL-POSTGRES::QUERY) ; (IF CL-POSTGRES::BINARY-PARAMETERS-P ; (CL-POSTGRES::PARSE-MESSAGE-BINARY-PARAMETERS CL-POSTGRES::SOCKET ; CL-POSTGRES::NAME ; CL-POSTGRES::QUERY ; CL-POSTGRES::PARAMETERS) ; (CL-POSTGRES::PARSE-MESSAGE CL-POSTGRES::SOCKET CL-POSTGRES::NAME ; CL-POSTGRES::QUERY)) ; (CL-POSTGRES::FLUSH-MESSAGE CL-POSTGRES::SOCKET) ; (FORCE-OUTPUT CL-POSTGRES::SOCKET) ; (CL-POSTGRES::MESSAGE-CASE CL-POSTGRES::SOCKET ; (#\1))) ; --> MULTIPLE-VALUE-PROG1 WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; processing (DEFUN SEND-CLOSE ...) ; processing (DEFUN SEND-EXECUTE ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/protocol.lisp ; in: DEFUN SEND-EXECUTE ; (MAP 'VECTOR 'CL-POSTGRES::FIELD-BINARY-P CL-POSTGRES::ROW-DESCRIPTION) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR NULL SIMPLE-VECTOR), not a VECTOR. ; (FUNCALL CL-POSTGRES:ROW-READER CL-POSTGRES::SOCKET ; CL-POSTGRES::ROW-DESCRIPTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; ROW-READER is not known to be a function ; processing (DEFUN BUILD-ROW-READER ...) ; processing (DEFMACRO ROW-READER ...) ; processing (DEFMACRO DEF-ROW-READER ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/cl-postgres/protocol-tmpRFCZGW36.fasl ; compilation finished in 0:00:00.132 ; compiling file "/usr/share/common-lisp/source/postmodern/cl-postgres/public.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :CL-POSTGRES) ; processing (DEFGENERIC CONNECTION-PORT ...) ; processing (DEFGENERIC CONNECTION-DB ...) ; processing (DEFGENERIC CONNECTION-PARAMETERS ...) ; processing (DEFCLASS DATABASE-CONNECTION ...) ; processing (DEFUN GET-POSTGRESQL-VERSION ...) ; processing (DEFUN POSTGRESQL-VERSION-AT-LEAST ...) ; processing (DEFUN CONNECTION-META ...) ; processing (DEFUN CONNECTION-PID ...) ; processing (DEFUN USE-BINARY-PARAMETERS ...) ; processing (DEFUN DATABASE-OPEN-P ...) ; processing (DEFUN OPEN-DATABASE ...) ; processing (PROGN (DEFPARAMETER *UNIX-SOCKET-DIR* ...) ...) ; processing (DEFUN GET-HOST-ADDRESS ...) ; processing (DEFUN INET-SOCKET-CONNECT ...) ; processing (DEFUN INITIATE-CONNECTION ...) ; file: /usr/share/common-lisp/source/postmodern/cl-postgres/public.lisp ; in: DEFUN INITIATE-CONNECTION ; (HANDLER-CASE ; (CL-POSTGRES::AUTHENTICATE CL-POSTGRES::SOCKET CL-POSTGRES::CONN) ; (CL-POSTGRES-ERROR:PROTOCOL-VIOLATION (CL-POSTGRES::ERR) ; (SETF CL-POSTGRES::FINISHED T) ; (CL-POSTGRES::ENSURE-SOCKET-IS-CLOSED CL-POSTGRES::SOCKET) ; (INCF CL-POSTGRES::CONNECTION-ATTEMPTS) ; (WHEN ; (< CL-POSTGRES::CONNECTION-ATTEMPTS CL-POSTGRES:*RETRY-CONNECT-TIMES*) ; (CL-POSTGRES::INITIATE-CONNECTION CL-POSTGRES::CONN ; CL-POSTGRES::CONNECTION-ATTEMPTS)))) ; ==> ; (#:FUN17 (CL-POSTGRES::ERR) ; (PROGN ; (SETF CL-POSTGRES::FINISHED T) ; (CL-POSTGRES::ENSURE-SOCKET-IS-CLOSED CL-POSTGRES::SOCKET) ; (INCF CL-POSTGRES::CONNECTION-ATTEMPTS) ; (WHEN ; (< CL-POSTGRES::CONNECTION-ATTEMPTS CL-POSTGRES:*RETRY-CONNECT-TIMES*) ; (CL-POSTGRES::INITIATE-CONNECTION CL-POSTGRES::CONN ; CL-POSTGRES::CONNECTION-ATTEMPTS)))) ; ; caught STYLE-WARNING: ; The variable ERR is defined but never used. ; (STRING= ; (GETHASH "integer_datetimes" ; (CL-POSTGRES:CONNECTION-PARAMETERS CL-POSTGRES::CONN)) ; "on") ; ; note: deleting unreachable code ; processing (DEFUN REOPEN-DATABASE ...) ; processing (DEFUN ENSURE-CONNECTION ...) ; processing (DEFUN CLOSE-DATABASE ...) ; processing (DEFMACRO USING-CONNECTION ...) ; processing (DEFMACRO WITH-RECONNECT-RESTART ...) ; processing (DEFUN WAIT-FOR-NOTIFICATION ...) ; processing (DEFUN EXEC-QUERY ...) ; processing (DEFUN PREPARE-QUERY ...) ; processing (DEFUN UNPREPARE-QUERY ...) ; processing (DEFUN FIND-POSTGRESQL-PREPARED-QUERY ...) ; processing (DEFUN EXEC-PREPARED ...) ; processing (DEF-ROW-READER ALIST-ROW-READER ...) ; processing (DEF-ROW-READER LIST-ROW-READER ...) ; processing (DEF-ROW-READER VECTOR-ROW-READER ...) ; processing (DEF-ROW-READER IGNORE-ROW-READER ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/cl-postgres/public-tmpQPTRRFAI.fasl ; compilation finished in 0:00:00.082 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/postmodern/cl-postgres/bulk-copy.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :CL-POSTGRES) ; processing (DEFCLASS BULK-COPIER ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN OPEN-DB-WRITER ...) ; processing (DEFUN CLOSE-DB-WRITER ...) ; processing (DEFUN DB-WRITE-ROW ...) ; processing (DEFUN COPY-QUERY ...) ; processing (DEFUN SEND-COPY-START ...) ; processing (DEFUN INITIALIZE-COPIER ...) ; processing (DEFUN COPIER-WRITE-VALUE ...) ; processing (DEFUN COPIER-WRITE-SEQUENCE ...) ; processing (DEFMETHOD PREPARE-ROW ...) ; processing (DEFUN SEND-COPY-DONE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/cl-postgres/bulk-copy-tmpVZ9V8GEH.fasl ; compilation finished in 0:00:00.041 ; compiling file "/usr/share/common-lisp/source/postmodern/s-sql/package.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (DEFPACKAGE :S-SQL ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/s-sql/package-tmpI0YDSDVA.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/postmodern/s-sql/config.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :S-SQL) ; processing (DEFPARAMETER *POSTGRES-RESERVED-WORDS* ...) ; processing (DEFPARAMETER *ESCAPE-SQL-NAMES-P* ...) ; processing (DEFVAR *DOWNCASE-SYMBOLS* ...) ; processing (DEFPARAMETER *STANDARD-SQL-STRINGS* ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/s-sql/config-tmpKLR0OPN5.fasl ; compilation finished in 0:00:00.002 ; compiling file "/usr/share/common-lisp/source/postmodern/s-sql/s-sql.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :S-SQL) ; processing (DEFINE-CONDITION SQL-ERROR ...) ; processing (DEFUN SQL-ERROR ...) ; processing (DEFUN STRCAT ...) ; processing (DEFUN IMPLODE ...) ; processing (DEFUN SPLIT-ON-KEYWORDS% ...) ; processing (DEFMACRO SPLIT-ON-KEYWORDS ...) ; processing (DEFUN TO-SQL-NAME ...) ; file: /usr/share/common-lisp/source/postmodern/s-sql/s-sql.lisp ; in: DEFUN TO-SQL-NAME ; (STRING (CADR S-SQL::NAME)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (STRING S-SQL::NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (CHAR S-SQL::STR S-SQL::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR-DOWNCASE (CHAR S-SQL::STR S-SQL::I)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR S-SQL::STR S-SQL::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; processing (DEFUN FROM-SQL-NAME ...) ; processing (DEFTYPE SMALLINT ...) ; processing (DEFTYPE BIGINT ...) ; processing (DEFTYPE NUMERIC ...) ; processing (DEFTYPE DOUBLE-PRECISION ...) ; processing (DEFTYPE BYTEA ...) ; processing (DEFTYPE TEXT ...) ; processing (DEFTYPE VARCHAR ...) ; processing (DEFTYPE SERIAL ...) ; processing (DEFTYPE SERIAL8 ...) ; processing (DEFTYPE DB-NULL ...) ; processing (DEFGENERIC SQL-TYPE-NAME ...) ; processing (DEFUN TO-TYPE-NAME ...) ; processing (DEFUN SQL-ESCAPE-STRING ...) ; processing (DEFGENERIC SQL-ESCAPE ...) ; processing (DEFPARAMETER *EXPAND-RUNTIME* ...) ; processing (DEFUN SQL-EXPAND ...) ; processing (DEFUN SQL-EXPAND-LIST ...) ; processing (DEFUN SQL-EXPAND-NAMES ...) ; processing (DEFUN REDUCE-STRINGS ...) ; processing (DEFMACRO SQL ...) ; processing (DEFUN SQL-COMPILE ...) ; processing (DEFUN SQL-TEMPLATE ...) ; processing (DEFUN S-SQL-READER ...) ; processing (DEFUN ENABLE-S-SQL-SYNTAX ...) ; processing (DEFGENERIC EXPAND-SQL-OP ...) ; processing (DEFMACRO DEF-SQL-OP ...) ; processing (DEFUN MAKE-EXPANDER ...) ; processing (DEFMACRO REGISTER-SQL-OPERATORS ...) ; processing (REGISTER-SQL-OPERATORS :UNARY ...) ; processing (REGISTER-SQL-OPERATORS :N-ARY ...) ; processing (REGISTER-SQL-OPERATORS :N-OR-UNARY ...) ; processing (REGISTER-SQL-OPERATORS :2+-ARY ...) ; processing (REGISTER-SQL-OPERATORS :2+-ARY ...) ; processing (REGISTER-SQL-OPERATORS :2+-ARY ...) ; processing (DEF-SQL-OP :|| ...) ; processing (DEF-SQL-OP :ASC ...) ; processing (DEF-SQL-OP :DESC ...) ; processing (DEF-SQL-OP :NULLS-FIRST ...) ; processing (DEF-SQL-OP :NULLS-LAST ...) ; processing (DEF-SQL-OP :AS ...) ; processing (DEF-SQL-OP :@@ ...) ; processing (DEF-SQL-OP :DISTINCT ...) ; processing (DEF-SQL-OP :ANY* ...) ; processing (DEF-SQL-OP :ANY ...) ; processing (DEF-SQL-OP :ALL ...) ; processing (DEF-SQL-OP :ARRAY ...) ; processing (DEF-SQL-OP :ARRAY[] ...) ; processing (DEF-SQL-OP :[] ...) ; processing (DEF-SQL-OP :INTERVAL ...) ; processing (DEF-SQL-OP :CURRENT-DATE ...) ; processing (DEF-SQL-OP :CURRENT-TIMESTAMP ...) ; processing (DEF-SQL-OP :CURRENT-TIME ...) ; processing (DEF-SQL-OP :LOCAL-TIMESTAMP ...) ; processing (DEF-SQL-OP :LOCAL-TIME ...) ; processing (DEF-SQL-OP :TIMESTAMP ...) ; processing (DEF-SQL-OP :MAKE-INTERVAL ...) ; processing (DEF-SQL-OP :MAKE-TIMESTAMP ...) ; processing (DEF-SQL-OP :MAKE-TIMESTAMPTZ ...) ; processing (DEF-SQL-OP :AGE ...) ; processing (DEF-SQL-OP :DATE ...) ; processing (DEF-SQL-OP :INTEGER ...) ; processing (DEF-SQL-OP :CAST ...) ; processing (DEF-SQL-OP :EXISTS ...) ; processing (DEF-SQL-OP :IS-TRUE ...) ; processing (DEF-SQL-OP :IS-FALSE ...) ; processing (DEF-SQL-OP :IS-NULL ...) ; processing (DEF-SQL-OP :NOT-NULL ...) ; processing (DEF-SQL-OP :IN ...) ; processing (DEF-SQL-OP :NOT-IN ...) ; processing (DEF-SQL-OP :EXTRACT ...) ; processing (DEF-SQL-OP :VALUES ...) ; processing (DEFINE-CONDITION MALFORMED-COMPOSITE-TYPE-ERROR ...) ; processing (DEFUN CONS-TO-SQL-NAME-STRINGS ...) ; processing (DEF-SQL-OP :COUNT ...) ; processing (DEF-SQL-OP :AVG ...) ; processing (DEF-SQL-OP :SUM ...) ; processing (DEF-SQL-OP :MAX ...) ; processing (DEF-SQL-OP :MIN ...) ; processing (DEF-SQL-OP :EVERY ...) ; processing (DEF-SQL-OP :PERCENTILE-CONT ...) ; processing (DEF-SQL-OP :PERCENTILE-DIST ...) ; processing (DEF-SQL-OP :CORR ...) ; processing (DEF-SQL-OP :COVAR-POP ...) ; processing (DEF-SQL-OP :COVAR-SAMP ...) ; processing (DEF-SQL-OP :BETWEEN ...) ; processing (DEF-SQL-OP :BETWEEN-SYMMETRIC ...) ; processing (DEF-SQL-OP :CASE ...) ; processing (DEF-SQL-OP :SET ...) ; processing (DEF-SQL-OP :EMPTY-SET ...) ; processing (DEF-SQL-OP :DOT ...) ; processing (DEF-SQL-OP :TYPE ...) ; processing (DEF-SQL-OP :RAW ...) ; processing (DEFUN EXPAND-JOINS ...) ; processing (DEF-SQL-OP :SELECT ...) ; processing (DEF-SQL-OP :GROUPING-SETS ...) ; processing (DEF-SQL-OP :STRING-AGG ...) ; processing (DEF-SQL-OP :ARRAY-AGG ...) ; processing (DEF-SQL-OP :MODE ...) ; processing (DEF-SQL-OP :REGR-AVGX ...) ; processing (DEF-SQL-OP :REGR-AVGY ...) ; processing (DEF-SQL-OP :REGR-COUNT ...) ; processing (DEF-SQL-OP :REGR-INTERCEPT ...) ; processing (DEF-SQL-OP :REGR-R2 ...) ; processing (DEF-SQL-OP :REGR-SLOPE ...) ; processing (DEF-SQL-OP :REGR-SXX ...) ; processing (DEF-SQL-OP :REGR-SXY ...) ; processing (DEF-SQL-OP :REGR-SYY ...) ; processing (DEF-SQL-OP :STDDEV ...) ; processing (DEF-SQL-OP :STDDEV-POP ...) ; processing (DEF-SQL-OP :STDDEV-SAMP ...) ; processing (DEF-SQL-OP :VARIANCE ...) ; processing (DEF-SQL-OP :VAR-POP ...) ; processing (DEF-SQL-OP :VAR-SAMP ...) ; processing (DEF-SQL-OP :FETCH ...) ; processing (DEF-SQL-OP :LIMIT ...) ; processing (DEF-SQL-OP :ORDER-BY ...) ; processing (DEF-SQL-OP :SET-CONSTRAINTS ...) ; processing (DEFUN FOR-UPDATE/SHARE ...) ; processing (DEF-SQL-OP :FOR-UPDATE ...) ; processing (DEF-SQL-OP :FOR-SHARE ...) ; processing (DEFUN ESCAPE-SQL-EXPRESSION ...) ; processing (DEF-SQL-OP :FUNCTION ...) ; processing (DEF-SQL-OP :INSERT-INTO ...) ; processing (DEF-SQL-OP :LISTEN ...) ; processing (DEF-SQL-OP :UNLISTEN ...) ; processing (DEF-SQL-OP :NOTIFY ...) ; processing (DEFUN EXPAND-ROWS ...) ; processing (DEF-SQL-OP :INSERT-ROWS-INTO ...) ; processing (DEF-SQL-OP :UPDATE ...) ; processing (DEF-SQL-OP :DELETE-FROM ...) ; processing (DEF-SQL-OP :RANGE-BETWEEN ...) ; processing (DEF-SQL-OP :ROWS-BETWEEN ...) ; processing (DEF-SQL-OP :OVER ...) ; processing (DEF-SQL-OP :PARTITION-BY ...) ; processing (DEF-SQL-OP :PARENS ...) ; processing (DEF-SQL-OP :WITH ...) ; processing (DEF-SQL-OP :WITH-RECURSIVE ...) ; processing (DEF-SQL-OP :WINDOW ...) ; processing (DEFUN DISSECT-TYPE ...) ; processing (DEFUN EXPAND-INTERVAL ...) ; processing (DEFUN EXPAND-FOREIGN-ON* ...) ; processing (DEFUN %BUILD-FOREIGN-REFERENCE ...) ; processing (DEFUN EXPAND-TABLE-CONSTRAINT ...) ; processing (DEFUN EXPAND-TABLE-CONSTRAINT-SOK ...) ; processing (DEFUN EXPAND-EXTENDED-TABLE-CONSTRAINT ...) ; processing (DEFUN EXPAND-IDENTITY ...) ; processing (DEFUN EXPAND-TABLE-COLUMN ...) ; processing (DEFUN EXPAND-COMPOSITE-TABLE-NAME ...) ; processing (DEFUN EXPAND-TABLE-NAME ...) ; processing (DEF-SQL-OP :CREATE-COMPOSITE-TYPE ...) ; processing (DEF-SQL-OP :CREATE-TABLE ...) ; processing (DEF-SQL-OP :CREATE-EXTENDED-TABLE ...) ; processing (DEFUN ALTER-TABLE-COLUMN ...) ; processing (DEF-SQL-OP :ALTER-TABLE ...) ; processing (DEF-SQL-OP :ALTER-SEQUENCE ...) ; processing (DEFUN EXPAND-CREATE-INDEX ...) ; processing (DEF-SQL-OP :CREATE-INDEX ...) ; processing (DEF-SQL-OP :CREATE-UNIQUE-INDEX ...) ; processing (DEF-SQL-OP :CASCADE ...) ; processing (DEFMACRO DEF-DROP-OP ...) ; processing (DEF-DROP-OP :DROP-TABLE ...) ; processing (DEF-DROP-OP :DROP-INDEX ...) ; processing (DEF-DROP-OP :DROP-SEQUENCE ...) ; processing (DEF-DROP-OP :DROP-VIEW ...) ; processing (DEF-DROP-OP :DROP-TYPE ...) ; processing (DEF-DROP-OP :DROP-RULE ...) ; processing (DEF-SQL-OP :TRUNCATE ...) ; processing (DEFUN QUOTED-NAME-P ...) ; processing (DEFUN DEQUOTE ...) ; processing (DEF-SQL-OP :NEXTVAL ...) ; processing (DEF-SQL-OP :CURRVAL ...) ; processing (DEF-SQL-OP :CREATE-SEQUENCE ...) ; processing (DEF-SQL-OP :CREATE-VIEW ...) ; processing (DEF-SQL-OP :CREATE-ENUM ...) ; processing (DEF-SQL-OP :CREATE-DOMAIN ...) ; processing (DEF-SQL-OP :DROP-DOMAIN ...) ; processing (DEF-SQL-OP :CREATE-RULE ...) ; processing (DEF-SQL-OP :CREATE-DATABASE ...) ; processing (DEF-DROP-OP :DROP-DATABASE ...) ; processing (DEF-SQL-OP :CREATE-ROLE ...) ; processing (DEF-DROP-OP :DROP-ROLE ...) ; processing (DEF-SQL-OP :COPY ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/s-sql/s-sql-tmpQNILNMER.fasl ; compilation finished in 0:00:00.746 ; compiling file "/usr/share/common-lisp/source/global-vars/global-vars.lisp" (written 13 OCT 2014 01:27:12 AM): ; processing (DEFPACKAGE #:GLOBAL-VARS ...) ; processing (IN-PACKAGE #:GLOBAL-VARS) ; processing (SETF (DOCUMENTATION # ...) ...) ; processing (SETF (DOCUMENTATION # ...) ...) ; processing (SETF (DOCUMENTATION # ...) ...) ; processing (SETF (DOCUMENTATION # ...) ...) ; processing (DEFMACRO STORE-IN-SYMBOL-PLIST ...) ; processing (DEFCONSTANT +VALUE-KEY+ ...) ; processing (PROGN (DEFMACRO DEFINE-GLOBAL-VAR ...) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/global-vars/global-vars-tmpMAMO3XGR.fasl ; compilation finished in 0:00:00.014 ; compiling file "/usr/share/common-lisp/source/closer-mop/closer-mop-packages.lisp" (written 27 FEB 2022 01:32:44 AM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE #:CLOSER-MOP ...) ; processing (IN-PACKAGE :CLOSER-MOP) ; processing (MACROLET (#) ...) ; processing (DEFPACKAGE #:CLOSER-COMMON-LISP-USER ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/closer-mop/closer-mop-packages-tmp4CBIDXQU.fasl ; compilation finished in 0:00:00.026 ; compiling file "/usr/share/common-lisp/source/closer-mop/closer-mop-shared.lisp" (written 27 FEB 2022 01:32:44 AM): ; processing (IN-PACKAGE :CLOSER-MOP) ; processing (DEFUN REQUIRED-ARGS ...) ; processing (DEFUN ENSURE-FINALIZED ...) ; processing (DEFUN SUBCLASSP ...) ; processing (PROGN (DEFCLASS STANDARD-GENERIC-FUNCTION ...) ...) ; file: /usr/share/common-lisp/source/closer-mop/closer-mop-shared.lisp ; in: ; COMMON-LISP:DEFMETHOD COMPUTE-EFFECTIVE-METHOD-FUNCTION (GENERIC-FUNCTION T T) ; (CLOSER-MOP::TRANSFORM-EFFECTIVE-METHOD (CLOSER-MOP::FORM) ; (IF (ATOM CLOSER-MOP::FORM) ; CLOSER-MOP::FORM ; (CASE (CAR CLOSER-MOP::FORM) ; (CALL-METHOD (CLOSER-MOP::TRANSFORM-EFFECTIVE-METHOD #)) ; (MAKE-METHOD ; (WHEN # #) ; (LET # ; #)) ; (T (MAPCAR #'CLOSER-MOP::TRANSFORM-EFFECTIVE-METHOD #))))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; in: DEFUN GET-EMF ; (SUBSEQ CLOSER-MOP::ARGS 0 CLOSER-MOP::NOF-REQUIRED-ARGS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFUN ONLY-STANDARD-METHODS ; (TYPEP CLOSER-MOP::GF SB-MOP:SPECIALIZER) ; ; note: unable to optimize because: can't open-code test of non-constant type ; (EQL (SB-MOP:EQL-SPECIALIZER-OBJECT SB-MOP:SPECIALIZER) CLOSER-MOP::GF) ; ; note: forced to do IF-EQL (cost 15) ; unable to do #1=inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do #1# (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; in: DEFUN METHODS-ALL-THE-SAME-SPECIALIZERS ; (EQL (SB-MOP:EQL-SPECIALIZER-OBJECT CLOSER-MOP::SPEC1) ; (SB-MOP:EQL-SPECIALIZER-OBJECT CLOSER-MOP::SPEC2)) ; ; note: forced to do IF-EQL (cost 15) ; unable to do #1=inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do #1# (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; in: DEFUN COMPUTE-DISCRIMINATOR ; (FUNCALL CLOSER-MOP::COMPUTE-NATIVE-DISCRIMINATOR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; COMPUTE-NATIVE-DISCRIMINATOR is not known to be a function ; (TYPEP CLOSER-MOP::ARG CLOSER-MOP::SPEC) ; ; note: unable to optimize because: can't open-code test of non-constant type ; (FUNCALL CLOSER-MOP::COMPUTE-NATIVE-DISCRIMINATOR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; COMPUTE-NATIVE-DISCRIMINATOR is not known to be a function ; (EQL CLOSER-MOP::ARG (SB-MOP:EQL-SPECIALIZER-OBJECT CLOSER-MOP::SPEC)) ; ; note: forced to do IF-EQL (cost 15) ; unable to do #1=inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do #1# (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; processing (DEFUN ENSURE-METHOD ...) ; processing (DEFVAR *STANDARD-SLOT-KEYS* ...) ; processing (DEFUN FIX-SLOT-INITARGS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/closer-mop/closer-mop-shared-tmp4M6Z7O9T.fasl ; compilation finished in 0:00:00.075 ; compiling file "/usr/share/common-lisp/source/closer-mop/closer-sbcl.lisp" (written 27 FEB 2022 01:32:44 AM): ; processing (IN-PACKAGE :CLOSER-MOP) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/closer-mop/closer-sbcl-tmp3RKO0O0S.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/package.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (DEFPACKAGE :POSTMODERN ...) ; processing (IN-PACKAGE :POSTMODERN) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/postmodern/package-tmpJNADND61.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/config.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :POSTMODERN) ; processing (DEFVAR *MAX-POOL-SIZE* ...) ; processing (DEFPARAMETER *DEFAULT-USE-SSL* ...) ; processing (DEFPARAMETER *SCHEMA-PATH* ...) ; processing (DEFPARAMETER *TRANSACTION-LEVEL* ...) ; processing (DEFPARAMETER *ISOLATION-LEVEL* ...) ; processing (DEFPARAMETER *ALLOW-OVERWRITING-PREPARED-STATEMENTS* ...) ; processing (DEFPARAMETER *ENFORCE-PARAMETER-TYPES* ...) ; processing (DEFPARAMETER *RESULT-STYLES* ...) ; processing (DEFPARAMETER *CHARACTER-SETS* ...) ; processing (DEFPARAMETER *COLLATIONS* ...) ; processing (DEFPARAMETER *CUSTOM-COLUMN-WRITERS* ...) ; processing (DEFPARAMETER *IGNORE-UNKNOWN-COLUMNS* ...) ; processing (DEFPARAMETER *ALTER-ALL-DEFAULT-SELECT-PRIVILEGES* ...) ; processing (DEFPARAMETER *ALTER-ALL-DEFAULT-EDITOR-PRIVILEGES* ...) ; processing (DEFPARAMETER *EXECUTE-PRIVILEGES-LIST* ...) ; processing (DEFPARAMETER *DISALLOWED-ROLE-NAMES* ...) ; processing (DEFPARAMETER +JSON-LISP-SYMBOL-TOKENS+ ...) ; processing (DEFVAR *JSON-SYMBOLS-PACKAGE* ...) ; processing (DEFPARAMETER *JSON-LIST-ENCODER-FN* ...) ; processing (DEFVAR *JSON-IDENTIFIER-NAME-TO-LISP* ...) ; processing (DEFVAR *LISP-IDENTIFIER-NAME-TO-JSON* ...) ; processing (DEFVAR *IDENTIFIER-NAME-TO-KEY* ...) ; processing (DEFVAR *JSON-OUTPUT* ...) ; processing (DEFVAR *JSON-AGGREGATE-CONTEXT* ...) ; processing (DEFVAR *JSON-AGGREGATE-FIRST* ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/postmodern/config-tmpKEV7GFR4.fasl ; compilation finished in 0:00:00.003 ; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/connect.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :POSTMODERN) ; processing (DEFVAR *CONNECTION-POOLS* ...) ; processing (DEFPARAMETER *DATABASE* ...) ; processing (DEFCLASS POOLED-DATABASE-CONNECTION ...) ; processing (DEFUN CONNECT ...) ; processing (DEFUN CONNECTED-P ...) ; processing (DEFUN CONNECT-TOPLEVEL ...) ; processing (DEFGENERIC DISCONNECT ...) ; processing (DEFGENERIC RECONNECT ...) ; processing (DEFUN DISCONNECT-TOPLEVEL ...) ; processing (DEFUN CALL-WITH-CONNECTION ...) ; processing (DEFMACRO WITH-CONNECTION ...) ; processing (DEFVAR *POOL-LOCK* ...) ; processing (DEFMACRO WITH-POOL-LOCK ...) ; processing (DEFUN GET-FROM-POOL ...) ; processing (DEFMETHOD DISCONNECT ...) ; processing (DEFUN CLEAR-CONNECTION-POOL ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/postmodern/connect-tmp13EJYBWB.fasl ; compilation finished in 0:00:00.024 ; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/json-encoder.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :POSTMODERN) ; processing (DEFUN SIMPLE-DATE-DATE-STRING ...) ; processing (DEFUN SIMPLE-DATE-TIMESTAMP-STRING ...) ; processing (DEFUN SIMPLE-DATE-TIME-OF-DAY-STRING ...) ; processing (DEFUN SIMPLE-DATE-INTERVAL-STRING ...) ; processing (DEFUN LOCAL-TIME-TIMESTAMP-STRING ...) ; processing (DEFUN JSON-INTERN ...) ; processing (DEFINE-CONDITION UNKNOWN-SYMBOL-ERROR ...) ; processing (DEFUN UNKNOWN-SYMBOL-ERROR ...) ; processing (DEFUN SAFE-JSON-INTERN ...) ; processing (DEFUN MAP-SLOTS ...) ; processing (DEFINE-CONDITION UNENCODABLE-VALUE-ERROR ...) ; processing (DEFUN UNENCODABLE-VALUE-ERROR ...) ; processing (DEFMACRO WITH-SUBSTITUTE-PRINTED-REPRESENTATION-RESTART ...) ; processing (DEFGENERIC ENCODE-JSON ...) ; processing (DEFUN ENCODE-JSON-TO-STRING ...) ; processing (DEFMETHOD ENCODE-JSON ...) ; processing (DEFMETHOD ENCODE-JSON ...) ; processing (DEFMETHOD ENCODE-JSON ...) ; processing (DEFMETHOD ENCODE-JSON ...) ; processing (DEFMETHOD ENCODE-JSON ...) ; processing (DEFUN NEXT-AGGREGATE-MEMBER ...) ; processing (DEFMACRO WITH-AGGREGATE ...) ; processing (DEFMACRO WITH-ARRAY ...) ; processing (DEFMACRO AS-ARRAY-MEMBER ...) ; processing (DEFUN ENCODE-ARRAY-MEMBER ...) ; processing (DEFUN STREAM-ARRAY-MEMBER-ENCODER ...) ; processing (DEFMACRO WITH-OBJECT ...) ; processing (DEFMACRO AS-OBJECT-MEMBER ...) ; processing (DEFUN ENCODE-OBJECT-MEMBER ...) ; processing (DEFUN STREAM-OBJECT-MEMBER-ENCODER ...) ; processing (DEFUN ENCODE-JSON-LIST-GUESSING-ENCODER ...) ; processing (DEFUN JSON-BOOL ...) ; processing (DEFUN JSON-OR-NULL ...) ; processing (DEFUN ENCODE-JSON-LIST-EXPLICIT-ENCODER ...) ; processing (DEFUN USE-GUESSING-ENCODER ...) ; processing (DEFUN USE-EXPLICIT-ENCODER ...) ; processing (DEFMACRO WITH-LOCAL-ENCODER ...) ; processing (DEFMACRO WITH-GUESSING-ENCODER ...) ; processing (DEFMACRO WITH-EXPLICIT-ENCODER ...) ; processing (DEFMETHOD ENCODE-JSON ...) ; processing (DEFMETHOD ENCODE-JSON ...) ; processing (DEFMETHOD ENCODE-JSON ...) ; processing (DEFMETHOD ENCODE-JSON ...) ; processing (DEFUN ENCODE-JSON-ALIST ...) ; processing (DEFUN ENCODE-JSON-ALIST-TO-STRING ...) ; processing (DEFUN ENCODE-JSON-PLIST ...) ; processing (DEFUN ENCODE-JSON-PLIST-TO-STRING ...) ; processing (DEFUN WRITE-JSON-STRING ...) ; processing (DEFUN WRITE-JSON-CHARS ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL) ...) ; processing (DEFUN WRITE-JSON-NUMBER ...) ; processing (DEFUN SIMPLIFIED-CAMEL-CASE-TO-LISP ...) ; processing (DEFUN CAMEL-CASE-SPLIT ...) ; processing (DEFUN CAMEL-CASE-TRANSFORM-ALL-CAPS ...) ; processing (DEFUN CAMEL-CASE-TRANSFORM ...) ; processing (DEFUN CAMEL-CASE-TO-LISP ...) ; processing (DEFUN LISP-TO-CAMEL-CASE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/postmodern/json-encoder-tmp93YER753.fasl ; compilation finished in 0:00:00.118 ; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/query.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :POSTMODERN) ; processing (DEF-ROW-READER SYMBOL-ALIST-ROW-READER ...) ; processing (DEF-ROW-READER SYMBOL-PLIST-ROW-READER ...) ; processing (DEF-ROW-READER JSON-ROW-READER ...) ; processing (DEF-ROW-READER JSON-ROW-ARRAY-READER ...) ; processing (DEF-ROW-READER ARRAY-HASH-ROW-READER ...) ; processing (DEF-ROW-READER COLUMN-ROW-READER ...) ; processing (DEFVAR *CLASS-FINALIZE-LOCK* ...) ; processing (DEFUN DAO-SPEC-FOR-FORMAT ...) ; processing (DEFUN READER-FOR-FORMAT ...) ; processing (DEFMACRO ALL-ROWS ...) ; processing (DEFMACRO SINGLE-ROW ...) ; processing (DEFMACRO SINGLE-ROW! ...) ; processing (DEFUN REAL-QUERY ...) ; processing (DEFMACRO QUERY ...) ; processing (DEFMACRO EXECUTE ...) ; processing (DEFMACRO DOQUERY ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/postmodern/query-tmpB50UYUD7.fasl ; compilation finished in 0:00:00.046 ; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/prepare.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :POSTMODERN) ; processing (DEFINE-CONDITION MISMATCHED-PARAMETER-TYPES ...) ; processing (DEFUN ENSURE-PREPARED ...) ; processing (LET (#) ...) ; processing (DEFUN GENERATE-PREPARED ...) ; processing (DEFMACRO PREPARE ...) ; processing (DEFMACRO DEFPREPARED ...) ; processing (DEFMACRO DEFPREPARED-WITH-NAMES ...) ; processing (DEFUN PREPARED-STATEMENT-EXISTS-P ...) ; processing (DEFUN LIST-PREPARED-STATEMENTS ...) ; processing (DEFUN LIST-POSTMODERN-PREPARED-STATEMENTS ...) ; processing (DEFUN FIND-POSTGRESQL-PREPARED-STATEMENT ...) ; processing (DEFUN FIND-POSTGRESQL-PREPARED-STATEMENT-BY-QUERY ...) ; processing (DEFUN FIND-POSTMODERN-PREPARED-STATEMENT ...) ; processing (DEFUN DROP-PREPARED-STATEMENT ...) ; processing (DEFUN RESET-PREPARED-STATEMENT ...) ; processing (DEFUN GET-PID ...) ; processing (DEFUN GET-PID-FROM-POSTMODERN ...) ; processing (DEFUN CANCEL-BACKEND ...) ; processing (DEFUN TERMINATE-BACKEND ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/postmodern/prepare-tmpXO9X6PIG.fasl ; compilation finished in 0:00:00.056 ; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/roles.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :POSTMODERN) ; processing (DEFUN LIST-DATABASE-USERS ...) ; processing (DEFUN LIST-ROLES ...) ; processing (DEFUN ROLE-EXISTS-P ...) ; processing (DEFUN REMOVE-WHITESPACE ...) ; processing (DEFUN WHITESPACE-IN-STRING ...) ; processing (DEFUN REVOKE-ALL-ON-TABLE ...) ; processing (DEFUN SCHEMA-PARAMETERS-TO-LIST ...) ; processing (DEFUN DATABASE-PARAMETERS-TO-LIST ...) ; processing (DEFUN GRANT-ADMIN-PERMISSIONS ...) ; processing (DEFUN GRANT-EDITOR-PERMISSIONS ...) ; processing (DEFUN GRANT-READONLY-PERMISSIONS ...) ; processing (DEFUN GRANT-ROLE-PERMISSIONS-HELPER ...) ; processing (DEFUN GRANT-ROLE-PERMISSIONS ...) ; processing (DEFUN CREATE-ROLE-HELPER ...) ; processing (DEFUN CREATE-ROLE ...) ; processing (DEFUN ALTER-ROLE-SEARCH-PATH ...) ; processing (DEFUN DROP-ROLE ...) ; processing (DEFUN LIST-ROLE-PERMISSIONS ...) ; processing (DEFUN CHANGE-PASSWORD ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/postmodern/roles-tmpBULZPU0U.fasl ; compilation finished in 0:00:00.103 ; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/util.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :POSTMODERN) ; processing (DEFUN MAKE-KEYWORD ...) ; processing (DEFUN VALID-SQL-CHARACTER-P ...) ; processing (DEFUN CODE-CHAR-0-P ...) ; processing (DEFUN VALID-SQL-IDENTIFIER-P ...) ; processing (DEFUN TO-IDENTIFIER ...) ; processing (DEFUN COALESCE ...) ; processing (DEFUN DATABASE-VERSION ...) ; processing (DEFUN POSTGRESQL-VERSION ...) ; processing (DEFMACRO MAKE-LIST-QUERY ...) ; processing (DEFMACRO MAKE-EXISTS-QUERY ...) ; processing (DEFUN SPLIT-FULLY-QUALIFIED-TABLENAME ...) ; processing (DEFUN POSTGRES-ARRAY-STRING-TO-LIST ...) ; processing (DEFUN POSTGRES-ARRAY-STRING-TO-ARRAY ...) ; processing (DEFUN ADD-COMMENT ...) ; processing (DEFUN FIND-COMMENTS ...) ; processing (DEFINE-CONDITION INVALID-DATABASE-NAME ...) ; processing (DEFUN DATABASE-EXISTS-P ...) ; processing (DEFUN LIST-AVAILABLE-COLLATIONS ...) ; processing (DEFUN COLLATION-EXISTS-P ...) ; processing (DEFUN CHARACTER-SET-EXISTS-P ...) ; processing (DEFUN LIST-TEMPLATES ...) ; processing (DEFUN CREATE-DATABASE ...) ; processing (DEFUN DROP-DATABASE ...) ; processing (DEFUN NUM-RECORDS-IN-DATABASE ...) ; processing (DEFUN CURRENT-DATABASE ...) ; processing (DEFUN DATABASE-SIZE ...) ; processing (DEFUN GET-DATABASE-COMMENT ...) ; processing (DEFUN LIST-DATABASES ...) ; processing (DEFUN LIST-DATABASE-ACCESS-RIGHTS ...) ; processing (DEFUN LIST-ROLE-ACCESSIBLE-DATABASES ...) ; processing (DEFUN GET-SCHEMA-COMMENT ...) ; processing (DEFUN SEQUENCE-NEXT ...) ; processing (DEFUN CREATE-SEQUENCE ...) ; processing (DEFUN DROP-SEQUENCE ...) ; processing (DEFUN LIST-SEQUENCES ...) ; processing (DEFUN SEQUENCE-EXISTS-P ...) ; processing (DEFUN LIST-TABLESPACES ...) ; processing (DEFUN LIST-AVAILABLE-TYPES ...) ; processing (DEFINE-CONDITION INCONSISTENT-SCHEMA-NAME ...) ; processing (DEFUN TABLE-SCHEMA-NAMES ...) ; processing (DEFUN GET-TABLE-COMMENT ...) ; processing (DEFUN GET-ALL-TABLE-COMMENTS ...) ; processing (DEFUN GET-TABLE-OID ...) ; processing (DEFUN TABLE-DESCRIPTION ...) ; processing (DEFUN TABLE-DESCRIPTION-PLUS ...) ; processing (DEFUN TABLE-PARAMETER-HELPER ...) ; processing (DEFUN TABLE-DESCRIPTION-MENU ...) ; processing (DEFUN LIST-ALL-TABLES ...) ; processing (DEFUN LIST-TABLES-IN-SCHEMA ...) ; processing (DEFUN LIST-TABLES ...) ; processing (DEFUN TABLE-EXISTS-P ...) ; processing (DEFUN DROP-TABLE ...) ; processing (DEFUN RENAME-TABLE ...) ; processing (DEFUN LIST-TABLE-SIZES ...) ; processing (DEFUN TABLE-SIZE ...) ; processing (DEFUN GET-COLUMN-COMMENTS ...) ; processing (DEFUN GET-COLUMN-COMMENT ...) ; processing (DEFUN LIST-COLUMNS ...) ; processing (DEFUN LIST-COLUMNS-WITH-TYPES ...) ; processing (DEFUN COLUMN-EXISTS-P ...) ; processing (DEFUN RENAME-COLUMN ...) ; processing (DEFUN LIST-VIEWS ...) ; processing (DEFUN VIEW-EXISTS-P ...) ; processing (DEFUN DESCRIBE-VIEWS ...) ; processing (DEFUN LIST-DATABASE-FUNCTIONS ...) ; processing (DEFUN INDEX-EXISTS-P ...) ; processing (DEFUN CREATE-INDEX ...) ; processing (DEFUN DROP-INDEX ...) ; processing (DEFUN LIST-INDICES ...) ; processing (DEFUN LIST-TABLE-INDICES ...) ; processing (DEFUN LIST-INDEXED-COLUMN-AND-ATTRIBUTES ...) ; processing (DEFUN LIST-INDEX-DEFINITIONS ...) ; processing (DEFUN FIND-PRIMARY-KEY-INFO ...) ; processing (DEFUN LIST-FOREIGN-KEYS ...) ; processing (DEFUN LIST-UNIQUE-OR-PRIMARY-CONSTRAINTS ...) ; processing (DEFUN LIST-CHECK-CONSTRAINTS ...) ; processing (DEFUN LIST-ALL-CONSTRAINTS ...) ; processing (DEFUN DESCRIBE-CONSTRAINT ...) ; processing (DEFUN DESCRIBE-FOREIGN-KEY-CONSTRAINTS ...) ; processing (DEFUN DESCRIBE-TRIGGERS ...) ; processing (DEFUN LIST-TRIGGERS ...) ; processing (DEFUN LIST-DETAILED-TRIGGERS ...) ; processing (DEFUN CHANGE-TOPLEVEL-DATABASE ...) ; processing (DEFUN LIST-CONNECTIONS ...) ; processing (DEFUN LIST-AVAILABLE-EXTENSIONS ...) ; processing (DEFUN LIST-INSTALLED-EXTENSIONS ...) ; processing (DEFUN LOAD-UUID-EXTENSION ...) ; processing (DEFUN GENERATE-UUID ...) ; processing (DEFUN REPLACE-NON-ALPHANUMERIC-CHARS ...) ; processing (DEFUN COPY-FROM-CSV ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/postmodern/util-tmp7R9QD7N9.fasl ; compilation finished in 0:00:00.197 ; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/transaction.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :POSTMODERN) ; processing (DEFPARAMETER *CURRENT-LOGICAL-TRANSACTION* ...) ; processing (DEFGENERIC ABORT-HOOKS ...) ; processing (DEFGENERIC ABORT-LOGICAL-TRANSACTION ...) ; processing (DEFGENERIC COMMIT-HOOKS ...) ; processing (DEFGENERIC COMMIT-LOGICAL-TRANSACTION ...) ; processing (DEFCLASS TRANSACTION-HANDLE ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFUN BEGIN-TRANSACTION ...) ; processing (DEFUN CALL-WITH-TRANSACTION ...) ; processing (DEFMACRO WITH-TRANSACTION ...) ; processing (DEFUN ABORT-TRANSACTION ...) ; processing (DEFUN ROLLBACK-TRANSACTION ...) ; processing (DEFUN COMMIT-TRANSACTION ...) ; processing (DEFCLASS SAVEPOINT-HANDLE ...) ; processing (DEFUN CALL-WITH-SAVEPOINT ...) ; processing (DEFMACRO WITH-SAVEPOINT ...) ; processing (DEFUN ROLLBACK-SAVEPOINT ...) ; processing (DEFUN RELEASE-SAVEPOINT ...) ; processing (DEFUN CALL-WITH-LOGICAL-TRANSACTION ...) ; processing (DEFMACRO WITH-LOGICAL-TRANSACTION ...) ; processing (DEFMETHOD ABORT-LOGICAL-TRANSACTION ...) ; processing (DEFMETHOD ABORT-LOGICAL-TRANSACTION ...) ; processing (DEFMETHOD COMMIT-LOGICAL-TRANSACTION ...) ; processing (DEFMETHOD COMMIT-LOGICAL-TRANSACTION ...) ; processing (DEFUN CALL-WITH-ENSURED-TRANSACTION ...) ; processing (DEFMACRO ENSURE-TRANSACTION ...) ; processing (DEFMACRO ENSURE-TRANSACTION-WITH-ISOLATION-LEVEL ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/postmodern/transaction-tmpGP8R3FTA.fasl ; compilation finished in 0:00:00.034 ; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/namespace.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :POSTMODERN) ; processing (DEFMACRO WITH-SCHEMA ...) ; processing (DEFUN DO-WITH-SCHEMA ...) ; processing (DEFUN GET-SEARCH-PATH ...) ; processing (DEFUN SET-SEARCH-PATH ...) ; processing (DEFUN LIST-SCHEMAS ...) ; processing (DEFUN SCHEMA-EXISTS-P ...) ; processing (DEFUN CREATE-SCHEMA ...) ; processing (DEFUN DROP-SCHEMA ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/postmodern/namespace-tmp121QKS9N.fasl ; compilation finished in 0:00:00.015 ; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/execute-file.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :POSTMODERN) ; processing (DEFSTRUCT PARSER ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFMETHOD PUSH-NEW-TAG ...) ; processing (DEFMETHOD EXTEND-CURRENT-TAG ...) ; processing (DEFMETHOD FORMAT-CURRENT-TAG ...) ; processing (DEFMETHOD MAYBE-CLOSE-TAGS ...) ; processing (DEFMETHOD POP-CURRENT-TAG ...) ; processing (DEFMETHOD RESET-STATE ...) ; processing (DEFUN PARSE-QUERY ...) ; processing (DEFSTRUCT COMMENT-PARSER ...) ; processing (DEFPARAMETER SINGLE-LINE-COMMENT-SCANNER ...) ; processing (DEFUN PARSE-COMMENTS ...) ; processing (DEFUN REMOVE-SQL-COMMENTS ...) ; processing (DEFINE-CONDITION MISSING-I-FILE ...) ; processing (DEFUN LINE-HAS-INCLUDES ...) ; processing (DEFUN FIND-INCLUDED-FILENAME ...) ; processing (DEFUN READ-SQL-FILE ...) ; processing (DEFUN READ-QUERIES ...) ; processing (DEFUN PARSE-QUERIES ...) ; processing (DEFUN EXECUTE-FILE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/postmodern/execute-file-tmp2JF031K4.fasl ; compilation finished in 0:00:00.094 ; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/table.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :POSTMODERN) ; processing (DEFCLASS DAO-CLASS ...) ; processing (DEFGENERIC DAO-KEYS ...) ; processing (DEFMETHOD DAO-KEYS ...) ; processing (DEFGENERIC FIND-PRIMARY-KEY-COLUMN ...) ; processing (DEFMETHOD FIND-PRIMARY-KEY-COLUMN ...) ; processing (DEFMETHOD FIND-PRIMARY-KEY-COLUMN ...) ; processing (DEFMETHOD FIND-PRIMARY-KEY-COLUMN ...) ; processing (DEFMETHOD VALIDATE-SUPERCLASS ...) ; processing (DEFMETHOD DAO-KEYS ...) ; processing (DEFMETHOD DAO-KEYS ...) ; processing (DEFUN DAO-COLUMN-SLOTS ...) ; file: /usr/share/common-lisp/source/postmodern/postmodern/table.lisp ; in: DEFUN DAO-COLUMN-SLOTS ; 'POSTMODERN::EFFECTIVE-COLUMN-SLOT ; ; note: can't open-code test of unknown type EFFECTIVE-COLUMN-SLOT ; ; note: can't open-code test of unknown type EFFECTIVE-COLUMN-SLOT ; ; note: can't open-code test of unknown type EFFECTIVE-COLUMN-SLOT ; processing (DEFUN DAO-COLUMN-FIELDS ...) ; processing (DEFUN DAO-TABLE-NAME ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFUN DAO-SUPERCLASSES ...) ; processing (DEFMETHOD FINALIZE-INHERITANCE ...) ; processing (DEFCLASS DIRECT-COLUMN-SLOT ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFMETHOD DIRECT-SLOT-DEFINITION-CLASS ...) ; processing (DEFPARAMETER *DIRECT-COLUMN-SLOT* ...) ; processing (DEFCLASS EFFECTIVE-COLUMN-SLOT ...) ; processing (DEFMETHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION ...) ; processing (DEFMETHOD EFFECTIVE-SLOT-DEFINITION-CLASS ...) ; processing (DEFGENERIC DAO-EXISTS-P ...) ; processing (DEFGENERIC INSERT-DAO ...) ; processing (DEFGENERIC UPDATE-DAO ...) ; processing (DEFGENERIC DELETE-DAO ...) ; processing (DEFGENERIC UPSERT-DAO ...) ; processing (DEFGENERIC GET-DAO ...) ; processing (DEFGENERIC MAKE-DAO ...) ; processing (DEFMACRO DEFINE-DAO-FINALIZATION ...) ; processing (DEFGENERIC FETCH-DEFAULTS ...) ; processing (DEFUN %EVAL ...) ; processing (DEFUN SET-TO-CLASS ...) ; processing (DEFUN COL-TYPE-TEXT-P ...) ; processing (DEFUN FIND-COL-TYPE ...) ; processing (DEFUN FIND-EXPORT-FUNCTION ...) ; processing (DEFUN COLLECT-EXPORT-FUNCTIONS ...) ; processing (DEFUN FIND-IMPORT-FUNCTION ...) ; processing (DEFUN COLLECT-IMPORT-FUNCTIONS ...) ; processing (DEFUN FIND-DAO-COLUMN-SLOT ...) ; processing (DEFUN SLOT-DEFINITION-NAME-AS-STRING ...) ; processing (DEFUN FIELD-NAME-TO-SLOT-NAME ...) ; processing (DEFUN BUILD-DAO-METHODS ...) ; processing (DEFMACRO WITH-COLUMN-WRITERS ...) ; processing (DEFUN DAO-FROM-FIELDS ...) ; processing (DEFUN DAO-ROW-READER ...) ; processing (DEFUN SAVE-DAO ...) ; processing (DEFUN SAVE-DAO/TRANSACTION ...) ; processing (DEFUN QUERY-DAO% ...) ; processing (DEFMACRO QUERY-DAO ...) ; processing (DEFMACRO DAO-ROW-READER-WITH-BODY ...) ; processing (DEFMACRO DO-QUERY-DAO ...) ; processing (DEFUN GENERATE-DAO-QUERY ...) ; processing (DEFMACRO SELECT-DAO ...) ; processing (DEFMACRO DO-SELECT-DAO ...) ; processing (DEFUN LIST-TO-COLUMN ...) ; processing (DEFUN DAO-TABLE-DEFINITION ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/postmodern/table-tmpX1DK061H.fasl ; compilation finished in 0:00:00.112 ; compiling file "/usr/share/common-lisp/source/postmodern/postmodern/deftable.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :POSTMODERN) ; processing (DEFVAR *TABLE-NAME*) ; processing (SETF (DOCUMENTATION # ...) ...) ; processing (DEFVAR *TABLE-SYMBOL*) ; processing (SETF (DOCUMENTATION # ...) ...) ; processing (DEFVAR *TABLES* ...) ; processing (DEFUN ADD-TABLE-DEFINITION ...) ; processing (DEFMACRO DEFTABLE ...) ; processing (DEFUN CREATE-TABLE ...) ; processing (DEFUN CREATE-ALL-TABLES ...) ; processing (DEFUN CREATE-PACKAGE-TABLES ...) ; processing (DEFUN FLAT-TABLE-NAME ...) ; processing (LABELS (# #) ...) ; processing (DEFUN !DAO-DEF ...) ; processing (DEFUN !FOREIGN ...) ; processing (DEFUN !UNIQUE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/postmodern/deftable-tmp4FJCN3GX.fasl ; compilation finished in 0:00:00.026 ; compiling file "/usr/share/common-lisp/source/postmodern/simple-date/package.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (DEFPACKAGE :SIMPLE-DATE ...) ; processing (DEFPACKAGE :SIMPLE-DATE-CL-POSTGRES-GLUE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/simple-date/package-tmpWO4JLIQB.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/postmodern/simple-date/simple-date.lisp" (written 13 NOV 2021 10:17:16 PM): ; processing (IN-PACKAGE :SIMPLE-DATE) ; processing (DEFUN TO-EXTERNAL-DATE ...) ; processing (DEFUN TO-INTERNAL-DATE ...) ; processing (LET (#) ...) ; processing (DEFUN MONTH-AT-DAY ...) ; processing (DEFCONSTANT +DAYS-IN-400-YEARS+ ...) ; processing (DEFCONSTANT +DAYS-IN-100-YEARS+ ...) ; processing (DEFCONSTANT +DAYS-IN-4-YEARS+ ...) ; processing (DEFCONSTANT +DAYS-IN-YEAR+ ...) ; processing (DEFCONSTANT +MILLISECS-IN-DAY+ ...) ; processing (DEFUN ENCODE-DAYS ...) ; processing (DEFUN DECODE-DAYS ...) ; processing (DEFUN ENCODE-MILLISECS ...) ; processing (DEFUN DECODE-MILLISECS ...) ; processing (DEFUN LEAP-YEAR-P ...) ; processing (DEFUN DAYS-IN-MONTH ...) ; processing (DEFUN NORMALIZE-TIMESTAMP ...) ; processing (DEFUN DATE-ADD ...) ; processing (DEFUN INVERT-INTERVAL ...) ; processing (DEFCLASS DATE ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN ENCODE-DATE ...) ; processing (DEFUN DECODE-DATE ...) ; processing (DEFUN DAY-OF-WEEK ...) ; processing (DEFCLASS TIME-OF-DAY ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN ENCODE-TIME-OF-DAY ...) ; processing (DEFUN DECODE-TIME-OF-DAY ...) ; processing (DEFCLASS TIMESTAMP ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN ENCODE-TIMESTAMP ...) ; processing (DEFUN DECODE-TIMESTAMP ...) ; processing (DEFCONSTANT +UNIVERSAL-TIME-OFFSET+ ...) ; processing (DEFUN TIMESTAMP-TO-UNIVERSAL-TIME ...) ; processing (DEFUN UNIVERSAL-TIME-TO-TIMESTAMP ...) ; processing (DEFCLASS INTERVAL ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN ENCODE-INTERVAL ...) ; processing (DEFUN DECODE-INTERVAL ...) ; processing (DEFGENERIC TIME-ADD ...) ; processing (DEFMETHOD TIME-ADD ...) ; processing (DEFMETHOD TIME-ADD ...) ; processing (DEFMETHOD TIME-ADD ...) ; processing (DEFMETHOD TIME-ADD ...) ; processing (DEFMETHOD TIME-ADD ...) ; processing (DEFMETHOD TIME-ADD ...) ; processing (DEFMETHOD TIME-ADD ...) ; processing (DEFMETHOD TIME-ADD ...) ; processing (DEFMETHOD TIME-ADD ...) ; processing (DEFMETHOD TIME-ADD ...) ; processing (DEFGENERIC TIME-SUBTRACT ...) ; processing (DEFMETHOD TIME-SUBTRACT ...) ; processing (DEFMETHOD TIME-SUBTRACT ...) ; processing (DEFMETHOD TIME-SUBTRACT ...) ; processing (DEFMETHOD TIME-SUBTRACT ...) ; processing (DEFMETHOD TIME-SUBTRACT ...) ; processing (DEFMETHOD TIME-SUBTRACT ...) ; processing (DEFMETHOD TIME-SUBTRACT ...) ; processing (DEFMETHOD TIME-SUBTRACT ...) ; processing (DEFGENERIC TIME= ...) ; processing (DEFMETHOD TIME= ...) ; processing (DEFMETHOD TIME= ...) ; processing (DEFMETHOD TIME= ...) ; processing (DEFMETHOD TIME= ...) ; processing (DEFMETHOD TIME= ...) ; processing (DEFMETHOD TIME= ...) ; processing (DEFGENERIC TIME< ...) ; processing (DEFMETHOD TIME< ...) ; processing (DEFMETHOD TIME< ...) ; processing (DEFMETHOD TIME< ...) ; processing (DEFMETHOD TIME< ...) ; processing (DEFMETHOD TIME< ...) ; processing (DEFGENERIC TIME> ...) ; processing (DEFMETHOD TIME> ...) ; processing (DEFMETHOD TIME> ...) ; processing (DEFMETHOD TIME> ...) ; processing (DEFMETHOD TIME> ...) ; processing (DEFMETHOD TIME> ...) ; processing (DEFUN TIME<= ...) ; processing (DEFUN TIME>= ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/postmodern/simple-date/simple-date-tmpHBCFHPPX.fasl ; compilation finished in 0:00:00.098 ; compiling file "/usr/share/common-lisp/source/asdf-finalizers/list-of.lisp" (written 27 MAR 2017 05:20:19 AM): ; processing (DEFPACKAGE :LIST-OF ...) ; processing (IN-PACKAGE :LIST-OF) ; processing (DEFUN SEQUENCE-OF-PREDICATE-FOR ...) ; processing (DEFUN LIST-OF-PREDICATE-FOR ...) ; processing (DEFUN VECTOR-OF-PREDICATE-FOR ...) ; processing (DEFUN LIST-OF-TYPE-PREDICATE ...) ; processing (DEFUN VECTOR-OF-TYPE-PREDICATE ...) ; processing (DEFUN ENSURE-LIST-OF-PREDICATE ...) ; processing (DEFUN ENSURE-VECTOR-OF-PREDICATE ...) ; processing (DEFTYPE LIST-OF ...) ; processing (DEFTYPE VECTOR-OF ...) ; processing (DEFMACRO DECLARE-LIST-OF ...) ; processing (DEFMACRO DECLARE-VECTOR-OF ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/asdf-finalizers/list-of-tmp8ZEXUD27.fasl ; compilation finished in 0:00:00.099 ; compiling file "/usr/share/common-lisp/source/chipz/package.lisp" (written 13 FEB 2022 01:13:10 PM): ; processing (DEFPACKAGE :CHIPZ ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chipz/package-tmp95B25LCL.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/chipz/constants.lisp" (written 13 FEB 2022 01:13:10 PM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFMACRO DEFINE-CONSTANT ...) ; processing (DEFINE-CONSTANT +BLOCK-NO-COMPRESS+ ...) ; processing (DEFINE-CONSTANT +BLOCK-FIXED-CODES+ ...) ; processing (DEFINE-CONSTANT +BLOCK-DYNAMIC-CODES+ ...) ; processing (DEFINE-CONSTANT +BLOCK-INVALID+ ...) ; processing (DEFINE-CONSTANT +MAX-CODE-LENGTH+ ...) ; processing (DEFINE-CONSTANT +MAX-CODES+ ...) ; processing (DEFINE-CONSTANT +MAX-N-CODE-LENGTHS+ ...) ; processing (DEFINE-CONSTANT +DEFLATE-MAX-BITS+ ...) ; processing (DEFINE-CONSTANT +LENGTH-CODE-EXTRA-BITS+ ...) ; processing (DEFINE-CONSTANT +LENGTH-CODE-BASE-LENGTHS+ ...) ; processing (DEFCONSTANT +BZ-HEADER-B+ ...) ; processing (DEFCONSTANT +BZ-HEADER-Z+ ...) ; processing (DEFCONSTANT +BZ-HEADER-H+ ...) ; processing (DEFCONSTANT +BZ-HEADER-0+ ...) ; processing (DEFCONSTANT +100K+ ...) ; processing (DEFCONSTANT +MTFA-SIZE+ ...) ; processing (DEFCONSTANT +MTFL-SIZE+ ...) ; processing (DEFCONSTANT +BZ-MAX-ALPHA-SIZE+ ...) ; processing (DEFCONSTANT +BZ-MAX-CODE-LEN+ ...) ; processing (DEFCONSTANT +BZ-RUNA+ ...) ; processing (DEFCONSTANT +BZ-RUNB+ ...) ; processing (DEFCONSTANT +BZ-N-GROUPS+ ...) ; processing (DEFCONSTANT +BZ-G-SIZE+ ...) ; processing (DEFCONSTANT +BZ-N-ITERS+ ...) ; processing (DEFCONSTANT +BZ-MAX-SELECTORS+ ...) ; processing (DEFCONSTANT +DEFAULT-BUFFER-SIZE+ ...) ; processing (DECLAIM (TYPE # ...)) ; processing (DEFINE-CONSTANT +CRC32-TABLE+ ...) ; processing (DEFINE-CONSTANT +BZIP2-CRC32-TABLE+ ...) ; processing (DEFCONSTANT ADLER32-MODULO ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chipz/constants-tmpAMNCEZSG.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/chipz/types-and-tables.lisp" (written 13 FEB 2022 01:13:10 PM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFTYPE INDEX ...) ; processing (DEFTYPE SIMPLE-OCTET-VECTOR ...) ; processing (DEFTYPE DEFLATE-CODE-LENGTH ...) ; processing (DEFTYPE DEFLATE-CODE ...) ; processing (DEFTYPE DEFLATE-CODE-VALUE ...) ; processing (DEFPARAMETER *DISTANCE-CODE-EXTRA-BITS* ...) ; processing (DEFPARAMETER *DISTANCE-CODE-BASE-DISTANCES* ...) ; processing (DECLAIM (INLINE N-LENGTH-EXTRA-BITS ...)) ; processing (DEFUN N-LENGTH-EXTRA-BITS ...) ; processing (DEFUN N-DISTANCE-EXTRA-BITS ...) ; processing (DEFUN LENGTH-BASE ...) ; processing (DEFUN DISTANCE-BASE ...) ; processing (DEFPARAMETER *CODE-LENGTH-CODE-ORDER* ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFUN CONSTRUCT-HUFFMAN-DECODE-TABLE ...) ; processing (DEFPARAMETER *FIXED-BLOCK-CODE-LENGTHS* ...) ; processing (DEFPARAMETER *FIXED-BLOCK-DISTANCE-LENGTHS* ...) ; processing (DEFUN CODE-N-VALUES ...) ; processing (DEFUN COMPUTE-HUFFMAN-DECODE-STRUCTURE ...) ; processing (DEFPARAMETER *FIXED-LITERAL/LENGTH-TABLE* ...) ; processing (DEFPARAMETER *FIXED-DISTANCE-TABLE* ...) ; processing (DEFMACRO PROBABLY-THE-FIXNUM ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chipz/types-and-tables-tmpVQGQLFW2.fasl ; compilation finished in 0:00:00.046 ; compiling file "/usr/share/common-lisp/source/chipz/crc32.lisp" (written 13 FEB 2022 01:13:10 PM): ; processing (IN-PACKAGE :CHIPZ) ; processing (PROGN (DEFSTRUCT # ...) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chipz/crc32-tmpXATIMY4E.fasl ; compilation finished in 0:00:00.009 ; compiling file "/usr/share/common-lisp/source/chipz/adler32.lisp" (written 13 FEB 2022 01:13:10 PM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFSTRUCT (ADLER32 #) ...) ; processing (DEFUN UPDATE-ADLER32 ...) ; processing (DEFUN PRODUCE-ADLER32 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chipz/adler32-tmp3LJ5VTJR.fasl ; compilation finished in 0:00:00.014 ; compiling file "/usr/share/common-lisp/source/chipz/conditions.lisp" (written 13 FEB 2022 01:13:10 PM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFINE-CONDITION CHIPZ-ERROR ...) ; processing (DEFINE-CONDITION DECOMPRESSION-ERROR ...) ; processing (DEFINE-CONDITION INVALID-FORMAT-ERROR ...) ; processing (DEFINE-CONDITION INVALID-CHECKSUM-ERROR ...) ; processing (DEFINE-CONDITION PREMATURE-END-OF-STREAM ...) ; processing (DEFINE-CONDITION INFLATE-ERROR ...) ; processing (DEFINE-CONDITION INVALID-ZLIB-HEADER-ERROR ...) ; processing (DEFINE-CONDITION INVALID-GZIP-HEADER-ERROR ...) ; processing (DEFINE-CONDITION RESERVED-BLOCK-TYPE-ERROR ...) ; processing (DEFINE-CONDITION INVALID-STORED-BLOCK-LENGTH-ERROR ...) ; processing (DEFINE-CONDITION BZIP2-ERROR ...) ; processing (DEFINE-CONDITION INVALID-BZIP2-DATA ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chipz/conditions-tmp8VUWAF03.fasl ; compilation finished in 0:00:00.011 ; compiling file "/usr/share/common-lisp/source/chipz/dstate.lisp" (written 13 FEB 2022 01:13:10 PM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFSTRUCT (DECOMPRESSION-STATE # ...) ...) ; processing (DEFUN MAKE-DSTATE ...) ; processing (DEFUN FINISH-DSTATE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chipz/dstate-tmpJUI0JWVS.fasl ; compilation finished in 0:00:00.040 ; compiling file "/usr/share/common-lisp/source/chipz/inflate-state.lisp" (written 13 FEB 2022 01:13:10 PM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFTYPE SLIDING-WINDOW ...) ; processing (DEFSTRUCT (INFLATE-STATE # ...) ...) ; processing (DEFUN MAKE-INFLATE-STATE ...) ; processing (DEFUN FINISH-INFLATE-STATE ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chipz/inflate-state-tmpHNA3KE33.fasl ; compilation finished in 0:00:00.064 ; compiling file "/usr/share/common-lisp/source/chipz/gzip.lisp" (written 13 FEB 2022 01:13:10 PM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFCLASS GZIP-HEADER ...) ; processing (DEFCONSTANT +GZIP-FLAG-TEXT+ ...) ; processing (DEFCONSTANT +GZIP-FLAG-CRC+ ...) ; processing (DEFCONSTANT +GZIP-FLAG-EXTRA+ ...) ; processing (DEFCONSTANT +GZIP-FLAG-NAME+ ...) ; processing (DEFCONSTANT +GZIP-FLAG-COMMENT+ ...) ; processing (DEFCONSTANT +GZIP-DEFLATE-METHOD+ ...) ; processing (DEFCONSTANT +GZIP-XFL-MAX-COMPRESSION+ ...) ; processing (DEFCONSTANT +GZIP-XFL-FAST-COMPRESSION+ ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chipz/gzip-tmp9QACGPOH.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/chipz/zlib.lisp" (written 13 FEB 2022 01:13:10 PM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFCLASS ZLIB-HEADER ...) ; processing (DEFCONSTANT +ZLIB-COMPRESSION-METHOD+ ...) ; processing (DEFUN ZLIB-COMPRESSION-METHOD ...) ; processing (DEFUN ZLIB-COMPRESSION-INFO ...) ; processing (DEFCONSTANT +ZLIB-FLAG-FDICT+ ...) ; processing (DEFUN ZLIB-FLAG-FCHECK ...) ; processing (DEFCONSTANT +ZLIB-FLEVEL-FASTEST+ ...) ; processing (DEFCONSTANT +ZLIB-FLEVEL-FAST+ ...) ; processing (DEFCONSTANT +ZLIB-FLEVEL-DEFAULT+ ...) ; processing (DEFCONSTANT +ZLIB-FLEVEL-MAXIMUM+ ...) ; processing (DEFUN ZLIB-FLAG-FLEVEL ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chipz/zlib-tmpST69PK2Q.fasl ; compilation finished in 0:00:00.003 ; compiling file "/usr/share/common-lisp/source/chipz/inflate.lisp" (written 13 FEB 2022 01:13:10 PM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFUN UPDATE-WINDOW ...) ; processing (DEFUN %INFLATE ...) ; processing (DEFUN RECORD-CODE-LENGTH ...) ; processing (DEFUN %INFLATE-STATE-MACHINE ...) ; file: /usr/share/common-lisp/source/chipz/inflate.lisp ; in: DEFUN %INFLATE-STATE-MACHINE ; (* (CHIPZ::CMF CHIPZ::HEADER) 256) ; ; note: unable to ; 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 ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) ; ; note: unable to ; 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)). ; (MOD (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) 31) ; ; 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 (SIGNED-BYTE 64). ; ; note: unable to ; convert integer division to multiplication ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; (ZEROP (MOD (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) 31)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 (31))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MOD (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) 31) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-31) (31))), 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 (-31) (31))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-31) (31))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (= CHIPZ::STORED (CHIPZ::PRODUCE-CRC32 CHIPZ::CRC32)) ; ; note: unable to open code because: The operands might not be the same type. ; (COERCE (FUNCALL CHIPZ::SLOT CHIPZ::HEADER) '(VECTOR (UNSIGNED-BYTE 8))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (VECTOR (UNSIGNED-BYTE 8))) 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 (VECTOR (UNSIGNED-BYTE 8))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; (FUNCALL (CHIPZ::INFLATE-STATE-STATE CHIPZ::STATE) CHIPZ::STATE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (DECF (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) CHIPZ::N-BYTES-TO-COPY) ; --> 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 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. ; (INCF (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE) CHIPZ::N-BYTES-TO-COPY) ; ==> ; (+ CHIPZ::N-BYTES-TO-COPY ; (SB-KERNEL:THE* ((AND FIXNUM (INTEGER 0 *)) :DERIVE-TYPE-ONLY T) ; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) ; 8))) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (+ CHIPZ::INDEX CHIPZ::N-BYTES-TO-COPY) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a REAL, not a FLOAT. ; (+ CHIPZ::COPY-INDEX CHIPZ::N-BYTES-TO-COPY) ; ; 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. ; (MIN (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) ; (- (CHIPZ::INFLATE-STATE-INPUT-END CHIPZ::STATE) ; (CHIPZ::INFLATE-STATE-INPUT-INDEX CHIPZ::STATE)) ; (- (CHIPZ::INFLATE-STATE-OUTPUT-END CHIPZ::STATE) ; (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387903)), 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. ; (- CHIPZ::INDEX CHIPZ::DISTANCE) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a REAL, not a FLOAT. ; (- CHIPZ::WINDOW-INDEX CHIPZ::DISTANCE) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387903)), not a FLOAT. ; (+ (- CHIPZ::WINDOW-INDEX CHIPZ::DISTANCE) (- CHIPZ::INDEX CHIPZ::START)) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR (RATIONAL * 4611686018427420670) ; (SINGLE-FLOAT * 4.611686e18) ; (DOUBLE-FLOAT * ; 4.611686018427421d18)), not a FLOAT. ; (MINUSP CHIPZ::COPY-INDEX) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * 9.223372036854809d18) ; (SINGLE-FLOAT * 9.223372e18) ; (RATIONAL * 9223372036854808573)), not a FLOAT. ; (- CHIPZ::WINDOW-INDEX CHIPZ::COPY-INDEX) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a (OR (DOUBLE-FLOAT 0.0d0 9.223372036854809d18) ; (SINGLE-FLOAT 0.0 9.223372e18) ; (RATIONAL 0 9223372036854808573)), not a FLOAT. ; (+ CHIPZ::COPY-INDEX (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE))) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) ; (RATIONAL * (0))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) ; (RATIONAL * (0))), not a RATIONAL. ; (- (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE)) CHIPZ::COPY-INDEX) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a (OR (RATIONAL * (32768)) (SINGLE-FLOAT * 32768.0) ; (DOUBLE-FLOAT * 32768.0d0)), not a FLOAT. ; (ZEROP (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (ZEROP CHIPZ::BITS) ; ; 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 open code because: The operands might not be the same type. ; (+ (CHIPZ::DISTANCE-BASE (CHIPZ::INFLATE-STATE-DISTANCE CHIPZ::STATE)) ; CHIPZ::DISTANCE-EXTRA) ; ; note: unable to ; 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)). ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) ; (CHIPZ::INFLATE-STATE-N-CODES CHIPZ::STATE)) ; ; 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. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) ; CHIPZ::+MAX-N-CODE-LENGTHS+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MIN LENGTH (- CHIPZ::END CHIPZ::INDEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (DECF (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; --> 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 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. ; (ZEROP (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (ZEROP CHIPZ::N-COPIED-BYTES) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (+ (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a REAL, not a FLOAT. ; (+ (CHIPZ::INFLATE-STATE-INPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The second argument is a REAL, not a FLOAT. ; (INCF (CHIPZ::INFLATE-STATE-INPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; ==> ; (+ CHIPZ::N-COPIED-BYTES ; (SB-KERNEL:THE* ((AND FIXNUM (INTEGER 0 *)) :DERIVE-TYPE-ONLY T) ; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) ; 4))) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (INCF (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; ==> ; (+ CHIPZ::N-COPIED-BYTES ; (SB-KERNEL:THE* ((AND FIXNUM (INTEGER 0 *)) :DERIVE-TYPE-ONLY T) ; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) ; 8))) ; ; note: unable to ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MIN CHIPZ::N-BYTES-TO-COPY (- CHIPZ::WINDOW-INDEX CHIPZ::COPY-INDEX)) ; ; 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 (OR (RATIONAL -9223372036854808573 32767) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (DOUBLE-FLOAT -9.223372036854809d18 ; 32767.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 REAL, not a DOUBLE-FLOAT. ; The second argument is a (OR (RATIONAL -9223372036854808573 32767) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (DOUBLE-FLOAT -9.223372036854809d18 ; 32767.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. ; The second argument is a (OR (RATIONAL -9223372036854808573 32767) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (DOUBLE-FLOAT -9.223372036854809d18 ; 32767.0d0)), not a RATIONAL. ; (<= CHIPZ::DISTANCE (- CHIPZ::INDEX CHIPZ::START)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (= CHIPZ::STORED (CHIPZ::PRODUCE-ADLER32 CHIPZ::ADLER32)) ; ; note: unable to open code because: The operands might not be the same type. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::N-VALUES) ; ; note: unable to ; open-code float 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. ; (+ (CHIPZ::HDT-BITS CHIPZ::DECODER) 7) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) 22)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (1- (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE)) ; ; 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)). ; (+ (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::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)). ; (INCF (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::LEN) ; ==> ; (+ CHIPZ::LEN (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) 22)) ; ; 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)). ; (ASSERT (= CHIPZ::N-VALUES (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE))) ; --> LET WHEN IF ; ==> ; (= #:TEMP5 #:TEMP6) ; ; 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 open code because: The operands might not be the same type. ; (<= CHIPZ::DISTANCE (- CHIPZ::INDEX CHIPZ::START)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387903)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN LENGTH (- CHIPZ::END CHIPZ::INDEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387903)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN CHIPZ::N-BYTES-TO-COPY ; (- (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE)) ; CHIPZ::COPY-INDEX)) ; ; 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 (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL (0))), 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 (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL (0))), 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 (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL (0))), not a RATIONAL. ; (MIN CHIPZ::N-BYTES-TO-COPY (- CHIPZ::WINDOW-INDEX CHIPZ::COPY-INDEX)) ; ; 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 (OR (RATIONAL -9223372036854808573 32767) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (DOUBLE-FLOAT -9.223372036854809d18 ; 32767.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 REAL, not a DOUBLE-FLOAT. ; The second argument is a (OR (RATIONAL -9223372036854808573 32767) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (DOUBLE-FLOAT -9.223372036854809d18 ; 32767.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. ; The second argument is a (OR (RATIONAL -9223372036854808573 32767) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (DOUBLE-FLOAT -9.223372036854809d18 ; 32767.0d0)), not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN CHIPZ::N-BYTES-TO-COPY ; (- (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE)) ; CHIPZ::COPY-INDEX)) ; ; 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 (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL (0))), 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 (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL (0))), 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 (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL (0))), not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (LOOP CHIPZ::WITH CHIPZ::OUTPUT = (CHIPZ::INFLATE-STATE-OUTPUT CHIPZ::STATE) ; CHIPZ::FOR CHIPZ::I CHIPZ::FROM CHIPZ::INDEX CHIPZ::BELOW (THE FIXNUM ; (+ ; CHIPZ::INDEX ; CHIPZ::N-BYTES-TO-COPY)) ; CHIPZ::FOR ...) ; --> LET LET LET TAGBODY WHEN IF >= ; ==> ; 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 FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) ; (SINGLE-FLOAT * 4.611686e18) ; (RATIONAL * 4611686018427387903)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::N-VALUES) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; (+ (CHIPZ::HDT-BITS CHIPZ::DECODER) 7) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (INCF (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) 22)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (1- (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (+ (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (INCF (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::LEN) ; ==> ; (+ CHIPZ::LEN (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) 22)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (ASSERT (= CHIPZ::N-VALUES (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE))) ; --> LET WHEN IF ; ==> ; (= #:TEMP5 #:TEMP6) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; unable to do #1# (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; (* (CHIPZ::CMF CHIPZ::HEADER) 256) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MOD (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) 31) ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR FLOAT (RATIONAL #2=(-31) #3=(31))), not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL #4=(0) #5=(62))) ; . #6=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (OR FLOAT (RATIONAL #2# #3#)), not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL #4# #5#)) . #6#), not a (VALUES ; FIXNUM ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL #2=(-31) #3=(62)), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (RATIONAL #2# #3#), not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL 0 #2=(62)), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (RATIONAL 0 #2#), not a FIXNUM. ; etc. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) ; (CHIPZ::INFLATE-STATE-N-CODES CHIPZ::STATE)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) ; CHIPZ::+MAX-N-CODE-LENGTHS+) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (+ (CHIPZ::DISTANCE-BASE (CHIPZ::INFLATE-STATE-DISTANCE CHIPZ::STATE)) ; CHIPZ::DISTANCE-EXTRA) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MIN LENGTH (- CHIPZ::END CHIPZ::INDEX)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (<= CHIPZ::DISTANCE (- CHIPZ::INDEX CHIPZ::START)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (- CHIPZ::WINDOW-INDEX CHIPZ::DISTANCE) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387903)), not a FIXNUM. ; The result is a (VALUES ; (OR (RATIONAL * 4611686018427420670) ; (SINGLE-FLOAT * 4.611686e18) ; (DOUBLE-FLOAT * 4.611686018427421d18)) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR (DOUBLE-FLOAT -4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18) ; (RATIONAL -4611686018427387903)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR (RATIONAL * 4611686018427420670) ; (SINGLE-FLOAT * 4.611686e18) ; (DOUBLE-FLOAT * 4.611686018427421d18)) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (+ (- CHIPZ::WINDOW-INDEX CHIPZ::DISTANCE) (- CHIPZ::INDEX CHIPZ::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (RATIONAL * 4611686018427420670) ; (SINGLE-FLOAT * 4.611686e18) ; (DOUBLE-FLOAT * 4.611686018427421d18)), not a FIXNUM. ; The result is a (VALUES ; (OR (DOUBLE-FLOAT * 9.223372036854809d18) ; (SINGLE-FLOAT * 9.223372e18) ; (RATIONAL * 9223372036854808573)) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (RATIONAL * 4611686018427420670) ; (SINGLE-FLOAT * 4.611686e18) ; (DOUBLE-FLOAT * 4.611686018427421d18)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR (DOUBLE-FLOAT * 9.223372036854809d18) ; (SINGLE-FLOAT * 9.223372e18) ; (RATIONAL * 9223372036854808573)) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MINUSP CHIPZ::COPY-INDEX) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (OR (DOUBLE-FLOAT * 9.223372036854809d18) ; (SINGLE-FLOAT * 9.223372e18) ; (RATIONAL * 9223372036854808573)), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (OR (DOUBLE-FLOAT * 9.223372036854809d18) ; (SINGLE-FLOAT * 9.223372e18) ; (RATIONAL * 9223372036854808573)), not a FIXNUM. ; etc. ; (- CHIPZ::WINDOW-INDEX CHIPZ::COPY-INDEX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR (DOUBLE-FLOAT 0.0d0 9.223372036854809d18) ; (SINGLE-FLOAT 0.0 9.223372e18) ; (RATIONAL 0 9223372036854808573)), not a FIXNUM. ; The result is a (VALUES ; (OR (RATIONAL -9223372036854808573 32767) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (DOUBLE-FLOAT -9.223372036854809d18 32767.0d0)) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR (DOUBLE-FLOAT 0.0d0 9.223372036854809d18) ; (SINGLE-FLOAT 0.0 9.223372e18) ; (RATIONAL 0 9223372036854808573)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR (RATIONAL -9223372036854808573 32767) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (DOUBLE-FLOAT -9.223372036854809d18 32767.0d0)) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MIN CHIPZ::N-BYTES-TO-COPY (- CHIPZ::WINDOW-INDEX CHIPZ::COPY-INDEX)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a (OR (RATIONAL -9223372036854808573 32767) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (DOUBLE-FLOAT -9.223372036854809d18 ; 32767.0d0)), not a SINGLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a (OR (RATIONAL -9223372036854808573 32767) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (DOUBLE-FLOAT -9.223372036854809d18 ; 32767.0d0)), not a DOUBLE-FLOAT. ; etc. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a (OR (RATIONAL -9223372036854808573 32767) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (DOUBLE-FLOAT -9.223372036854809d18 ; 32767.0d0)), not a DOUBLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a (OR (RATIONAL -9223372036854808573 32767) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (DOUBLE-FLOAT -9.223372036854809d18 ; 32767.0d0)), not a SINGLE-FLOAT. ; (+ CHIPZ::COPY-INDEX (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (DOUBLE-FLOAT * #2=(0.0d0)) ; (SINGLE-FLOAT * #3=(0.0)) (RATIONAL * #4=(0))), not a FIXNUM. ; The result is a (VALUES ; (OR (RATIONAL * #5=(32768)) (SINGLE-FLOAT * 32768.0) ; (DOUBLE-FLOAT * 32768.0d0)) ; . #6=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (OR (DOUBLE-FLOAT * #2#) (SINGLE-FLOAT * #3#) ; (RATIONAL * #4#)), not a FIXNUM. ; The result is a (VALUES ; (OR (RATIONAL * #5#) (SINGLE-FLOAT * 32768.0) ; (DOUBLE-FLOAT * 32768.0d0)) ; . #6#), not a (VALUES FIXNUM &REST T). ; etc. ; (- (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE)) CHIPZ::COPY-INDEX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR (RATIONAL * #1=(32768)) ; (SINGLE-FLOAT * 32768.0) ; (DOUBLE-FLOAT * 32768.0d0)), not a FIXNUM. ; The result is a (VALUES ; (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL #2=(0))) ; . #3=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR (RATIONAL * #1#) (SINGLE-FLOAT * 32768.0) ; (DOUBLE-FLOAT * 32768.0d0)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL #2#)) ; . #3#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MIN CHIPZ::N-BYTES-TO-COPY ; (- (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE)) ; CHIPZ::COPY-INDEX)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL #2=(0))), not a SINGLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL #2#)), not a DOUBLE-FLOAT. ; etc. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL #2=(0))), not a DOUBLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL #2#)), not a SINGLE-FLOAT. ; (- CHIPZ::INDEX CHIPZ::DISTANCE) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a REAL, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (DECF (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) CHIPZ::N-BYTES-TO-COPY) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (INCF (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE) CHIPZ::N-BYTES-TO-COPY) ; ==> ; (+ CHIPZ::N-BYTES-TO-COPY ; (SB-KERNEL:THE* ((AND FIXNUM (INTEGER 0 *)) :DERIVE-TYPE-ONLY T) ; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) ; 8))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (+ CHIPZ::INDEX CHIPZ::N-BYTES-TO-COPY) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (+ CHIPZ::COPY-INDEX CHIPZ::N-BYTES-TO-COPY) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (LOOP CHIPZ::WITH CHIPZ::OUTPUT = (CHIPZ::INFLATE-STATE-OUTPUT CHIPZ::STATE) ; CHIPZ::FOR CHIPZ::I CHIPZ::FROM CHIPZ::INDEX CHIPZ::BELOW (THE FIXNUM ; (+ ; CHIPZ::INDEX ; CHIPZ::N-BYTES-TO-COPY)) ; CHIPZ::FOR ...) ; --> LET LET LET TAGBODY WHEN IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (MIN (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) ; (- (CHIPZ::INFLATE-STATE-INPUT-END CHIPZ::STATE) ; (CHIPZ::INFLATE-STATE-INPUT-INDEX CHIPZ::STATE)) ; (- (CHIPZ::INFLATE-STATE-OUTPUT-END CHIPZ::STATE) ; (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE))) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (+ (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (+ (CHIPZ::INFLATE-STATE-INPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (INCF (CHIPZ::INFLATE-STATE-INPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; ==> ; (+ CHIPZ::N-COPIED-BYTES ; (SB-KERNEL:THE* ((AND FIXNUM (INTEGER 0 *)) :DERIVE-TYPE-ONLY T) ; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) ; 4))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (INCF (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; ==> ; (+ CHIPZ::N-COPIED-BYTES ; (SB-KERNEL:THE* ((AND FIXNUM (INTEGER 0 *)) :DERIVE-TYPE-ONLY T) ; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) ; 8))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL . #1#), not a (VALUES (SIGNED-BYTE 64) &REST ; T). ; etc. ; (DECF (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chipz/inflate-tmpYAKMHP3C.fasl ; compilation finished in 0:00:00.099 ; compiling file "/usr/share/common-lisp/source/chipz/bzip2.lisp" (written 13 FEB 2022 01:13:10 PM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFUN REVERSE-UB4 ...) ; processing (DEFUN REVERSE-UB8 ...) ; processing (DEFUN REVERSE-UB16 ...) ; processing (DEFVAR *DUMMY-VEC* ...) ; processing (DEFSTRUCT (BZIP2-STATE # ...) ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN MAKE-MAPS ...) ; processing (DEFUN MAKE-DECODE-TABLES ...) ; processing (DEFUN UNDO-RLE-OBUF-TO-OUTPUT ...) ; processing (DEFUN %BZIP2-STATE-MACHINE ...) ; file: /usr/share/common-lisp/source/chipz/bzip2.lisp ; in: DEFUN %BZIP2-STATE-MACHINE ; (FILL (CHIPZ::BZIP2-STATE-UNZFTAB CHIPZ::STATE) 0) ; ; note: deleting unreachable code ; (MINUSP (CHIPZ::BZIP2-STATE-ORIGINAL-POINTER CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (INCF (CHIPZ::BZIP2-STATE-N-BLOCKS-USED CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 26)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (>= (INCF (CHIPZ::BZIP2-STATE-GROUP-NUMBER CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-N-SELECTORS CHIPZ::STATE)) ; ; note: unable to open code because: The operands might not be the same type. ; (>= (CHIPZ::BZIP2-STATE-ORIGINAL-POINTER CHIPZ::STATE) ; (CHIPZ::BZIP2-STATE-NBLOCK CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * 899999.0d0) ; (SINGLE-FLOAT * 899999.0) ; (RATIONAL * 899999)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (= (CHIPZ::BZIP2-STATE-N-BLOCKS-USED CHIPZ::STATE) ; (1+ (CHIPZ::BZIP2-STATE-NBLOCK CHIPZ::STATE))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 48)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (< (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-ALPHA-SIZE CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 49)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LOOP CHIPZ::WITH CHIPZ::N-GROUPS = (CHIPZ::BZIP2-STATE-N-GROUPS ; CHIPZ::STATE) ; CHIPZ::WITH CHIPZ::LEN = (CHIPZ::BZIP2-STATE-LEN CHIPZ::STATE) ; CHIPZ::FOR CHIPZ::X CHIPZ::FROM ...) ; --> LET LET LET TAGBODY WHEN IF >= ; ==> ; 1 ; ; note: unable to open code because: The operands might not be the same type. ; (MIN CHIPZ::MINLEN CHIPZ::XY) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MAX CHIPZ::MAXLEN CHIPZ::XY) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * 255.0d0) (SINGLE-FLOAT * 255.0) ; (RATIONAL * 255)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (< (CHIPZ::BZIP2-STATE-J CHIPZ::STATE) ; (CHIPZ::BZIP2-STATE-N-GROUPS CHIPZ::STATE)) ; ; 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. ; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 48)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (< (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-N-SELECTORS CHIPZ::STATE)) ; ; note: unable to ; open-code float 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. ; (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 49)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (< (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (* (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) ; ; note: unable to ; 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 ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (+ (* (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) CHIPZ::I) ; ; note: unable to ; 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)). ; (>= (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-N-GROUPS CHIPZ::STATE)) ; ; 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. ; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 48)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF (CHIPZ::BZIP2-STATE-CURRENT-BLOCK-NUMBER CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 21)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LDB (BYTE CHIPZ::N 0) ; (ASH (CHIPZ::BZIP2-STATE-BITS CHIPZ::STATE) ; (THE (INTEGER -31 0) ; (- CHIPZ::N (CHIPZ::BZIP2-STATE-N-BITS CHIPZ::STATE))))) ; ; 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 64) ; &REST T). ; (MIN CHIPZ::MINLEN CHIPZ::XY) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL 0)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MAX CHIPZ::MAXLEN CHIPZ::XY) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (>= (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-N-GROUPS CHIPZ::STATE)) ; ; 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. ; (< CHIPZ::N-BITS CHIPZ::N) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; (INCF CHIPZ::N-BITS 8) ; --> THE ; ==> ; (+ 8 CHIPZ::N-BITS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 8) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 8) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 48)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (< (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-ALPHA-SIZE CHIPZ::STATE)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 49)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (< (CHIPZ::BZIP2-STATE-J CHIPZ::STATE) ; (CHIPZ::BZIP2-STATE-N-GROUPS CHIPZ::STATE)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; (LOOP CHIPZ::WITH CHIPZ::N-GROUPS = (CHIPZ::BZIP2-STATE-N-GROUPS ; CHIPZ::STATE) ; CHIPZ::WITH CHIPZ::LEN = (CHIPZ::BZIP2-STATE-LEN CHIPZ::STATE) ; CHIPZ::FOR CHIPZ::X CHIPZ::FROM ...) ; --> LET LET LET TAGBODY WHEN IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; (MAX CHIPZ::MAXLEN CHIPZ::XY) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (MIN CHIPZ::MINLEN CHIPZ::XY) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (INCF (CHIPZ::BZIP2-STATE-CURRENT-BLOCK-NUMBER CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 21)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (ASH CHIPZ::CRC32-HI 16) ; ; note: forced to do full call ; unable to do #1=inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (LOGIOR (ASH CHIPZ::CRC32-HI 16) CHIPZ::CRC32-LO) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (<= 0 CHIPZ::ORIGINAL-POINTER ; (+ 10 ; (* (CHIPZ::BZIP2-STATE-100K-BLOCK-SIZE CHIPZ::STATE) CHIPZ::+100K+))) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; (< (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (LOGBITP (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) CHIPZ::IN-USE-16) ; --> LET PROGN UNLESS IF AND IF LOCALLY AND THE >= ; ==> ; 1 ; ; note: forced to do FAST-IF-<-ZERO (cost 9) ; 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. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; (* (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (+ (* (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) CHIPZ::I) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 48)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (<= 2 CHIPZ::N-GROUPS 6) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER 2), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER 2), not a FIXNUM. ; etc. ; (PLUSP CHIPZ::N-SELECTORS) ; ; note: forced to do FAST-IF->-ZERO (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 49)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (>= (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-N-GROUPS CHIPZ::STATE)) ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 48)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (< (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-N-SELECTORS CHIPZ::STATE)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; (DOTIMES (CHIPZ::I CHIPZ::N-GROUPS) ; (SETF (AREF CHIPZ::POS CHIPZ::I) CHIPZ::I)) ; --> BLOCK LET TAGBODY UNLESS IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; (DOTIMES (CHIPZ::I CHIPZ::N-SELECTORS) ; (LET* ((CHIPZ::V (AREF CHIPZ::SELECTOR-MTF CHIPZ::I)) ; (CHIPZ::TMP (AREF CHIPZ::POS CHIPZ::V))) ; (LOOP CHIPZ::UNTIL (ZEROP CHIPZ::V) ; DO (SETF # #) (DECF CHIPZ::V)) ; (SETF (AREF CHIPZ::POS 0) CHIPZ::TMP) ; (SETF (AREF CHIPZ::SELECTOR-TABLE CHIPZ::I) CHIPZ::TMP))) ; --> BLOCK LET TAGBODY UNLESS IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; (MINUSP (CHIPZ::BZIP2-STATE-ORIGINAL-POINTER CHIPZ::STATE)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (>= (CHIPZ::BZIP2-STATE-ORIGINAL-POINTER CHIPZ::STATE) ; (CHIPZ::BZIP2-STATE-NBLOCK CHIPZ::STATE)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (INCF (CHIPZ::BZIP2-STATE-N-BLOCKS-USED CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 26)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (>= (INCF (CHIPZ::BZIP2-STATE-GROUP-NUMBER CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-N-SELECTORS CHIPZ::STATE)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; (LOGIOR (ASH (CHIPZ::BZIP2-STATE-ZVEC CHIPZ::STATE) 1) CHIPZ::ZJ) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN %BZIP2-DECOMPRESS ...) ; processing (DEFUN MAKE-BZIP2-STATE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chipz/bzip2-tmpT250CJEH.fasl ; compilation finished in 0:00:00.438 ; compiling file "/usr/share/common-lisp/source/chipz/decompress.lisp" (written 13 FEB 2022 01:13:10 PM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFGENERIC DECOMPRESS ...) ; processing (DEFUN %DECOMPRESS ...) ; processing (DEFUN MAYBE-SUBSEQ ...) ; processing (DEFUN DECOMPRESS-FUN-FOR-STATE ...) ; processing (DEFUN %DECOMPRESS-FROM-PATHNAME ...) ; processing (DEFMETHOD DECOMPRESS ...) ; processing (DEFMETHOD DECOMPRESS ...) ; processing (DEFMETHOD DECOMPRESS ...) ; processing (DEFUN %DECOMPRESS/NULL-VECTOR ...) ; processing (DEFMETHOD DECOMPRESS ...) ; processing (DEFUN %DECOMPRESS/NULL-STREAM ...) ; processing (DEFMETHOD DECOMPRESS ...) ; processing (DEFUN %DECOMPRESS/VECTOR-VECTOR ...) ; processing (DEFMETHOD DECOMPRESS ...) ; processing (DEFUN %DECOMPRESS/STREAM-VECTOR ...) ; processing (DEFMETHOD DECOMPRESS ...) ; processing (DEFUN %DECOMPRESS/STREAM-STREAM ...) ; processing (DEFMETHOD DECOMPRESS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chipz/decompress-tmpZ5LLIZWU.fasl ; compilation finished in 0:00:00.087 ; compiling file "/usr/share/common-lisp/source/chipz/stream.lisp" (written 13 FEB 2022 01:13:10 PM): ; processing (IN-PACKAGE :CHIPZ) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL)) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFMACRO DEFINE-STREAM-READ-SEQUENCE ...) ; processing (DEFCLASS DECOMPRESSING-STREAM ...) ; processing (DEFUN MAKE-DECOMPRESSING-STREAM ...) ; processing (DEFUN OUTPUT-AVAILABLE-P ...) ; processing (DEFUN INPUT-AVAILABLE-P ...) ; processing (DEFUN REFILL-STREAM-INPUT-BUFFER ...) ; processing (DEFUN REFILL-STREAM-OUTPUT-BUFFER ...) ; processing (DEFUN READ-AND-DECOMPRESS-BYTE ...) ; processing (DEFUN COPY-EXISTING-OUTPUT ...) ; processing (DEFINE-STREAM-READ-SEQUENCE DECOMPRESSING-STREAM ...) ; file: /usr/share/common-lisp/source/chipz/stream.lisp ; in: DEFINE-STREAM-READ-SEQUENCE DECOMPRESSING-STREAM ; (WHEN (CHIPZ::OUTPUT-AVAILABLE-P STREAM) ; (SETF CHIPZ::START ; (CHIPZ::COPY-EXISTING-OUTPUT STREAM CHIPZ::SEQ CHIPZ::START ; CHIPZ::END))) ; --> MULTIPLE-VALUE-BIND LET PROGN UNLESS IF IF ; ==> ; (MEMBER #:G61 '(T NIL)) ; ; note: deleting unreachable code ; processing (DEFMETHOD SB-GRAY:STREAM-READ-BYTE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chipz/stream-tmpK87BOA56.fasl ; compilation finished in 0:00:00.029 ; compiling file "/usr/share/common-lisp/source/qmynd/src/pkgdcl.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE QMYND ...) ; processing (DEFPACKAGE QMYND-IMPL ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/pkgdcl-tmpRL4WWIL2.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/qmynd/src/common/charsets.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/common/charsets-tmp9PRKYPOC.fasl ; compilation finished in 0:00:00.003 ; compiling file "/usr/share/common-lisp/source/qmynd/src/common/constants.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFUN MYSQL-CAPABILITIES-SUPPORTED ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/common/constants-tmp747V57QS.fasl ; compilation finished in 0:00:00.002 ; compiling file "/usr/share/common-lisp/source/qmynd/src/common/conditions.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFINE-CONDITION MYSQL-BASE-ERROR ...) ; processing (DEFINE-CONDITION MYSQL-INTERNAL-ERROR ...) ; processing (DEFINE-CONDITION MYSQL-EXTERNAL-ERROR ...) ; processing (DEFINE-CONDITION BAD-MYSQL-TYPE-SPEC ...) ; processing (DEFINE-CONDITION INVALID-LENGTH-ENCODED-INTEGER ...) ; processing (DEFINE-CONDITION UNEXPECTED-SEQUENCE-ID ...) ; processing (DEFINE-CONDITION MYSQL-ERROR ...) ; processing (DEFINE-CONDITION SSL-NOT-SUPPORTED ...) ; processing (DEFINE-CONDITION INVALID-PREPARED-STATEMENT ...) ; processing (DEFINE-CONDITION UNEXPECTED-PARAMETER-COUNT ...) ; processing (DEFINE-CONDITION MYSQL-INSUFFICIENT-CAPABILITIES ...) ; processing (DEFINE-CONDITION MYSQL-UNSUPPORTED-AUTHENTICATION ...) ; processing (DEFINE-CONDITION UNEXPECTED-PACKET ...) ; processing (DEFINE-CONDITION VALUE-IS-NOT-DECIMAL ...) ; processing (DEFINE-CONDITION PROTOCOL-VERSION-MISMATCH ...) ; processing (DEFINE-CONDITION PARTIAL-READ ...) ; processing (DEFINE-CONDITION DECODING-ERROR ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/common/conditions-tmpK7KF0QEZ.fasl ; compilation finished in 0:00:00.007 ; compiling file "/usr/share/common-lisp/source/qmynd/src/common/feature-detection.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFUN HAVE-SSL ...) ; processing (DEFUN HAVE-COMPRESSION ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/common/feature-detection-tmp7L3QASG.fasl ; compilation finished in 0:00:00.002 ; compiling file "/usr/share/common-lisp/source/qmynd/src/common/utilities.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFMACRO I+ ...) ; processing (DEFMACRO I- ...) ; processing (DEFMACRO I* ...) ; processing (DEFMACRO I= ...) ; processing (DEFMACRO I< ...) ; processing (DEFMACRO I<= ...) ; processing (DEFMACRO I> ...) ; processing (DEFMACRO I>= ...) ; processing (DEFMACRO IASH ...) ; processing (DEFMACRO ILOGIOR ...) ; processing (DEFMACRO ILOGAND ...) ; processing (DEFINE-MODIFY-MACRO IINCF ...) ; processing (DEFINE-MODIFY-MACRO IDECF ...) ; processing (DEFMACRO ILDB ...) ; processing (DEFMACRO WITH-GENSYMS ...) ; processing (DEFUN MAKE-LISP-SYMBOL ...) ; processing (DEFUN FINTERN ...) ; processing (DEFUN KINTERN ...) ; processing (DEFUN KEYWORDIFY ...) ; processing (DEFMACRO WITH-PREFIXED-ACCESSORS ...) ; processing (DEFUN CURRY ...) ; processing (DEFINE-COMPILER-MACRO CURRY ...) ; processing (DEFUN PARSE-DECIMAL ...) ; processing (DEFUN %DENOMINATOR-DIVISIBLE-BY-2-OR-5-ONLY ...) ; processing (DEFUN WRITE-DECIMAL-TO-STRING ...) ; processing (DEFUN SINGLE-FLOAT-BITS ...) ; processing (DEFUN DOUBLE-FLOAT-BITS ...) ; processing (DEFUN MAKE-SINGLE-FLOAT ...) ; processing (DEFUN MAKE-DOUBLE-FLOAT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/common/utilities-tmpSU9OHSB9.fasl ; compilation finished in 0:00:00.058 ; compiling file "/usr/share/common-lisp/source/qmynd/src/common/date-time.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFCLASS MYSQL-DATE-TIME ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN MYSQL-DATE-TIME-TO-UNIVERSAL-TIME ...) ; processing (DEFUN UNIVERSAL-TIME-TO-MYSQL-DATE-TIME ...) ; processing (DEFUN PARSE-DATE-TIME-STRING ...) ; processing (DEFCLASS MYSQL-TIME-INTERVAL ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN MYSQL-TIME-INTERVAL-TO-SECONDS ...) ; processing (DEFUN SECONDS-TO-MYSQL-TIME-INTERVAL ...) ; processing (DEFUN PARSE-TIME-INTERVAL-STRING ...) ; processing (DEFCLASS MYSQL-YEAR ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/common/date-time-tmpTEZ5J20P.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/qmynd/src/common/misc.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFUN MYSQL-CS-COLL-TO-CHARACTER-ENCODING ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/common/misc-tmp7EQWE70T.fasl ; compilation finished in 0:00:00.024 ; compiling file "/usr/share/common-lisp/source/qmynd/src/wire-protocol/wire-packet.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFCONSTANT +MAX-PACKET-LENGTH+ ...) ; processing (DEFVAR *MAX-ALLOWED-PACKETS* ...) ; processing (DEFSTRUCT (MY-PACKET-STREAM #) ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN READ-WIRE-PACKET ...) ; processing (DECLAIM (INLINE %READ-3-OCTETS)) ; processing (DEFUN %READ-3-OCTETS ...) ; processing (DEFUN PREPARE-NEXT-CHUNK ...) ; processing (DECLAIM (INLINE MAYBE-READ-NEXT-CHUNK)) ; processing (DEFUN MAYBE-READ-NEXT-CHUNK ...) ; processing (DEFUN READ-MY-OCTET ...) ; processing (DEFUN PEEK-FIRST-OCTET ...) ; processing (DEFUN READ-MY-SEQUENCE ...) ; processing (DEFUN CONCATENATE-VECTORS ...) ; processing (DEFUN READ-WHOLE-CHUNK ...) ; processing (DEFUN READ-REST-OF-PACKET-OCTETS ...) ; processing (DEFUN WRITE-WIRE-PACKET ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/wire-protocol/wire-packet-tmp83ON8YFR.fasl ; compilation finished in 0:00:00.051 ; compiling file "/usr/share/common-lisp/source/qmynd/src/wire-protocol/basic-types.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFINE-COMPILER-MACRO READ-FIXED-LENGTH-INTEGER ...) ; processing (DEFUN READ-FIXED-LENGTH-INTEGER ...) ; processing (DECLAIM (INLINE UNSIGNED-TO-SIGNED ...)) ; processing (DEFUN UNSIGNED-TO-SIGNED ...) ; processing (DEFUN READ-1-OCTET-INTEGER ...) ; processing (DEFUN READ-2-OCTETS-INTEGER ...) ; processing (DEFUN READ-3-OCTETS-INTEGER ...) ; processing (DEFUN READ-4-OCTETS-INTEGER ...) ; processing (DEFUN READ-6-OCTETS-INTEGER ...) ; processing (DEFUN READ-8-OCTETS-INTEGER ...) ; processing (DEFUN READ-10-OCTETS-INTEGER ...) ; processing (DEFUN WRITE-FIXED-LENGTH-INTEGER ...) ; processing (DEFUN READ-LENGTH-ENCODED-INTEGER ...) ; processing (DEFUN WRITE-LENGTH-ENCODED-INTEGER ...) ; processing (DEFUN READ-FIXED-LENGTH-OCTETS ...) ; processing (DEFUN READ-NULL-TERMINATED-OCTETS ...) ; processing (DEFUN WRITE-NULL-TERMINATED-OCTETS ...) ; processing (DEFUN READ-LENGTH-ENCODED-OCTETS ...) ; processing (DEFUN WRITE-LENGTH-ENCODED-OCTETS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/wire-protocol/basic-types-tmpEOOWYRL6.fasl ; compilation finished in 0:00:00.043 ; compiling file "/usr/share/common-lisp/source/qmynd/src/wire-protocol/compressed-protocol.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFUN READ-COMPRESSED-WIRE-PACKET ...) ; processing (DEFUN WRITE-COMPRESSED-WIRE-PACKET ...) ; processing (DEFCLASS MYSQL-COMPRESSED-STREAM ...) ; processing (DEFUN FILL-INPUT-BUFFER ...) ; processing (DEFMETHOD SB-GRAY:STREAM-LISTEN ...) ; processing (DEFMETHOD SB-GRAY:STREAM-READ-BYTE ...) ; processing (DEFMETHOD TRIVIAL-GRAY-STREAMS:STREAM-READ-SEQUENCE ...) ; processing (DEFMETHOD SB-GRAY:STREAM-WRITE-BYTE ...) ; processing (DEFMETHOD TRIVIAL-GRAY-STREAMS:STREAM-WRITE-SEQUENCE ...) ; processing (DEFMETHOD SB-GRAY:STREAM-FORCE-OUTPUT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/wire-protocol/compressed-protocol-tmpFDZ5SF8C.fasl ; compilation finished in 0:00:00.027 ; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/define-packet.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFCLASS PACKET-SLOT ...) ; processing (DEFUN PARSE-SLOT ...) ; processing (DEFUN EMIT-PACKET-SLOT-LISP-TYPE ...) ; processing (DEFUN EMIT-PACKET-STRUCT ...) ; processing (DEFUN EMIT-PACKET-PARSER-SLOT-READER ...) ; processing (DEFUN EMIT-PACKET-PARSER-SLOT ...) ; processing (DEFUN EMIT-PACKET-PARSER ...) ; processing (DEFMACRO DEFINE-PACKET ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/mysql-protocol/define-packet-tmp6MGXO15Y.fasl ; compilation finished in 0:00:00.021 ; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/connection.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFVAR *MYSQL-CONNECTION* ...) ; processing (DEFVAR *MYSQL-ENCODING* ...) ; processing (DEFMACRO WITH-MYSQL-CONNECTION ...) ; processing (DEFCLASS MYSQL-BASE-CONNECTION ...) ; processing (DEFGENERIC MYSQL-CONNECTION-CLOSE-SOCKET ...) ; processing (DEFCLASS MYSQL-INET-CONNECTION ...) ; processing (DEFMETHOD MYSQL-CONNECTION-CLOSE-SOCKET ...) ; processing (PROGN (DEFCLASS MYSQL-LOCAL-CONNECTION ...) ...) ; processing (DEFMETHOD MYSQL-CONNECTION-REMOVE-STALE-PREPARED-STATEMENTS ...) ; processing (DEFUN FLAGSP ...) ; processing (DEFMETHOD MYSQL-CONNECTION-HAS-STATUS ...) ; processing (DEFMETHOD MYSQL-CONNECTION-HAS-CAPABILITY ...) ; processing (DEFMETHOD MYSQL-CONNECTION-HAS-SOME-CAPABILITY ...) ; processing (DEFUN MYSQL-HAS-CAPABILITY ...) ; processing (DEFUN MYSQL-HAS-SOME-CAPABILITY ...) ; processing (DEFUN MYSQL-ADD-REQUIRED-CAPABILITY ...) ; processing (DEFMETHOD MYSQL-CONNECTION-WRITE-PACKET ...) ; processing (DEFMETHOD MYSQL-CONNECTION-READ-PACKET ...) ; processing (DEFMETHOD MYSQL-CONNECTION-COMMAND-INIT ...) ; processing (DEFUN MYSQL-COMMAND-INIT ...) ; processing (DEFUN MYSQL-CURRENT-COMMAND-P ...) ; processing (DEFUN MYSQL-WRITE-PACKET ...) ; processing (DEFUN MYSQL-READ-PACKET ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/mysql-protocol/connection-tmpSWPNJISY.fasl ; compilation finished in 0:00:00.019 ; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/response-packets.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFINE-PACKET RESPONSE-OK ...) ; processing (DEFINE-PACKET RESPONSE-ERROR-NO-SQL-STATE ...) ; processing (DEFINE-PACKET RESPONSE-ERROR ...) ; processing (DEFINE-PACKET RESPONSE-END-OF-FILE ...) ; processing (DEFUN PARSE-RESPONSE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/mysql-protocol/response-packets-tmpUXH28IAQ.fasl ; compilation finished in 0:00:00.064 ; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/authentication.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFUN MYSQL-WEAK-HASH-PASSWORD ...) ; processing (DEFSTRUCT MYSQL-RAND-ST ...) ; processing (DEFUN MYSQL-OLD-RANDOM-INIT ...) ; processing (DEFUN MY-RND ...) ; processing (DEFUN MYSQL-OLD-PASSWORD-AUTH-RESPONSE ...) ; processing (DEFUN MYSQL-NATIVE-PASSWORD-AUTH-RESPONSE ...) ; processing (DEFUN MYSQL-CLEAR-PASSWORD-AUTH-RESPONSE ...) ; processing (DEFUN GENERATE-AUTH-RESPONSE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/mysql-protocol/authentication-tmpRZXAYVZS.fasl ; compilation finished in 0:00:00.026 ; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/handshake.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFINE-PACKET INITIAL-HANDSHAKE-V10 ...) ; processing (DEFINE-PACKET AUTH-SWITCH-REQUEST ...) ; processing (DEFINE-PACKET OLD-AUTH-SWITCH-REQUEST ...) ; processing (DEFUN SEND-AUTH-SWITCH-RESPONSE ...) ; processing (DEFUN PROCESS-INITIAL-HANDSHAKE-V10 ...) ; processing (DEFUN SEND-SSL-REQUEST-PACKET ...) ; processing (DEFUN SEND-HANDSHAKE-RESPONSE-41 ...) ; processing (DEFUN PROCESS-INITIAL-HANDSHAKE-PAYLOAD ...) ; processing (DEFUN MYSQL-CONNECT-DO-HANDSHAKE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/mysql-protocol/handshake-tmpFVBAZC5N.fasl ; compilation finished in 0:00:00.070 ; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/response-result-set.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFUN PARSE-COLUMN-COUNT ...) ; processing (DEFINE-PACKET COLUMN-DEFINITION-V41 ...) ; file: /usr/share/common-lisp/source/qmynd/src/mysql-protocol/response-result-set.lisp ; in: DEFINE-PACKET COLUMN-DEFINITION-V41 ; (QMYND-IMPL:DEFINE-PACKET QMYND-IMPL::COLUMN-DEFINITION-V41 ; ((QMYND-IMPL::CATALOG :MYSQL-TYPE (STRING :LENENC)) ; (QMYND-IMPL::SCHEMA :MYSQL-TYPE (STRING :LENENC)) ; (QMYND-IMPL::TABLE :MYSQL-TYPE (STRING :LENENC)) ; (QMYND-IMPL::ORG-TABLE :MYSQL-TYPE ; (STRING :LENENC)) ; (QMYND-IMPL::NAME :MYSQL-TYPE (STRING :LENENC)) ; (QMYND-IMPL::ORG-NAME :MYSQL-TYPE ; (STRING :LENENC)) ; (QMYND-IMPL::LEN-FIXED-FIELDS :MYSQL-TYPE ; (INTEGER :LENENC) :VALUE 12 :TRANSIENT T :BIND ; NIL) ; (QMYND-IMPL::CS-COLL :MYSQL-TYPE (INTEGER 2)) ; (QMYND-IMPL::COLUMN-LENGTH :MYSQL-TYPE ; (INTEGER 4)) ; (TYPE :MYSQL-TYPE (INTEGER 1)) ; (QMYND-IMPL::FLAGS :MYSQL-TYPE (INTEGER 2)) ; (QMYND-IMPL::DECIMALS :MYSQL-TYPE (INTEGER 1)) ; ...)) ; --> EVAL-WHEN DEFSTRUCT PROGN EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; #)) ; ; caught STYLE-WARNING: ; Previously compiled calls to QMYND-IMPL::COLUMN-DEFINITION-V41-PACKET-SCHEMA, ; QMYND-IMPL::COLUMN-DEFINITION-V41-PACKET-TABLE, ; QMYND-IMPL::COLUMN-DEFINITION-V41-PACKET-NAME and ; QMYND-IMPL::COLUMN-DEFINITION-V41-PACKET-CS-COLL could not be inlined because ; the structure definition for QMYND-IMPL::COLUMN-DEFINITION-V41-PACKET was not ; yet seen. To avoid this warning, DEFSTRUCT should precede references to the ; affected functions, or they must be declared locally notinline at each call ; site. ; processing (DEFUN COLUMN-DEFINITION-TYPE ...) ; processing (DEFUN COLUMN-DEFINITION-ENCODING ...) ; processing (DECLAIM (INLINE PARSE-TEXT-PROTOCOL-RESULT-COLUMN-AS-TEXT)) ; processing (DEFUN PARSE-RESULTSET-ROW-AS-VECTOR ...) ; file: /usr/share/common-lisp/source/qmynd/src/mysql-protocol/response-result-set.lisp ; in: DEFUN PARSE-RESULTSET-ROW-AS-VECTOR ; (= QMYND-IMPL::TAG QMYND-IMPL::+MYSQL-RESPONSE-END-OF-FILE+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (= QMYND-IMPL::TAG QMYND-IMPL::+MYSQL-RESPONSE-ERROR+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (LOOP QMYND-IMPL::FOR QMYND-IMPL::I FIXNUM QMYND-IMPL::FROM 0 QMYND-IMPL::BELOW QMYND-IMPL::COLUMN-COUNT ; QMYND-IMPL::FOR QMYND-IMPL::DEF QMYND-IMPL::ACROSS QMYND-IMPL::COLUMN-DEFINITIONS ...) ; --> LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (< (QMYND-IMPL::MY-LEN STREAM) 9) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; processing (DEFUN PARSE-RESULTSET-ROW-AS-TEXT-VECTOR ...) ; file: /usr/share/common-lisp/source/qmynd/src/mysql-protocol/response-result-set.lisp ; in: DEFUN PARSE-RESULTSET-ROW-AS-TEXT-VECTOR ; (= QMYND-IMPL::TAG QMYND-IMPL::+MYSQL-RESPONSE-END-OF-FILE+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (= QMYND-IMPL::TAG QMYND-IMPL::+MYSQL-RESPONSE-ERROR+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (LOOP QMYND-IMPL::FOR QMYND-IMPL::I FIXNUM QMYND-IMPL::FROM 0 QMYND-IMPL::BELOW QMYND-IMPL::COLUMN-COUNT ; QMYND-IMPL::FOR QMYND-IMPL::DEF QMYND-IMPL::ACROSS QMYND-IMPL::COLUMN-DEFINITIONS ...) ; --> LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (< (QMYND-IMPL::MY-LEN STREAM) 9) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; (DEFUN QMYND-IMPL::PARSE-RESULTSET-ROW-AS-TEXT-VECTOR ; (QMYND-IMPL::COLUMN-COUNT QMYND-IMPL::COLUMN-DEFINITIONS) ; (DECLARE (OPTIMIZE SPEED)) ; (LET* ((STREAM (QMYND-IMPL:MYSQL-READ-PACKET)) ; (QMYND-IMPL::TAG (QMYND-IMPL::PEEK-FIRST-OCTET STREAM)) ; (QMYND-IMPL::ROW ; (MAKE-ARRAY QMYND-IMPL::COLUMN-COUNT :INITIAL-ELEMENT NIL))) ; (IF (OR (AND # #) (= QMYND-IMPL::TAG QMYND-IMPL::+MYSQL-RESPONSE-ERROR+)) ; (QMYND-IMPL:PARSE-RESPONSE STREAM) ; (LOOP QMYND-IMPL::FOR QMYND-IMPL::I FIXNUM QMYND-IMPL::FROM 0 QMYND-IMPL::BELOW QMYND-IMPL::COLUMN-COUNT ; QMYND-IMPL::FOR QMYND-IMPL::DEF QMYND-IMPL::ACROSS QMYND-IMPL::COLUMN-DEFINITIONS ...)))) ; ==> ; (SB-IMPL::%DEFUN 'QMYND-IMPL::PARSE-RESULTSET-ROW-AS-TEXT-VECTOR ; (SB-INT:NAMED-LAMBDA QMYND-IMPL::PARSE-RESULTSET-ROW-AS-TEXT-VECTOR ; (QMYND-IMPL::COLUMN-COUNT QMYND-IMPL::COLUMN-DEFINITIONS) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (DECLARE (OPTIMIZE SPEED)) ; (BLOCK QMYND-IMPL::PARSE-RESULTSET-ROW-AS-TEXT-VECTOR ; (LET* (# # #) ; (IF # ; # ; #))))) ; ; caught STYLE-WARNING: ; Call to QMYND-IMPL::PARSE-TEXT-PROTOCOL-RESULT-COLUMN-AS-TEXT could not be ; inlined because no definition for it was seen prior to its first use. ; processing (DEFUN PARSE-RESULTSET-ROW-AS-LIST ...) ; file: /usr/share/common-lisp/source/qmynd/src/mysql-protocol/response-result-set.lisp ; in: DEFUN PARSE-RESULTSET-ROW-AS-LIST ; (= QMYND-IMPL::TAG QMYND-IMPL::+MYSQL-RESPONSE-END-OF-FILE+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (= QMYND-IMPL::TAG QMYND-IMPL::+MYSQL-RESPONSE-ERROR+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (LOOP QMYND-IMPL::FOR QMYND-IMPL::I FIXNUM QMYND-IMPL::FROM 0 QMYND-IMPL::BELOW QMYND-IMPL::COLUMN-COUNT ; QMYND-IMPL::FOR QMYND-IMPL::DEF QMYND-IMPL::ACROSS QMYND-IMPL::COLUMN-DEFINITIONS ...) ; --> LET LET LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (< (QMYND-IMPL::MY-LEN STREAM) 9) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; processing (DEFUN PARSE-RESULTSET-ROW-AS-TEXT-LIST ...) ; file: /usr/share/common-lisp/source/qmynd/src/mysql-protocol/response-result-set.lisp ; in: DEFUN PARSE-RESULTSET-ROW-AS-TEXT-LIST ; (= QMYND-IMPL::TAG QMYND-IMPL::+MYSQL-RESPONSE-END-OF-FILE+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (= QMYND-IMPL::TAG QMYND-IMPL::+MYSQL-RESPONSE-ERROR+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (LOOP QMYND-IMPL::FOR QMYND-IMPL::I FIXNUM QMYND-IMPL::FROM 0 QMYND-IMPL::BELOW QMYND-IMPL::COLUMN-COUNT ; QMYND-IMPL::FOR QMYND-IMPL::DEF QMYND-IMPL::ACROSS QMYND-IMPL::COLUMN-DEFINITIONS ...) ; --> LET LET LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (< (QMYND-IMPL::MY-LEN STREAM) 9) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; processing (DECLAIM (INLINE PARSE-RESULTSET-ROW-AS-LIST ...)) ; processing (DEFUN MAP-RESULTSET-ROWS ...) ; processing (DEFUN PARSE-RESULTSET-ROWS ...) ; processing (DEFUN DECODE-OCTETS-TO-STRING ...) ; processing (DEFUN PARSE-TEXT-PROTOCOL-RESULT-COLUMN-AS-TEXT ...) ; processing (DEFUN PARSE-TEXT-PROTOCOL-RESULT-COLUMN ...) ; processing (DEFUN PARSE-BINARY-RESULTSET-ROWS ...) ; file: /usr/share/common-lisp/source/qmynd/src/mysql-protocol/response-result-set.lisp ; in: DEFUN PARSE-BINARY-RESULTSET-ROWS ; (DEFUN QMYND-IMPL:PARSE-BINARY-RESULTSET-ROWS ; (QMYND-IMPL::COLUMN-COUNT QMYND-IMPL::COLUMN-DEFINITIONS) ; (FLET ((QMYND-IMPL::PARSE-BINARY-RESULTSET-ROW () ; (LET* # ; #))) ; (COERCE ; (LOOP QMYND-IMPL::FOR QMYND-IMPL::ROW = (QMYND-IMPL::PARSE-BINARY-RESULTSET-ROW) QMYND-IMPL::THEN (QMYND-IMPL::PARSE-BINARY-RESULTSET-ROW) ; QMYND-IMPL::UNTIL (TYPEP QMYND-IMPL::ROW ; 'QMYND-IMPL::RESPONSE-END-OF-FILE-PACKET) ; QMYND-IMPL::COLLECT QMYND-IMPL::ROW) ; 'VECTOR))) ; ==> ; (SB-IMPL::%DEFUN 'QMYND-IMPL:PARSE-BINARY-RESULTSET-ROWS ; (SB-INT:NAMED-LAMBDA QMYND-IMPL:PARSE-BINARY-RESULTSET-ROWS ; (QMYND-IMPL::COLUMN-COUNT QMYND-IMPL::COLUMN-DEFINITIONS) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK QMYND-IMPL:PARSE-BINARY-RESULTSET-ROWS ; (FLET (#) ; (COERCE # 'VECTOR))))) ; ; caught STYLE-WARNING: ; Call to QMYND-IMPL::READ-FIXED-LENGTH-INTEGER could not be inlined because its ; source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation ; must be in effect to save function definitions for inlining. ; processing (DEFUN PARSE-BINARY-PROTOCOL-RESULT-COLUMN ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/mysql-protocol/response-result-set-tmpEN1U5236.fasl ; compilation finished in 0:00:00.101 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-quit.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFUN SEND-COMMAND-QUIT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-quit-tmpWKFFHE0Z.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-initialize-database.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFUN SEND-COMMAND-INITIALIZE-DATABASE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-initialize-database-tmpHCGNQVX4.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-query.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFUN SEND-COMMAND-QUERY ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-query-tmpNZ1LR6KM.fasl ; compilation finished in 0:00:00.007 ; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-field-list.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFUN SEND-COMMAND-FIELD-LIST ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-field-list-tmpPQVFZD5C.fasl ; compilation finished in 0:00:00.003 ; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-refresh.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFUN SEND-COMMAND-REFRESH ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-refresh-tmpE8JTPSGT.fasl ; compilation finished in 0:00:00.002 ; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-shutdown.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFUN SEND-COMMAND-SHUTDOWN ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-shutdown-tmpXLGMUBFO.fasl ; compilation finished in 0:00:00.002 ; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-statistics.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFUN SEND-COMMAND-STATISTICS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-statistics-tmp85XVAH0V.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-process-information.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFUN SEND-COMMAND-PROCESS-INFORMATION ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-process-information-tmpE4QSJJPV.fasl ; compilation finished in 0:00:00.003 ; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-process-kill.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFUN SEND-COMMAND-PROCESS-KILL ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-process-kill-tmpW9VXJCU5.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-debug.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFUN SEND-COMMAND-DEBUG ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-debug-tmpIF3QWIV6.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-ping.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFUN SEND-COMMAND-PING ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-ping-tmp9BHJXQOA.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-change-user.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFUN SEND-COMMAND-CHANGE-USER ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/mysql-protocol/text-protocol/command-change-user-tmp8MZGKR5X.fasl ; compilation finished in 0:00:00.005 ; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/prepared-statements/binary-protocol-encoding.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFUN ENCODE-BINARY-PARAMETER ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/mysql-protocol/prepared-statements/binary-protocol-encoding-tmp54PLG5WT.fasl ; compilation finished in 0:00:00.013 ; compiling file "/usr/share/common-lisp/source/qmynd/src/mysql-protocol/prepared-statements/prepared-statement.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFCLASS MYSQL-PREPARED-STATEMENT ...) ; processing (DEFINE-PACKET COMMAND-STATEMENT-PREPARE-OK ...) ; processing (DEFUN SEND-COMMAND-STATEMENT-PREPARE ...) ; processing (DEFUN SEND-COMMAND-STATEMENT-SEND-LONG-DATA ...) ; processing (DEFMETHOD SEND-COMMAND-STATEMENT-EXECUTE ...) ; processing (DEFMETHOD PARSE-COMMAND-STATEMENT-EXECUTE-RESPONSE ...) ; processing (DEFMETHOD SEND-COMMAND-STATEMENT-CLOSE ...) ; processing (DEFMETHOD SEND-COMMAND-STATEMENT-RESET ...) ; processing (ASDF-FINALIZERS:FINAL-FORMS) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/mysql-protocol/prepared-statements/prepared-statement-tmpGJ7DBMK8.fasl ; compilation finished in 0:00:00.063 ; compiling file "/usr/share/common-lisp/source/qmynd/src/api.lisp" (written 22 JAN 2018 03:04:17 PM): ; processing (IN-PACKAGE :QMYND-IMPL) ; processing (DEFUN MYSQL-CONNECT ...) ; processing (DEFUN MYSQL-LOCAL-CONNECT ...) ; processing (DEFMETHOD MYSQL-DISCONNECT ...) ; processing (DEFUN MYSQL-QUERY ...) ; processing (DEFUN MYSQL-STATEMENT-PREPARE ...) ; processing (DEFMETHOD MYSQL-STATEMENT-EXECUTE ...) ; processing (DEFMETHOD MYSQL-STATEMENT-CLOSE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/qmynd/src/api-tmp7O4V59Z5.fasl ; compilation finished in 0:00:00.017 ; compiling file "/usr/share/common-lisp/source/cl-unicode/packages.lisp" (written 01 NOV 2020 09:00:59 PM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE :CL-UNICODE ...) ; processing (DEFPACKAGE :CL-UNICODE-NAMES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-unicode/packages-tmpY90L99EZ.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/cl-unicode/specials.lisp" (written 01 NOV 2020 09:00:59 PM): ; processing (IN-PACKAGE :CL-UNICODE) ; processing (DEFCONSTANT +CODE-POINT-LIMIT+ ...) ; processing (DEFVAR *CANONICAL-NAMES* ...) ; processing (DEFVAR *NAMES-TO-CODE-POINTS* ...) ; processing (DEFVAR *UNICODE1-NAMES-TO-CODE-POINTS* ...) ; processing (DEFVAR *CODE-POINTS-TO-NAMES* ...) ; processing (DEFVAR *CODE-POINTS-TO-UNICODE1-NAMES* ...) ; processing (DEFVAR *CASE-MAPPINGS* ...) ; processing (DEFVAR *SPECIAL-CASE-MAPPINGS* ...) ; processing (DEFVAR *COMPOSITION-MAPPINGS* ...) ; processing (DEFVAR *GENERAL-CATEGORIES* ...) ; processing (DEFVAR *COMPATIBILITY-FORMATTING-TAGS* ...) ; processing (DEFVAR *SCRIPTS* ...) ; processing (DEFVAR *CODE-BLOCKS* ...) ; processing (DEFVAR *BINARY-PROPERTIES* ...) ; processing (DEFVAR *BIDI-CLASSES* ...) ; processing (DEFVAR *PROPERTY-MAP* ...) ; processing (DEFVAR *PROPERTY-TESTS* ...) ; processing (DEFVAR *PROPERTY-ALIASES* ...) ; processing (DEFVAR *JAMO-SHORT-NAMES* ...) ; processing (DEFVAR *HANGUL-SYLLABLES-TO-CODE-POINTS* ...) ; processing (DEFVAR *TRY-UNICODE1-NAMES-P* ...) ; processing (DEFVAR *TRY-ABBREVIATIONS-P* ...) ; processing (DEFVAR *SCRIPTS-TO-TRY* ...) ; processing (DEFVAR *TRY-HEX-NOTATION-P* ...) ; processing (DEFVAR *TRY-LISP-NAMES-P* ...) ; processing (DEFVAR *PREVIOUS-READTABLES* ...) ; processing (PUSHNEW :CL-UNICODE ...) ; processing (DEFVAR *HYPERDOC-BASE-URI* ...) ; processing (LET (#) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-unicode/specials-tmpXZJKL4Z8.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/cl-unicode/util.lisp" (written 01 NOV 2020 09:00:59 PM): ; processing (IN-PACKAGE :CL-UNICODE) ; processing (DEFUN PARSE-HEX ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFUN TREE-LOOKUP ...) ; processing (DEFGENERIC MAPPING ...) ; processing (DEFUN EVALUATE-CASING-CONDITION ...) ; processing (DEFGENERIC SPECIAL-MAPPING ...) ; processing (DEFGENERIC CASE-FOLDING ...) ; file: /usr/share/common-lisp/source/cl-unicode/util.lisp ; in: DEFGENERIC CASE-FOLDING ; (CL-UNICODE::CASE-FOLDING CL-UNICODE::CODE-POINT) ; ; caught STYLE-WARNING: ; The function CASE-FOLDING is called with one argument, but wants exactly two. ; processing (DEFUN CJK-UNIFIED-IDEOGRAPH-P ...) ; processing (DEFUN MAYBE-COMPUTE-CJK-NAME ...) ; processing (DEFUN MAYBE-FIND-CJK-CODE-POINT ...) ; processing (DEFMACRO DEFINE-HANGUL-CONSTANT ...) ; processing (DEFINE-HANGUL-CONSTANT "SBase" ...) ; processing (DEFINE-HANGUL-CONSTANT "LBase" ...) ; processing (DEFINE-HANGUL-CONSTANT "VBase" ...) ; processing (DEFINE-HANGUL-CONSTANT "TBase" ...) ; processing (DEFINE-HANGUL-CONSTANT "VCount" ...) ; processing (DEFINE-HANGUL-CONSTANT "TCount" ...) ; processing (DEFINE-HANGUL-CONSTANT "NCount" ...) ; processing (DECLAIM (INLINE COMPUTE-HANGUL-NAME)) ; processing (DEFUN COMPUTE-HANGUL-NAME ...) ; processing (DECLAIM (INLINE COMPUTE-HANGUL-DECOMPOSITION)) ; processing (DEFUN COMPUTE-HANGUL-DECOMPOSITION ...) ; processing (DEFCONSTANT +FIRST-HANGUL-SYLLABLE+ ...) ; processing (DEFCONSTANT +LAST-HANGUL-SYLLABLE+ ...) ; processing (DEFUN ADD-HANGUL-NAMES ...) ; processing (DEFUN HANGUL-SYLLABLE-P ...) ; processing (DEFUN MAYBE-COMPUTE-HANGUL-SYLLABLE-NAME ...) ; processing (DEFUN MAYBE-FIND-HANGUL-SYLLABLE-CODE-POINT ...) ; processing (DEFMACRO ENSURE-CODE-POINT ...) ; processing (DEFUN CANONICAL-SORT ...) ; processing (DEFUN CANONICAL-COMPOSITION ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-unicode/util-tmpHXNPA9C2.fasl ; compilation finished in 0:00:00.072 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/cl-unicode/conditions.lisp" (written 01 NOV 2020 09:00:59 PM): ; processing (IN-PACKAGE :CL-UNICODE) ; processing (DEFINE-CONDITION UNICODE-ERROR ...) ; processing (DEFINE-CONDITION SIMPLE-UNICODE-ERROR ...) ; processing (DEFUN SIGNAL-UNICODE-ERROR ...) ; processing (DEFINE-CONDITION CHARACTER-NOT-FOUND ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-unicode/conditions-tmp6W89DJAF.fasl ; compilation finished in 0:00:00.003 ; compiling file "/usr/share/common-lisp/source/cl-unicode/lists.lisp" (written 17 DEC 2020 09:36:18 AM): ; processing (IN-PACKAGE :CL-UNICODE) ; processing (SETQ *GENERAL-CATEGORIES* ...) ; processing (SETQ *COMPATIBILITY-FORMATTING-TAGS* ...) ; processing (SETQ *SCRIPTS* ...) ; processing (SETQ *CODE-BLOCKS* ...) ; processing (SETQ *BINARY-PROPERTIES* ...) ; processing (SETQ *BIDI-CLASSES* ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-unicode/lists-tmp7RAVZUSP.fasl ; compilation finished in 0:00:00.002 ; compiling file "/usr/share/common-lisp/source/cl-unicode/hash-tables.lisp" (written 17 DEC 2020 09:36:18 AM): ; processing (IN-PACKAGE :CL-UNICODE) ; processing (CLRHASH *CANONICAL-NAMES*) ; processing (LOOP FOR ...) ; processing (CLRHASH *NAMES-TO-CODE-POINTS*) ; processing (LOOP FOR ...) ; processing (CLRHASH *CODE-POINTS-TO-NAMES*) ; processing (LOOP FOR ...) ; processing (CLRHASH *UNICODE1-NAMES-TO-CODE-POINTS*) ; processing (LOOP FOR ...) ; processing (CLRHASH *CODE-POINTS-TO-UNICODE1-NAMES*) ; processing (LOOP FOR ...) ; processing (CLRHASH *CASE-MAPPINGS*) ; processing (LOOP FOR ...) ; processing (CLRHASH *SPECIAL-CASE-MAPPINGS*) ; processing (LOOP FOR ...) ; processing (CLRHASH *JAMO-SHORT-NAMES*) ; processing (LOOP FOR ...) ; processing (CLRHASH *PROPERTY-ALIASES*) ; processing (LOOP FOR ...) ; processing (CLRHASH *COMPOSITION-MAPPINGS*) ; processing (LOOP FOR ...) ; processing (ADD-HANGUL-NAMES) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-unicode/hash-tables-tmpKR50OG05.fasl ; compilation finished in 0:00:00.536 ;;; Computing Hangul syllable names ; compiling file "/usr/share/common-lisp/source/cl-unicode/api.lisp" (written 01 NOV 2020 09:00:59 PM): ; processing (IN-PACKAGE :CL-UNICODE) ; processing (DEFUN TRY-ABBREVIATIONS ...) ; processing (DEFUN UNICODE-NAME-READER ...) ; processing (DEFUN %ENABLE-ALTERNATIVE-CHARACTER-SYNTAX ...) ; processing (DEFUN %DISABLE-ALTERNATIVE-CHARACTER-SYNTAX ...) ; processing (DEFGENERIC UNICODE-NAME ...) ; processing (DEFGENERIC UNICODE1-NAME ...) ; processing (DEFUN CHARACTER-NAMED ...) ; processing (DEFGENERIC SCRIPT ...) ; processing (DEFGENERIC CODE-BLOCK ...) ; processing (DEFGENERIC WORD-BREAK ...) ; processing (DEFGENERIC AGE ...) ; processing (DEFGENERIC GENERAL-CATEGORY ...) ; processing (DEFGENERIC BIDI-CLASS ...) ; processing (DEFUN BIDI-MIRRORING-GLYPH ...) ; processing (DEFGENERIC NUMERIC-TYPE ...) ; processing (DEFGENERIC NUMERIC-VALUE ...) ; processing (DEFGENERIC COMBINING-CLASS ...) ; processing (DEFGENERIC HAS-BINARY-PROPERTY ...) ; processing (DEFUN UPPERCASE-MAPPING ...) ; processing (DEFUN LOWERCASE-MAPPING ...) ; processing (DEFUN TITLECASE-MAPPING ...) ; processing (DEFUN CASE-FOLD-MAPPING ...) ; processing (DEFUN GENERAL-CATEGORIES ...) ; processing (DEFUN SCRIPTS ...) ; processing (DEFUN CODE-BLOCKS ...) ; processing (DEFGENERIC CANONICAL-DECOMPOSITION ...) ; processing (DEFGENERIC COMPATIBILITY-DECOMPOSITION ...) ; processing (DEFGENERIC NORMALIZATION-FORM-D ...) ; processing (DEFGENERIC NORMALIZATION-FORM-K-D ...) ; processing (DEFGENERIC NORMALIZATION-FORM-C ...) ; processing (DEFGENERIC NORMALIZATION-FORM-K-C ...) ; processing (DEFUN BINARY-PROPERTIES ...) ; processing (DEFUN BIDI-CLASSES ...) ; processing (DEFUN RECOGNIZED-PROPERTIES ...) ; processing (DEFGENERIC PROPERTY-TEST ...) ; processing (DEFUN HAS-PROPERTY ...) ; processing (DEFUN LIST-ALL-CHARACTERS ...) ; file: /usr/share/common-lisp/source/cl-unicode/api.lisp ; in: DEFUN LIST-ALL-CHARACTERS ; (IF CL-UNICODE::WANT-CODE-POINT-P ; CL-UNICODE:+CODE-POINT-LIMIT+ ; CHAR-CODE-LIMIT) ; ; note: deleting unreachable code ; processing (DEFMACRO ENABLE-ALTERNATIVE-CHARACTER-SYNTAX ...) ; processing (DEFMACRO DISABLE-ALTERNATIVE-CHARACTER-SYNTAX ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-unicode/api-tmpTLRJZ1UR.fasl ; compilation finished in 0:00:00.099 ; compiling file "/usr/share/common-lisp/source/cl-unicode/methods.lisp" (written 17 DEC 2020 09:36:18 AM): ; processing (IN-PACKAGE :CL-UNICODE) ; processing (DEFMETHOD SCRIPT ...) ; processing (DEFMETHOD CODE-BLOCK ...) ; processing (DEFMETHOD WORD-BREAK ...) ; processing (DEFMETHOD AGE ...) ; processing (DEFMETHOD GENERAL-CATEGORY ...) ; processing (DEFMETHOD BIDI-CLASS ...) ; processing (DEFMETHOD NUMERIC-TYPE ...) ; processing (DEFMETHOD NUMERIC-VALUE ...) ; processing (DEFMETHOD COMBINING-CLASS ...) ; processing (DEFMETHOD BIDI-MIRRORING-GLYPH% ...) ; processing (DEFMETHOD BINARY-PROPS ...) ; processing (DEFMETHOD IDNA-MAPPING ...) ; processing (DEFMETHOD DECOMPOSITION-MAPPING ...) ; processing (DEFMETHOD CASE-FOLDING-MAPPING ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-unicode/methods-tmpTJFR94DB.fasl ; compilation finished in 0:00:00.403 ; compiling file "/usr/share/common-lisp/source/cl-unicode/test-functions.lisp" (written 01 NOV 2020 09:00:59 PM): ; processing (IN-PACKAGE :CL-UNICODE) ; processing (DEFUN INSTALL-ONE-TEST ...) ; processing (DEFUN INSTALL-SCRIPT-TESTS ...) ; processing (DEFUN INSTALL-CODE-BLOCK-TESTS ...) ; processing (DEFUN INSTALL-GENERAL-CATEGORY-TESTS ...) ; processing (DEFUN INSTALL-BINARY-PROPERTIES-TESTS ...) ; processing (DEFUN INSTALL-BIDI-CLASS-TESTS ...) ; processing (DEFUN INSTALL-MISCELLANEOUS-TESTS ...) ; processing (DEFUN INSTALL-TESTS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-unicode/test-functions-tmp12QLR4GC.fasl ; compilation finished in 0:00:00.009 ; compiling file "/usr/share/common-lisp/source/cl-unicode/derived.lisp" (written 01 NOV 2020 09:00:59 PM): ; processing (IN-PACKAGE :CL-UNICODE) ; processing (DEFCONSTANT +XID-DIFFERENCE+ ...) ; processing (DEFVAR *DERIVED-MAP* ...) ; processing (DEFUN BUILD-DERIVED-TEST-FUNCTION ...) ; processing (DEFUN BUILD-DERIVED-TEST-FUNCTIONS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-unicode/derived-tmpHNON3GN3.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/cl-unicode/alias.lisp" (written 01 NOV 2020 09:00:59 PM): ; processing (IN-PACKAGE :CL-UNICODE) ; processing (DEFVAR *ALIAS-MAP* ...) ; processing (DEFVAR *BIDI-ALIAS-MAP* ...) ; processing (DEFUN CREATE-ALIAS ...) ; processing (DEFUN CREATE-ALIASES ...) ; processing (DEFUN BUILD-ALL-PROPERTY-TESTS ...) ; processing (BUILD-ALL-PROPERTY-TESTS) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-unicode/alias-tmpUL4IFWT3.fasl ; compilation finished in 0:00:00.015 ; compiling file "/usr/share/common-lisp/source/named-readtables/src/package.lisp" (written 21 DEC 2020 04:34:51 PM): ; processing (IN-PACKAGE :COMMON-LISP-USER) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (PUSHNEW :NAMED-READTABLES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/named-readtables/src/package-tmpOKX06099.fasl ; compilation finished in 0:00:00.002 ; compiling file "/usr/share/common-lisp/source/named-readtables/src/utils.lisp" (written 21 DEC 2020 04:34:51 PM): ; processing (IN-PACKAGE :EDITOR-HINTS.NAMED-READTABLES) ; processing (DEFMACRO WITHOUT-PACKAGE-LOCK ...) ; processing (DEFMACRO DESTRUCTURE-CASE ...) ; processing (DEFINE-CONDITION SIMPLE-STYLE-WARNING ...) ; processing (DEFUN SIMPLE-STYLE-WARN ...) ; processing (DEFINE-CONDITION SIMPLE-PROGRAM-ERROR ...) ; processing (DEFUN SIMPLE-PROGRAM-ERROR ...) ; processing (DEFUN REQUIRED-ARGUMENT ...) ; processing (DEFUN ENSURE-LIST ...) ; processing (DECLAIM (INLINE ENSURE-FUNCTION)) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN ENSURE-FUNCTION ...) ; processing (DEFUN PARSE-BODY ...) ; processing (DEFUN PARSE-ORDINARY-LAMBDA-LIST ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/named-readtables/src/utils-tmp3PQWDVVX.fasl ; compilation finished in 0:00:00.024 ; compiling file "/usr/share/common-lisp/source/named-readtables/src/define-api.lisp" (written 21 DEC 2020 04:34:51 PM): ; processing (IN-PACKAGE :NAMED-READTABLES) ; processing (DEFMACRO DEFINE-API ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/named-readtables/src/define-api-tmpFJAR440P.fasl ; compilation finished in 0:00:00.005 ; compiling file "/usr/share/common-lisp/source/named-readtables/src/cruft.lisp" (written 21 DEC 2020 04:34:51 PM): ; processing (IN-PACKAGE :EDITOR-HINTS.NAMED-READTABLES) ; processing (DEFMACRO DEFINE-CRUFT ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE) ...) ; processing (DEFVAR *READTABLE-NAMES* ...) ; processing (DEFINE-CRUFT %ASSOCIATE-READTABLE-WITH-NAME ...) ; processing (DEFINE-CRUFT %UNASSOCIATE-READTABLE-FROM-NAME ...) ; processing (DEFINE-CRUFT %READTABLE-NAME ...) ; processing (DEFINE-CRUFT %LIST-ALL-READTABLE-NAMES ...) ; processing (DEFVAR *NAMED-READTABLES* ...) ; processing (DEFINE-CRUFT %ASSOCIATE-NAME-WITH-READTABLE ...) ; processing (DEFINE-CRUFT %UNASSOCIATE-NAME-FROM-READTABLE ...) ; processing (DEFINE-CRUFT %FIND-READTABLE ...) ; processing (DEFINE-CRUFT FUNCTION= ...) ; processing (DEFINE-CRUFT DISPATCH-MACRO-CHAR-P ...) ; processing (DEFMACRO WITH-READTABLE-ITERATOR ...) ; processing (DEFUN %MAKE-READTABLE-ITERATOR ...) ; file: /usr/share/common-lisp/source/named-readtables/src/cruft.lisp ; in: DEFUN %MAKE-READTABLE-ITERATOR ; (SB-IMPL:CHARACTER-MACRO-ARRAY READTABLE) ; ; caught STYLE-WARNING: ; The function SB-IMPL:CHARACTER-MACRO-ARRAY has been deprecated as of #1=SBCL version 2.0.6. ; ; Use SB-IMPL::BASE-CHAR-MACRO-ARRAY instead. ; ; In future #1# versions SB-IMPL:CHARACTER-MACRO-ARRAY will signal a full warning ; at compile-time. ; See also: ; The SBCL Manual, Node "Deprecation Conditions" ; (SB-IMPL:CHARACTER-MACRO-HASH-TABLE READTABLE) ; ; caught STYLE-WARNING: ; The function SB-IMPL:CHARACTER-MACRO-HASH-TABLE has been deprecated as of #1=SBCL version 2.0.6. ; ; Use SB-IMPL::EXTENDED-CHAR-TABLE instead. ; ; In future #1# versions SB-IMPL:CHARACTER-MACRO-HASH-TABLE will signal a full ; warning at compile-time. ; See also: ; The SBCL Manual, Node "Deprecation Conditions" ; processing (DEFMACRO DO-READTABLE ...) ; processing (DEFINE-CRUFT %STANDARD-READTABLE ...) ; processing (DEFINE-CRUFT %CLEAR-READTABLE ...) ; processing (DEFINE-CRUFT %GET-DISPATCH-MACRO-CHARACTER ...) ; processing (DEFINE-CRUFT %GET-MACRO-CHARACTER ...) ; processing (WITHOUT-PACKAGE-LOCK (:COMMON-LISP) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/named-readtables/src/cruft-tmpM2X5AGVD.fasl ; compilation finished in 0:00:00.038 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/named-readtables/src/named-readtables.lisp" (written 21 DEC 2020 04:34:51 PM): ; processing (IN-PACKAGE :EDITOR-HINTS.NAMED-READTABLES) ; processing (DEFMACRO DEFREADTABLE ...) ; processing (DEFMACRO IN-READTABLE ...) ; processing (DEFUN %FROB-SWANK-READTABLE-ALIST ...) ; processing (DEFTYPE READTABLE-DESIGNATOR ...) ; processing (DEFTYPE NAMED-READTABLE-DESIGNATOR ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFINE-COMPILER-MACRO REGISTER-READTABLE ...) ; processing (DEFINE-COMPILER-MACRO ENSURE-READTABLE ...) ; processing (DECLAIM (SPECIAL *STANDARD-READTABLE* ...)) ; processing (DEFINE-API MAKE-READTABLE ...) ; file: /usr/share/common-lisp/source/named-readtables/src/named-readtables.lisp ; in: DEFINE-API MAKE-READTABLE ; (EDITOR-HINTS.NAMED-READTABLES::DEFINE-API EDITOR-HINTS.NAMED-READTABLES:MAKE-READTABLE ; (&OPTIONAL ; (EDITOR-HINTS.NAMED-READTABLES::NAME NIL ; EDITOR-HINTS.NAMED-READTABLES::NAME-SUPPLIED-P) ; &KEY MERGE) ; (&OPTIONAL EDITOR-HINTS.NAMED-READTABLES:NAMED-READTABLE-DESIGNATOR &KEY ; (:MERGE LIST) EDITOR-HINTS.NAMED-READTABLES::=> READTABLE) ; #<(SIMPLE-ARRAY CHARACTER ; (620)) Creates and returns a new readtable under the specified ; NAME. ; ; MERGE takes a list of NAMED-READTABLE-DESIGNATORs and specifies the ; readtables the new readtable is created from. (See the :MERGE c... {100A1C287F}> ; (COND ; ((NOT EDITOR-HINTS.NAMED-READTABLES::NAME-SUPPLIED-P) ; (COPY-READTABLE EDITOR-HINTS.NAMED-READTABLES::*EMPTY-READTABLE*)) ; ((EDITOR-HINTS.NAMED-READTABLES::RESERVED-READTABLE-NAME-P ; EDITOR-HINTS.NAMED-READTABLES::NAME) ; (ERROR "~A is the designator for a predefined readtable. ~ ; Not acceptable as a user-specified readtable name." ; EDITOR-HINTS.NAMED-READTABLES::NAME)) ; ((LET (#) ; (AND EDITOR-HINTS.NAMED-READTABLES::RT #))) ; (T ; (LET (#) ; (EDITOR-HINTS.NAMED-READTABLES:REGISTER-READTABLE ; EDITOR-HINTS.NAMED-READTABLES::NAME ; EDITOR-HINTS.NAMED-READTABLES::RESULT))))) ; --> LOCALLY DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA EDITOR-HINTS.NAMED-READTABLES:MAKE-READTABLE ; (&OPTIONAL ; (EDITOR-HINTS.NAMED-READTABLES::NAME NIL ; EDITOR-HINTS.NAMED-READTABLES::NAME-SUPPLIED-P) ; &KEY MERGE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (620)) Creates and returns a new readtable under the specified ; NAME. ; ; MERGE takes a list of NAMED-READTABLE-DESIGNATORs and specifies the ; readtables the new readtable is created from. (See the :MERGE c... {100A1C287F}> ; (DECLARE (UNMUFFLE-CONDITIONS STYLE-WARNING)) ; (BLOCK EDITOR-HINTS.NAMED-READTABLES:MAKE-READTABLE ; (COND ; ((NOT EDITOR-HINTS.NAMED-READTABLES::NAME-SUPPLIED-P) ; (COPY-READTABLE EDITOR-HINTS.NAMED-READTABLES::*EMPTY-READTABLE*)) ; ((EDITOR-HINTS.NAMED-READTABLES::RESERVED-READTABLE-NAME-P ; EDITOR-HINTS.NAMED-READTABLES::NAME) ; (ERROR "~A is the designator for a predefined readtable. ~ ; Not acceptable as a user-specified readtable name." ; EDITOR-HINTS.NAMED-READTABLES::NAME)) ; ((LET # ; #)) ; (T ; (LET # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL ; (NAME NIL NAME-SUPPLIED-P) ; &KEY MERGE) ; processing (DEFINE-API RENAME-READTABLE ...) ; processing (DEFINE-API MERGE-READTABLES-INTO ...) ; processing (DEFUN ENSURE-DISPATCH-MACRO-CHARACTER ...) ; processing (DEFINE-API COPY-NAMED-READTABLE ...) ; processing (DEFINE-API LIST-ALL-NAMED-READTABLES ...) ; processing (DEFINE-CONDITION READTABLE-ERROR ...) ; processing (DEFINE-CONDITION READTABLE-DOES-NOT-EXIST ...) ; processing (DEFINE-CONDITION READTABLE-DOES-ALREADY-EXIST ...) ; processing (DEFINE-CONDITION READER-MACRO-CONFLICT ...) ; processing (DEFUN CHECK-READER-MACRO-CONFLICT ...) ; processing (DEFVAR *STANDARD-READTABLE* ...) ; processing (DEFVAR *EMPTY-READTABLE* ...) ; processing (DEFVAR *CASE-PRESERVING-STANDARD-READTABLE* ...) ; processing (DEFPARAMETER *RESERVED-READTABLE-NAMES* ...) ; processing (DEFUN RESERVED-READTABLE-NAME-P ...) ; processing (DEFUN FIND-RESERVED-READTABLE ...) ; processing (DEFINE-API FIND-READTABLE ...) ; processing (DEFSETF FIND-READTABLE ...) ; processing (DEFINE-API ENSURE-READTABLE ...) ; processing (DEFINE-API REGISTER-READTABLE ...) ; processing (DEFINE-API UNREGISTER-READTABLE ...) ; processing (DEFINE-API READTABLE-NAME ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/named-readtables/src/named-readtables-tmpV9XLLI3F.fasl ; compilation finished in 0:00:00.075 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/cl-interpol/packages.lisp" (written 06 NOV 2020 02:19:10 PM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE :CL-INTERPOL ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-interpol/packages-tmpCNL9LF4O.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/cl-interpol/specials.lisp" (written 06 NOV 2020 02:19:10 PM): ; processing (IN-PACKAGE :CL-INTERPOL) ; processing (DEFVAR *LIST-DELIMITER* ...) ; processing (DEFVAR *INNER-DELIMITERS* ...) ; processing (DEFVAR *OUTER-DELIMITERS* ...) ; processing (DEFVAR *REGEX-DELIMITERS* ...) ; processing (DEFVAR *UNICODE-ALIASES* ...) ; processing (DEFVAR *OPTIONAL-DELIMITERS-P* ...) ; processing (DEFVAR *INTERPOLATE-FORMAT-DIRECTIVES* ...) ; processing (DEFMACRO DEFVAR-UNBOUND ...) ; processing (DEFVAR-UNBOUND *SAW-BACKSLASH* ...) ; processing (DEFVAR-UNBOUND *PAIR-LEVEL* ...) ; processing (DEFVAR-UNBOUND *STREAM* ...) ; processing (DEFVAR-UNBOUND *START-CHAR* ...) ; processing (DEFVAR-UNBOUND *TERM-CHAR* ...) ; processing (DEFVAR *PREVIOUS-READTABLES* ...) ; processing (DEFVAR-UNBOUND *READTABLE-COPY* ...) ; processing (DEFVAR *HYPERDOC-BASE-URI* ...) ; processing (LET (#) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-interpol/specials-tmpA2MZF3D.fasl ; compilation finished in 0:00:00.007 ; compiling file "/usr/share/common-lisp/source/cl-interpol/util.lisp" (written 06 NOV 2020 02:19:10 PM): ; processing (IN-PACKAGE :CL-INTERPOL) ; processing (DEFINE-CONDITION SIMPLE-READER-ERROR ...) ; processing (DEFMACRO SIGNAL-READER-ERROR ...) ; processing (DEFUN STRING-LIST-TO-STRING ...) ; processing (DEFUN GET-END-DELIMITER ...) ; processing (DECLAIM (INLINE MAKE-COLLECTOR)) ; processing (DEFUN MAKE-COLLECTOR ...) ; processing (DECLAIM (INLINE MAKE-CHAR-FROM-CODE)) ; processing (DEFUN MAKE-CHAR-FROM-CODE ...) ; processing (DECLAIM (INLINE LOWER-CASE-P*)) ; processing (DEFUN LOWER-CASE-P* ...) ; processing (DEFMACRO READ-CHAR* ...) ; processing (DEFMACRO PEEK-CHAR* ...) ; processing (DECLAIM (INLINE COPY-READTABLE*)) ; processing (DEFUN COPY-READTABLE* ...) ; processing (DECLAIM (INLINE NSUBVEC)) ; processing (DEFUN NSUBVEC ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-interpol/util-tmp820USYC0.fasl ; compilation finished in 0:00:00.011 ; compiling file "/usr/share/common-lisp/source/cl-interpol/alias.lisp" (written 06 NOV 2020 02:19:10 PM): ; processing (IN-PACKAGE :CL-INTERPOL) ; processing (LOOP FOR ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-interpol/alias-tmpAP7D2UW2.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/cl-interpol/read.lisp" (written 06 NOV 2020 02:19:10 PM): ; processing (IN-PACKAGE :CL-INTERPOL) ; processing (DEFUN READ-WHILE ...) ; processing (DECLAIM (INLINE GET-NUMBER)) ; processing (DEFUN GET-NUMBER ...) ; processing (DEFUN RESOLVE-UNICODE-NAME ...) ; processing (DEFUN GET-CHAR-FROM-UNICODE-NAME ...) ; processing (DEFUN UNESCAPE-CHAR ...) ; processing (DECLAIM (INLINE NORMAL-NAME-CHAR-P) ...) ; processing (DEFUN NORMAL-NAME-CHAR-P ...) ; processing (DEFUN NEVER-NAME-CHAR-P ...) ; processing (DEFVAR QUELL-WARNINGS-FORM ...) ; processing (DEFUN READ-LONGEST-NAME ...) ; processing (DEFUN READ-OPTIONAL-DELIMITED ...) ; processing (DECLAIM (INLINE READ-FORM)) ; processing (DEFUN READ-FORM ...) ; processing (DEFUN READ-FORMAT-DIRECTIVE ...) ; processing (DEFUN INTERPOL-READER ...) ; processing (DEFUN INNER-READER ...) ; processing (DEFUN %ENABLE-INTERPOL-SYNTAX ...) ; processing (DEFUN %DISABLE-INTERPOL-SYNTAX ...) ; processing (DEFMACRO ENABLE-INTERPOL-SYNTAX ...) ; processing (DEFMACRO DISABLE-INTERPOL-SYNTAX ...) ; processing (DEFREADTABLE :INTERPOL-SYNTAX ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-interpol/read-tmpU93Z06A.fasl ; compilation finished in 0:00:00.079 ; compiling file "/usr/share/common-lisp/source/cl-csv/packages.lisp" (written 29 SEP 2020 04:13:50 PM): ; processing (DEFPACKAGE :CL-CSV ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-csv/packages-tmpL3K5PO5H.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/cl-csv/vars.lisp" (written 29 SEP 2020 04:13:50 PM): ; processing (IN-PACKAGE :CL-CSV) ; processing (CL-INTERPOL:ENABLE-INTERPOL-SYNTAX) ; processing (DEFVAR *QUOTE* ...) ; processing (DEFVAR *SEPARATOR* ...) ; processing (DEFVAR *ESCAPE-MODE* ...) ; processing (DEFVAR *READ-NEWLINE* ...) ; processing (DEFVAR *WRITE-NEWLINE* ...) ; processing (DEFVAR *ALWAYS-QUOTE* ...) ; processing (DEFVAR *QUOTE-ESCAPE* ...) ; processing (DEFVAR *UNQUOTED-EMPTY-STRING-IS-NIL* ...) ; processing (DEFVAR *QUOTED-EMPTY-STRING-IS-NIL* ...) ; processing (DEFVAR *TRIM-OUTER-WHITESPACE* ...) ; processing (DEFVAR *ENABLE-SIGNALS* ...) ; processing (DEFVAR *EOF-CHAR* ...) ; processing (DEFVAR *BUFFER-SIZE* ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-csv/vars-tmpPP843P2R.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/cl-csv/read-until.lisp" (written 29 SEP 2020 04:13:50 PM): ; processing (IN-PACKAGE :CL-CSV) ; processing (DEFUN READ-INTO-BUFFER-UNTIL ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-csv/read-until-tmpBK2QBAFY.fasl ; compilation finished in 0:00:00.030 ; compiling file "/usr/share/common-lisp/source/cl-csv/csv.lisp" (written 29 SEP 2020 04:13:50 PM): ; processing (IN-PACKAGE :CL-CSV) ; processing (CL-INTERPOL:ENABLE-INTERPOL-SYNTAX) ; processing (DEFUN WHITE-SPACE? ...) ; processing (DEFINE-CONDITION CSV-PARSE-ERROR ...) ; processing (DEFUN CSV-PARSE-ERROR ...) ; processing (DEFINE-CONDITION CSV-DATA-READ ...) ; processing (DEFUN CSV-DATA-READ ...) ; processing (DEFINE-CONDITION CSV-ROW-READ ...) ; processing (DEFUN CSV-ROW-READ ...) ; processing (DEFGENERIC FORMAT-CSV-VALUE ...) ; processing (DEFUN %CHAR-IN ...) ; processing (DEFUN CHARS-IN ...) ; processing (DEFGENERIC WRITE-CSV-VALUE ...) ; processing (DEFMACRO WITH-CSV-OUTPUT-STREAM ...) ; processing (DEFUN %OUT-STREAM ...) ; processing (DEFUN WRITE-CSV-ROW ...) ; processing (DEFUN WRITE-CSV ...) ; processing (DEFUN %ESCAPE-SEQ? ...) ; processing (DEFVAR *DEFAULT-EXTERNAL-FORMAT* ...) ; processing (DEFUN %IN-STREAM ...) ; processing (DEFMACRO WITH-CSV-INPUT-STREAM ...) ; processing (DEFUN RESTARTABLE-READ-ROW ...) ; processing (DEFMACRO-CLAUSE (FOR VAR ...) ...) ; processing (DEFMACRO-CLAUSE (SAMPLING EXPR ...) ...) ; processing (DEFUN READ-CSV-SAMPLE ...) ; processing (DEFMACRO DO-CSV ...) ; processing (DEFUN READ-CSV-ROW ...) ; processing (DEFUN READ-CSV ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-csv/csv-tmpAHPKJ6EW.fasl ; compilation finished in 0:00:00.094 ; compiling file "/usr/share/common-lisp/source/cl-csv/parser.lisp" (written 29 SEP 2020 04:13:50 PM): ; processing (IN-PACKAGE :CL-CSV) ; processing (DEFCLASS READ-DISPATCH-TABLE ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFCLASS READ-DISPATCH-TABLE-ENTRY ...) ; processing (DEFUN MAKE-TABLE-ENTRY ...) ; processing (DEFUN RESET-TABLE-ENTRY ...) ; processing (DEFMETHOD CHECK-TABLE-ENTRY ...) ; processing (DEFCLASS CSV-READER ...) ; processing (DEFUN MAP-EMPTY-STRING-TO-NIL ...) ; processing (DEFUN LAST-ITEM ...) ; processing (DEFUN (SETF LAST-ITEM) ...) ; processing (DEFUN %NEXT-CHAR ...) ; processing (DEFMETHOD READING-QUOTED-OR-ESCAPED ...) ; processing (DEFMETHOD READING-QUOTED ...) ; processing (DEFMETHOD READING-FOLLOWING-ESCAPED ...) ; processing (DEFMETHOD READING-ESCAPED ...) ; processing (DEFUN %TRIM-DATUM ...) ; processing (DEFUN COLLECT-DATUM ...) ; processing (DEFUN COLLECT-ROW-DATA ...) ; processing (DEFUN DROP-DELIMITER-CHARS ...) ; processing (DEFMETHOD READING-SEPARATOR ...) ; processing (DEFMETHOD READING-NEWLINE ...) ; processing (DEFUN READING-CHARACTER ...) ; processing (DEFUN %ESCAPE-IS-DOUBLE-QUOTE ...) ; processing (DEFUN MAKE-DEFAULT-CSV-READER ...) ; processing (DEFUN CHECK-AND-DISTPATCH ...) ; processing (DEFUN READ-WITH-DISPATCH-TABLE ...) ; processing (DEFUN READ-CSV-WITH-READER ...) ; processing (DEFUN READ-CSV-ROW-WITH-READER ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-csv/parser-tmpJJIXGGXK.fasl ; compilation finished in 0:00:00.061 ; compiling file "/usr/share/common-lisp/source/cl-fad/packages.lisp" (written 10 JAN 2022 12:38:55 AM): ; processing (IN-PACKAGE #:CL-USER) ; processing (DEFPACKAGE :CL-FAD ...) ; processing (DEFPACKAGE :PATH ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-fad/packages-tmpMYEEYI7L.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/cl-fad/fad.lisp" (written 10 JAN 2022 12:38:55 AM): ; processing (IN-PACKAGE :CL-FAD) ; processing (DEFUN COMPONENT-PRESENT-P ...) ; processing (DEFUN DIRECTORY-PATHNAME-P ...) ; processing (DEFUN PATHNAME-AS-DIRECTORY ...) ; processing (DEFUN DIRECTORY-WILDCARD ...) ; processing (DEFUN LIST-DIRECTORY ...) ; processing (DEFUN PATHNAME-AS-FILE ...) ; processing (DEFUN FILE-EXISTS-P ...) ; processing (DEFUN DIRECTORY-EXISTS-P ...) ; processing (DEFUN WALK-DIRECTORY ...) ; processing (DEFVAR *STREAM-BUFFER-SIZE* ...) ; processing (DEFUN COPY-STREAM ...) ; processing (DEFUN COPY-FILE ...) ; processing (DEFUN DELETE-DIRECTORY-AND-FILES ...) ; processing (DEFUN PATHNAME-DIRECTORY-PATHNAME ...) ; processing (DEFUN PATHNAME-PARENT-DIRECTORY ...) ; processing (DEFUN CANONICAL-PATHNAME ...) ; processing (DEFUN MERGE-PATHNAMES-AS-DIRECTORY ...) ; processing (DEFUN MERGE-PATHNAMES-AS-FILE ...) ; processing (DEFMACRO WITH-COMPONENT-TESTERS ...) ; processing (DEFUN PATHNAME-HOST-EQUAL ...) ; processing (DEFUN PATHNAME-DEVICE-EQUAL ...) ; processing (DEFUN PATHNAME-DIRECTORY-EQUAL ...) ; processing (DEFUN PATHNAME-NAME-EQUAL ...) ; processing (DEFUN PATHNAME-TYPE-EQUAL ...) ; processing (DEFUN PATHNAME-VERSION-EQUAL ...) ; processing (DEFUN PATHNAME-EQUAL ...) ; processing (DEFUN PATHNAME-ABSOLUTE-P ...) ; processing (DEFUN PATHNAME-RELATIVE-P ...) ; processing (DEFUN PATHNAME-ROOT-P ...) ; processing (PUSHNEW :CL-FAD ...) ; processing (DEFVAR *HYPERDOC-BASE-URI* ...) ; processing (LET (#) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-fad/fad-tmp2OZ1RF2X.fasl ; compilation finished in 0:00:00.060 ; compiling file "/usr/share/common-lisp/source/cl-fad/path.lisp" (written 10 JAN 2022 12:38:55 AM): ; processing (IN-PACKAGE :CL-FAD) ; processing (DEFMACRO DEFALIAS ...) ; processing (DEFALIAS PATH:DIRNAME ...) ; processing (DEFUN PATH:BASENAME ...) ; processing (DEFALIAS PATH:-E ...) ; processing (DEFALIAS PATH:-D ...) ; processing (DEFALIAS PATH:CATFILE ...) ; processing (DEFALIAS PATH:CATDIR ...) ; processing (DEFALIAS PATH:= ...) ; processing (DEFALIAS PATH:ABSOLUTE-P ...) ; processing (DEFALIAS PATH:RELATIVE-P ...) ; processing (DEFALIAS PATH:ROOT-P ...) ; processing (DEFALIAS PATH:RM-R ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-fad/path-tmpMABYFPD4.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/cl-fad/temporary-files.lisp" (written 10 JAN 2022 12:38:55 AM): ; processing (IN-PACKAGE :CL-FAD) ; processing (DEFPARAMETER *DEFAULT-TEMPLATE* ...) ; processing (DEFPARAMETER *MAX-TRIES* ...) ; processing (DEFVAR *NAME-RANDOM-STATE* ...) ; processing (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) ...) ; processing (DEFVAR *CREATE-FILE-NAME-LOCK* ...) ; processing (DEFMACRO WITH-FILE-NAME-LOCK-HELD ...) ; processing (DEFUN GENERATE-RANDOM-STRING ...) ; processing (DEFINE-CONDITION INVALID-TEMPORARY-PATHNAME-TEMPLATE ...) ; processing (DEFUN GENERATE-RANDOM-PATHNAME ...) ; processing (DEFINE-CONDITION CANNOT-CREATE-TEMPORARY-FILE ...) ; processing (DEFUN OPEN-TEMPORARY ...) ; processing (DEFMACRO WITH-OUTPUT-TO-TEMPORARY-FILE ...) ; processing (DEFMACRO WITH-OPEN-TEMPORARY-FILE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-fad/temporary-files-tmpO0782EL2.fasl ; compilation finished in 0:00:00.023 ; compiling file "/usr/share/common-lisp/source/lparallel/src/util/package.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (DEFPACKAGE #:LPARALLEL.UTIL ...) ; processing (IN-PACKAGE #:LPARALLEL.UTIL) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/util/package-tmpFXGDO0E3.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/lparallel/src/util/config.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.UTIL) ; processing (PROGN (DEFVAR *NORMAL-OPTIMIZE* ...) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/util/config-tmpLCE8PO0U.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/lparallel/src/util/misc.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.UTIL) ; processing (DEFMACRO ALIAS-FUNCTION ...) ; processing (DEFMACRO ALIAS-MACRO ...) ; processing (DEFUN UNSPLICE ...) ; processing (DEFUN SYMBOLICATE/PACKAGE ...) ; processing (DEFUN SYMBOLICATE/NO-INTERN ...) ; processing (DEFMACRO WITH-PARSED-BODY ...) ; processing (DECLAIM (INLINE TO-BOOLEAN)) ; processing (DEFUN TO-BOOLEAN ...) ; processing (DEFUN INTERACT ...) ; processing (DEFMACRO REPEAT ...) ; processing (DEFMACRO DOSEQUENCE ...) ; processing (DEFMACRO UNWIND-PROTECT/EXT ...) ; processing (DEFTYPE INDEX ...) ; processing (ALIAS-FUNCTION PARTIAL-APPLY ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/util/misc-tmpS48VDGU2.fasl ; compilation finished in 0:00:00.022 ; compiling file "/usr/share/common-lisp/source/lparallel/src/util/defmacro.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.UTIL) ; processing (DEFMACRO DEFMACRO/ONCE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/util/defmacro-tmp5LF2452A.fasl ; compilation finished in 0:00:00.010 ; compiling file "/usr/share/common-lisp/source/lparallel/src/util/defun.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.UTIL) ; processing (DEFUN CONSTRAIN-RETURN-TYPE ...) ; processing (PROGN (DEFMACRO DEFUN/INLINE ...) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/util/defun-tmpTSFGDAZ7.fasl ; compilation finished in 0:00:00.011 ; compiling file "/usr/share/common-lisp/source/lparallel/src/util/defslots.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.UTIL) ; processing (DEFUN PLIST-KEYS ...) ; processing (DEFUN PLIST-VALUES-FOR-KEY ...) ; processing (DEFUN PARSE-DEFSLOTS ...) ; processing (DEFUN DEFSLOTS-NAMES ...) ; processing (PROGN (DEFMACRO DEFINE-SLOTS-MACROLET ...) ...) ; processing (DEFMACRO DEFSLOTS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/util/defslots-tmpGJFUKHN2.fasl ; compilation finished in 0:00:00.030 ; compiling file "/usr/share/common-lisp/source/lparallel/src/util/defpair.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.UTIL) ; processing (DEFMACRO DEFPAIR ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/util/defpair-tmpRLWVC93J.fasl ; compilation finished in 0:00:00.011 ; compiling file "/usr/share/common-lisp/source/lparallel/src/thread-util.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (DEFPACKAGE #:LPARALLEL.THREAD-UTIL ...) ; processing (IN-PACKAGE #:LPARALLEL.THREAD-UTIL) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE) ...) ; processing (ALIAS-FUNCTION CONDITION-WAIT ...) ; processing (ALIAS-FUNCTION CONDITION-NOTIFY ...) ; processing (PROGN (DEFMACRO CAS ...) ...) ; processing (DEFMACRO WITH-ABORT-RESTART ...) ; processing (DEFMACRO WITH-THREAD ...) ; processing (DEFMACRO WITH-LOCK-PREDICATE/NO-WAIT ...) ; processing (DEFMACRO WITH-LOCK-PREDICATE/WAIT ...) ; processing (DEFUN/INLINE GET-REAL-TIME-IN-SECONDS ...) ; processing (DEFUN %TIME-REMAINING ...) ; processing (DEFMACRO/ONCE WITH-COUNTDOWN ...) ; processing (DEFMACRO DEFINE-LOCKING-FN/BASE ...) ; processing (DEFMACRO DEFINE-LOCKING-FN ...) ; processing (DEFMACRO DEFINE-SIMPLE-LOCKING-FN ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/thread-util-tmpLJXQSCJY.fasl ; compilation finished in 0:00:00.031 ; compiling file "/usr/share/common-lisp/source/lparallel/src/raw-queue.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (DEFPACKAGE #:LPARALLEL.RAW-QUEUE ...) ; processing (IN-PACKAGE #:LPARALLEL.RAW-QUEUE) ; processing (DEFTYPE RAW-QUEUE-COUNT ...) ; processing (LOCALLY (DECLARE #) ...) ; processing (DEFUN/INLINE MAKE-RAW-QUEUE ...) ; processing (DEFUN/TYPE PUSH-RAW-QUEUE ...) ; processing (DEFUN/TYPE POP-RAW-QUEUE ...) ; processing (DEFUN/INLINE RAW-QUEUE-COUNT ...) ; processing (DEFUN/INLINE RAW-QUEUE-EMPTY-P ...) ; processing (DEFUN/INLINE PEEK-RAW-QUEUE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/raw-queue-tmp4OLR0J6X.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/lparallel/src/cons-queue.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (DEFPACKAGE #:LPARALLEL.CONS-QUEUE ...) ; processing (IN-PACKAGE #:LPARALLEL.CONS-QUEUE) ; processing (DEFSLOTS CONS-QUEUE ...) ; processing (DEFUN %MAKE-CONS-QUEUE ...) ; processing (DEFMACRO WITH-LOCKED-CONS-QUEUE ...) ; processing (DEFINE-LOCKING-FN PUSH-CONS-QUEUE ...) ; processing (DEFINE-LOCKING-FN POP-CONS-QUEUE ...) ; processing (DEFUN %TRY-POP-CONS-QUEUE/NO-LOCK/TIMEOUT ...) ; file: /usr/share/common-lisp/source/lparallel/src/cons-queue.lisp ; in: DEFUN %TRY-POP-CONS-QUEUE/NO-LOCK/TIMEOUT ; (PLUSP LPARALLEL.THREAD-UTIL::TIME-REMAINING) ; ; 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 GENERIC-> (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFUN TRY-POP-CONS-QUEUE/NO-LOCK/TIMEOUT ...) ; processing (DEFUN TRY-POP-CONS-QUEUE ...) ; file: /usr/share/common-lisp/source/lparallel/src/cons-queue.lisp ; in: DEFUN TRY-POP-CONS-QUEUE ; (PLUSP LPARALLEL.CONS-QUEUE::TIMEOUT) ; ; 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 GENERIC-> (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFUN TRY-POP-CONS-QUEUE/NO-LOCK ...) ; file: /usr/share/common-lisp/source/lparallel/src/cons-queue.lisp ; in: DEFUN TRY-POP-CONS-QUEUE/NO-LOCK ; (PLUSP LPARALLEL.CONS-QUEUE::TIMEOUT) ; ; 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 GENERIC-> (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFMACRO DEFINE-QUEUE-FN ...) ; processing (DEFINE-QUEUE-FN CONS-QUEUE-COUNT ...) ; processing (DEFINE-QUEUE-FN CONS-QUEUE-EMPTY-P ...) ; processing (DEFINE-QUEUE-FN PEEK-CONS-QUEUE ...) ; processing (DEFUN MAKE-CONS-QUEUE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/cons-queue-tmp6XXQRAHN.fasl ; compilation finished in 0:00:00.027 ; compiling file "/usr/share/common-lisp/source/lparallel/src/vector-queue.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (DEFPACKAGE #:LPARALLEL.VECTOR-QUEUE ...) ; processing (IN-PACKAGE #:LPARALLEL.VECTOR-QUEUE) ; processing (DEFTYPE RAW-QUEUE-COUNT ...) ; processing (DEFSLOTS RAW-QUEUE ...) ; processing (DEFUN MAKE-RAW-QUEUE ...) ; processing (DEFUN/TYPE PUSH-RAW-QUEUE ...) ; processing (DEFUN/TYPE POP-RAW-QUEUE ...) ; processing (DEFUN/TYPE PEEK-RAW-QUEUE ...) ; processing (DEFUN/TYPE/INLINE RAW-QUEUE-EMPTY-P ...) ; processing (DEFUN/TYPE/INLINE RAW-QUEUE-FULL-P ...) ; processing (DEFUN/TYPE/INLINE RAW-QUEUE-CAPACITY ...) ; processing (DEFSLOTS VECTOR-QUEUE ...) ; processing (DEFUN %MAKE-VECTOR-QUEUE ...) ; processing (DEFMACRO WITH-LOCKED-VECTOR-QUEUE ...) ; processing (DEFINE-LOCKING-FN PUSH-VECTOR-QUEUE ...) ; processing (DEFINE-LOCKING-FN POP-VECTOR-QUEUE ...) ; processing (DEFUN %TRY-POP-VECTOR-QUEUE/NO-LOCK/TIMEOUT ...) ; file: /usr/share/common-lisp/source/lparallel/src/vector-queue.lisp ; in: DEFUN %TRY-POP-VECTOR-QUEUE/NO-LOCK/TIMEOUT ; (PLUSP LPARALLEL.THREAD-UTIL::TIME-REMAINING) ; ; 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 GENERIC-> (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFUN TRY-POP-VECTOR-QUEUE/NO-LOCK/NO-TIMEOUT ...) ; processing (DEFUN TRY-POP-VECTOR-QUEUE/NO-LOCK/TIMEOUT ...) ; processing (DEFUN TRY-POP-VECTOR-QUEUE ...) ; file: /usr/share/common-lisp/source/lparallel/src/vector-queue.lisp ; in: DEFUN TRY-POP-VECTOR-QUEUE ; (PLUSP LPARALLEL.VECTOR-QUEUE::TIMEOUT) ; ; 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 GENERIC-> (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFUN TRY-POP-VECTOR-QUEUE/NO-LOCK ...) ; file: /usr/share/common-lisp/source/lparallel/src/vector-queue.lisp ; in: DEFUN TRY-POP-VECTOR-QUEUE/NO-LOCK ; (PLUSP LPARALLEL.VECTOR-QUEUE::TIMEOUT) ; ; 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 GENERIC-> (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; processing (DEFMACRO DEFINE-QUEUE-FN ...) ; processing (DEFINE-QUEUE-FN VECTOR-QUEUE-COUNT ...) ; processing (DEFINE-QUEUE-FN VECTOR-QUEUE-CAPACITY ...) ; processing (DEFINE-QUEUE-FN VECTOR-QUEUE-EMPTY-P ...) ; processing (DEFINE-QUEUE-FN VECTOR-QUEUE-FULL-P ...) ; processing (DEFINE-QUEUE-FN PEEK-VECTOR-QUEUE ...) ; processing (DEFUN MAKE-VECTOR-QUEUE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/vector-queue-tmpGO08YVIW.fasl ; compilation finished in 0:00:00.050 ; compiling file "/usr/share/common-lisp/source/lparallel/src/queue.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (DEFPACKAGE #:LPARALLEL.QUEUE ...) ; processing (IN-PACKAGE #:LPARALLEL.QUEUE) ; processing (DEFTYPE QUEUE ...) ; processing (DEFUN %MAKE-QUEUE ...) ; processing (DEFUN MAKE-QUEUE ...) ; processing (DEFINE-COMPILER-MACRO MAKE-QUEUE ...) ; processing (DEFUN CALL-WITH-LOCKED-CONS-QUEUE ...) ; processing (DEFUN CALL-WITH-LOCKED-VECTOR-QUEUE ...) ; processing (DEFMACRO WITH-LOCKED-QUEUE ...) ; processing (DEFUN/INLINE CONS-QUEUE-FULL-P ...) ; processing (DEFUN/INLINE CONS-QUEUE-FULL-P/NO-LOCK ...) ; processing (DEFMACRO DEFINE-QUEUE-FN ...) ; processing (DEFINE-QUEUE-FN PUSH-QUEUE ...) ; processing (DEFINE-QUEUE-FN PUSH-QUEUE/NO-LOCK ...) ; processing (DEFINE-QUEUE-FN POP-QUEUE ...) ; processing (DEFINE-QUEUE-FN POP-QUEUE/NO-LOCK ...) ; processing (DEFINE-QUEUE-FN PEEK-QUEUE ...) ; processing (DEFINE-QUEUE-FN PEEK-QUEUE/NO-LOCK ...) ; processing (DEFINE-QUEUE-FN QUEUE-COUNT ...) ; processing (DEFINE-QUEUE-FN QUEUE-COUNT/NO-LOCK ...) ; processing (DEFINE-QUEUE-FN QUEUE-EMPTY-P ...) ; processing (DEFINE-QUEUE-FN QUEUE-EMPTY-P/NO-LOCK ...) ; processing (DEFINE-QUEUE-FN QUEUE-FULL-P ...) ; processing (DEFINE-QUEUE-FN QUEUE-FULL-P/NO-LOCK ...) ; processing (DEFMACRO DEFINE-TRY-POP-QUEUE ...) ; processing (DEFINE-TRY-POP-QUEUE TRY-POP-QUEUE ...) ; processing (DEFINE-TRY-POP-QUEUE TRY-POP-QUEUE/NO-LOCK ...) ; processing (DEFINE-QUEUE-FN CALL-WITH-LOCKED-QUEUE ...) ; processing (SETF (DOCUMENTATION # ...) ...) ; processing (SETF (DOCUMENTATION # ...) ...) ; processing (SETF (DOCUMENTATION # ...) ...) ; processing (SETF (DOCUMENTATION # ...) ...) ; processing (SETF (DOCUMENTATION # ...) ...) ; processing (SETF (DOCUMENTATION # ...) ...) ; processing (SETF (DOCUMENTATION # ...) ...) ; processing (SETF (DOCUMENTATION # ...) ...) ; processing (SETF (DOCUMENTATION # ...) ...) ; processing (DO-EXTERNAL-SYMBOLS (SYM *PACKAGE*) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/queue-tmpW4V46RST.fasl ; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/lparallel/src/counter.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (DEFPACKAGE #:LPARALLEL.COUNTER ...) ; processing (IN-PACKAGE #:LPARALLEL.COUNTER) ; processing (PROGN (DEFTYPE COUNTER-VALUE ...) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/counter-tmp3OJ639ET.fasl ; compilation finished in 0:00:00.007 ; compiling file "/usr/share/common-lisp/source/lparallel/src/spin-queue/package.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (DEFPACKAGE #:LPARALLEL.SPIN-QUEUE ...) ; processing (IN-PACKAGE #:LPARALLEL.SPIN-QUEUE) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/spin-queue/package-tmpB4L1425D.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/lparallel/src/spin-queue/cas-spin-queue.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.SPIN-QUEUE) ; processing (PROGN (DEFTYPE NODE ...) ...) ; processing (DEFCONSTANT +DUMMY+ ...) ; processing (DEFCONSTANT +DEAD-END+ ...) ; processing (DEFSTRUCT (SPIN-QUEUE #) ...) ; processing (DEFUN MAKE-SPIN-QUEUE ...) ; processing (DEFUN/TYPE PUSH-SPIN-QUEUE ...) ; processing (DEFUN/TYPE POP-SPIN-QUEUE ...) ; processing (DEFUN SPIN-QUEUE-EMPTY-P ...) ; processing (DEFUN TRY-EACH-ELEM ...) ; processing (DEFUN SPIN-QUEUE-COUNT ...) ; processing (DEFUN PEEK-SPIN-QUEUE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/spin-queue/cas-spin-queue-tmpFG7U3LX.fasl ; compilation finished in 0:00:00.015 ; compiling file "/usr/share/common-lisp/source/lparallel/src/kernel/package.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (DEFPACKAGE #:LPARALLEL.KERNEL ...) ; processing (IN-PACKAGE #:LPARALLEL.KERNEL) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/kernel/package-tmpRB2S59DB.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/lparallel/src/kernel/specials.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.KERNEL) ; processing (DEFVAR *DEBUGGER-ERROR* ...) ; processing (DEFVAR *HANDLER-ACTIVE-P* ...) ; processing (DEFVAR *CLIENT-HANDLERS* ...) ; processing (DEFVAR *TASK-CATEGORY* ...) ; processing (DEFVAR *TASK-PRIORITY* ...) ; processing (DEFVAR *WORKER* ...) ; processing (DEFVAR *KERNEL* ...) ; processing (DEFVAR *MAKE-LIMITER-DATA*) ; processing (DEFVAR *KERNEL-SPIN-COUNT* ...) ; processing (DEFVAR *DEBUG-TASKS-P* ...) ; processing (DEFVAR *LISP-EXITING-P* ...) ; processing (DEFVAR *ERRORING-WORKERS* ...) ; processing (DEFVAR *ERRORING-WORKERS-LOCK* ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/kernel/specials-tmpU1JZ7FXZ.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/lparallel/src/kernel/handling.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.KERNEL) ; processing (DEFSLOTS WRAPPED-ERROR ...) ; processing (DEFUN WRAP-ERROR ...) ; processing (DEFUN UNWRAP-RESULT ...) ; processing (DEFMACRO TASK-HANDLER-BIND ...) ; processing (DEFUN INVOKE-TRANSFER-ERROR ...) ; processing (DEFUN CONDITION-HANDLER ...) ; processing (DEFUN CALL-WITH-TRACKED-ERROR ...) ; processing (DEFMACRO WITH-TRACKED-ERROR ...) ; processing (DEFUN MAKE-DEBUGGER-HOOK ...) ; processing (DEFUN TRANSFER-ERROR-REPORT ...) ; processing (DEFCONSTANT +CURRENT-TASK+ ...) ; processing (DEFUN TRANSFER-ERROR-RESTART ...) ; processing (PROGN (DEFMACRO WITH-TASK-CONTEXT ...) ...) ; processing (DEFINE-CONDITION TASK-KILLED-ERROR ...) ; processing (DEFINE-CONDITION NO-KERNEL-ERROR ...) ; processing (DEFINE-CONDITION KERNEL-CREATION-ERROR ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/kernel/handling-tmp2DUJ9I.fasl ; compilation finished in 0:00:00.027 ; compiling file "/usr/share/common-lisp/source/lparallel/src/kernel/classes.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.KERNEL) ; processing (DEFSLOTS WORKER-INFO ...) ; processing (DEFSLOTS WORKER-NOTIFICATIONS ...) ; processing (DEFSLOTS WORKER ...) ; processing (DEFSLOTS SCHEDULER ...) ; processing (LOCALLY (DECLARE #) ...) ; processing (LOCALLY (DECLARE #) ...) ; processing (DEFSLOTS CHANNEL ...) ; processing (LOCALLY (DECLARE #) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/kernel/classes-tmpU602JQSD.fasl ; compilation finished in 0:00:00.094 ; compiling file "/usr/share/common-lisp/source/lparallel/src/kernel/stealing-scheduler.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.KERNEL) ; processing (DEFMACRO DEFINE-MOD-INC-DEC ...) ; processing (DEFINE-MOD-INC-DEC MOD-INC ...) ; processing (DEFINE-MOD-INC-DEC MOD-DEC ...) ; processing (DEFMACRO DEFINE-MOD-INCF-DECF ...) ; processing (DEFINE-MOD-INCF-DECF MOD-INCF ...) ; processing (DEFINE-MOD-INCF-DECF MOD-DECF ...) ; processing (DEFMACRO WITH-POP-SUCCESS ...) ; processing (DEFMACRO REPEAT/FIXNUM ...) ; processing (DEFMACRO DO-INDEXES ...) ; processing (DEFUN MAKE-SCHEDULER ...) ; processing (DEFUN/TYPE/INLINE PUSH-TO-RANDOM-WORKER ...) ; processing (DEFUN/TYPE MAYBE-WAKE-A-WORKER ...) ; file: /usr/share/common-lisp/source/lparallel/src/kernel/stealing-scheduler.lisp ; in: DEFUN/TYPE MAYBE-WAKE-A-WORKER ; (INCF LPARALLEL.KERNEL::NOTIFY-COUNT) ; ==> ; (+ 1 ; (SB-KERNEL:THE* ((INTEGER 0) :DERIVE-TYPE-ONLY T) ; (SB-KERNEL:%INSTANCE-REF ; (THE LPARALLEL.KERNEL::SCHEDULER #:OBJ) 4))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFUN/TYPE SCHEDULE-TASK ...) ; processing (DEFMACRO DO-WORKERS ...) ; processing (DEFUN/TYPE NEXT-TASK ...) ; file: /usr/share/common-lisp/source/lparallel/src/kernel/stealing-scheduler.lisp ; in: DEFUN/TYPE NEXT-TASK ; (PLUSP LPARALLEL.KERNEL::NOTIFY-COUNT) ; ; note: forced to do FAST-IF->-ZERO (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; (DECF LPARALLEL.KERNEL::NOTIFY-COUNT) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES FIXNUM &REST ; T). ; etc. ; processing (DEFUN/TYPE STEAL-TASK ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/kernel/stealing-scheduler-tmp5O3OCPXW.fasl ; compilation finished in 0:00:00.050 ; compiling file "/usr/share/common-lisp/source/lparallel/src/kernel/kill.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.KERNEL) ; processing (DEFCONSTANT +WORKER-SUICIDE-TAG+ ...) ; processing (DEFUN KILL ...) ; processing (DEFUN KILL-ERRORS ...) ; processing (DEFUN KILL-ERRORS-REPORT ...) ; processing (DEFMACRO WITH-WORKER-RESTARTS ...) ; processing (DEFUN KILL-TASKS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/kernel/kill-tmpOLTFAEPG.fasl ; compilation finished in 0:00:00.010 ; compiling file "/usr/share/common-lisp/source/lparallel/src/kernel/core.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.KERNEL) ; processing (DEFUN/TYPE EXEC-TASK/WORKER ...) ; processing (DEFUN/TYPE/INLINE EXEC-TASK/NON-WORKER ...) ; processing (DEFUN/TYPE STEAL-WORK ...) ; processing (DEFUN HANDSHAKE/TO-WORKER/START ...) ; processing (DEFUN HANDSHAKE/TO-WORKER/FINISH ...) ; processing (DEFUN HANDSHAKE/FROM-WORKER/START ...) ; processing (DEFUN HANDSHAKE/FROM-WORKER/FINISH ...) ; processing (DEFUN NOTIFY-EXIT ...) ; processing (DEFUN WAIT-FOR-WORKER ...) ; processing (DEFUN REPLACE-WORKER ...) ; processing (DEFUN/TYPE WORKER-LOOP ...) ; processing (DEFUN CALL-WITH-WORKER-CONTEXT ...) ; processing (DEFUN ENTER-WORKER-LOOP ...) ; processing (DEFUN MAKE-ALL-BINDINGS ...) ; processing (DEFUN %MAKE-WORKER ...) ; processing (DEFUN MAKE-WORKER-THREAD ...) ; processing (DEFUN MAKE-WORKER ...) ; processing (DEFMACRO WITH-FILL-WORKERS-HANDLER ...) ; processing (DEFUN %FILL-WORKERS ...) ; processing (DEFUN FILL-WORKERS ...) ; processing (DEFUN MAKE-KERNEL ...) ; processing (DEFUN CHECK-KERNEL ...) ; processing (DEFMACRO DEFINE-WORKER-INFO-READER ...) ; processing (DEFINE-WORKER-INFO-READER KERNEL-BINDINGS ...) ; processing (DEFINE-WORKER-INFO-READER KERNEL-NAME ...) ; processing (DEFINE-WORKER-INFO-READER KERNEL-CONTEXT ...) ; processing (DEFUN/TYPE/INLINE %KERNEL-WORKER-COUNT ...) ; processing (DEFUN KERNEL-WORKER-COUNT ...) ; processing (DEFUN KERNEL-WORKER-INDEX ...) ; processing (DEFUN %MAKE-CHANNEL ...) ; processing (DEFUN MAKE-CHANNEL ...) ; processing (DEFINE-COMPILER-MACRO MAKE-CHANNEL ...) ; processing (DEFMACRO TASK-LAMBDA ...) ; processing (DEFUN/TYPE/INLINE MAKE-TASK ...) ; processing (DEFUN/TYPE MAKE-CHANNELED-TASK ...) ; processing (DEFUN/TYPE/INLINE SUBMIT-RAW-TASK ...) ; processing (DEFUN SUBMIT-TASK ...) ; processing (DEFUN RECEIVE-RESULT ...) ; processing (DEFUN TRY-RECEIVE-RESULT ...) ; processing (DEFMACRO/ONCE DO-FAST-RECEIVES ...) ; processing (DEFUN SHUTDOWN ...) ; processing (DEFUN END-KERNEL ...) ; processing (DEFUN TASK-CATEGORIES-RUNNING ...) ; processing (DEFUN KERNEL-INFO ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN BROADCAST-TASK ...) ; processing (DEFUN TRACK-EXIT ...) ; processing (PUSHNEW (QUOTE TRACK-EXIT) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/kernel/core-tmpUZ4MPL4A.fasl ; compilation finished in 0:00:00.074 ; compiling file "/usr/share/common-lisp/source/lparallel/src/kernel/timeout.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.KERNEL) ; processing (DEFSLOTS TIMEOUT ...) ; processing (DEFUN SUBMIT-TIMEOUT ...) ; processing (DEFUN CANCEL-TIMEOUT ...) ; processing (DEFUN DEPRECATED-TIMEOUT ...) ; processing (DEFINE-COMPILER-MACRO SUBMIT-TIMEOUT ...) ; processing (DEFINE-COMPILER-MACRO CANCEL-TIMEOUT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/kernel/timeout-tmpBQS2IZ67.fasl ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/lparallel/src/kernel-util.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (DEFPACKAGE #:LPARALLEL.KERNEL-UTIL ...) ; processing (IN-PACKAGE #:LPARALLEL.KERNEL-UTIL) ; processing (DEFUN STEAL-UNTIL-RECEIVE-RESULT ...) ; processing (DEFUN RECEIVE-RESULTS ...) ; file: /usr/share/common-lisp/source/lparallel/src/kernel-util.lisp ; in: DEFUN RECEIVE-RESULTS ; (LPARALLEL.UTIL:REPEAT COUNT ; (LPARALLEL.KERNEL-UTIL::STEAL-UNTIL-RECEIVE-RESULT LPARALLEL.KERNEL:CHANNEL ; LPARALLEL.KERNEL-UTIL::WORKER LPARALLEL.KERNEL-UTIL::FN)) ; --> BLOCK 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 ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (LPARALLEL.KERNEL:DO-FAST-RECEIVES (LPARALLEL.KERNEL-UTIL::RESULT ; LPARALLEL.KERNEL:CHANNEL COUNT) ; (LOCALLY ; (DECLARE (TYPE FUNCTION LPARALLEL.KERNEL-UTIL::FN)) ; (FUNCALL LPARALLEL.KERNEL-UTIL::FN LPARALLEL.KERNEL-UTIL::RESULT))) ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK 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 ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (LPARALLEL.KERNEL:DO-FAST-RECEIVES (LPARALLEL.KERNEL-UTIL::RESULT ; LPARALLEL.KERNEL:CHANNEL COUNT) ; (DECLARE (IGNORE LPARALLEL.KERNEL-UTIL::RESULT))) ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK 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 ; open-code float conversion in mixed numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL (-1) (1))), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (LPARALLEL.KERNEL:DO-FAST-RECEIVES (LPARALLEL.KERNEL-UTIL::RESULT ; LPARALLEL.KERNEL:CHANNEL COUNT) ; (LOCALLY ; (DECLARE (TYPE FUNCTION LPARALLEL.KERNEL-UTIL::FN)) ; (FUNCALL LPARALLEL.KERNEL-UTIL::FN LPARALLEL.KERNEL-UTIL::RESULT))) ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET CEILING ; ==> ; 1 ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL #1=(-1) #2=(1))) ; . #3=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL #1# #2#)) . #3#), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET TAGBODY IF <= ; ==> ; 1 ; ; note: forced to do FAST-IF->-ZERO (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET TAGBODY IF DECF SETQ THE ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES FIXNUM &REST ; T). ; etc. ; (LPARALLEL.KERNEL:DO-FAST-RECEIVES (LPARALLEL.KERNEL-UTIL::RESULT ; LPARALLEL.KERNEL:CHANNEL COUNT) ; (DECLARE (IGNORE LPARALLEL.KERNEL-UTIL::RESULT))) ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET CEILING ; ==> ; 1 ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL #1=(-1) #2=(1))) ; . #3=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL #1# #2#)) . #3#), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET TAGBODY IF <= ; ==> ; 1 ; ; note: forced to do FAST-IF->-ZERO (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET TAGBODY IF DECF SETQ THE ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES FIXNUM &REST ; T). ; etc. ; (LPARALLEL.UTIL:REPEAT COUNT ; (LPARALLEL.KERNEL-UTIL::STEAL-UNTIL-RECEIVE-RESULT LPARALLEL.KERNEL:CHANNEL ; LPARALLEL.KERNEL-UTIL::WORKER LPARALLEL.KERNEL-UTIL::FN)) ; --> BLOCK LET CEILING ; ==> ; 1 ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL #1=(-1) #2=(1))) ; . #3=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR FLOAT (RATIONAL #1# #2#)) . #3#), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> BLOCK LET TAGBODY IF <= ; ==> ; 1 ; ; note: forced to do FAST-IF->-ZERO (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> BLOCK LET TAGBODY IF DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES FIXNUM &REST ; T). ; etc. ; processing (DEFMACRO WITH-SUBMIT-COUNTED ...) ; processing (DEFUN INDEXING-WRAPPER ...) ; processing (DEFMACRO/ONCE WITH-SUBMIT-INDEXED ...) ; processing (DEFMACRO WITH-SUBMIT-CANCELABLE ...) ; processing (DEFUN CALL-WITH-TEMP-KERNEL ...) ; processing (DEFMACRO WITH-TEMP-KERNEL ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/kernel-util-tmpDEX1AB43.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/lparallel/src/promise.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (DEFPACKAGE #:LPARALLEL.PROMISE ...) ; processing (IN-PACKAGE #:LPARALLEL.PROMISE) ; processing (DEFCONSTANT +NO-RESULT+ ...) ; processing (DEFSLOTS PROMISE-BASE ...) ; processing (DEFSLOTS %PROMISE ...) ; processing (DEFSLOTS PLAN ...) ; processing (DEFSLOTS %FUTURE ...) ; processing (DEFSLOTS %DELAY ...) ; processing (DEFSLOTS %CHAIN ...) ; processing (DEFMACRO WITH-LOCK-OPERATION ...) ; processing (DEFMACRO WITH-UNFULFILLED/NO-WAIT ...) ; processing (DEFMACRO WITH-UNFULFILLED/WAIT ...) ; processing (DEFUN PROMISE ...) ; processing (DEFUN FULFILL-PROMISE ...) ; processing (DEFUN FORCE-PROMISE ...) ; processing (DEFUN/INLINE FULFILL-PLAN/VALUES ...) ; processing (DEFUN/INLINE FULFILL-PLAN/CALL ...) ; processing (DEFUN FULFILL-PLAN/ERROR ...) ; processing (DEFMACRO DELAY ...) ; processing (DEFUN FULFILL-DELAY ...) ; processing (DEFUN FORCE-DELAY ...) ; processing (DEFUN FULFILL-FUTURE ...) ; processing (DEFUN FORCE-FUTURE ...) ; processing (DEFMACRO WITH-UNFULFILLED-FUTURE/NO-WAIT ...) ; processing (DEFUN/TYPE MAKE-FUTURE-TASK ...) ; processing (DEFUN/TYPE MAKE-FUTURE ...) ; processing (DEFMACRO FUTURE ...) ; processing (DEFMACRO SPECULATE ...) ; processing (DEFUN CHAIN ...) ; processing (DEFUN FULFILL-OBJECT ...) ; processing (DEFMACRO FULFILL ...) ; processing (DEFUN FULFILLEDP ...) ; processing (DEFUN REPLACE-ERROR ...) ; processing (DEFUN FORCE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/promise-tmpXEL4GRQG.fasl ; compilation finished in 0:00:00.094 ; compiling file "/usr/share/common-lisp/source/lparallel/src/ptree.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (DEFPACKAGE #:LPARALLEL.PTREE ...) ; processing (IN-PACKAGE #:LPARALLEL.PTREE) ; processing (DEFINE-CONDITION PTREE-ERROR ...) ; processing (DEFINE-CONDITION PTREE-REDEFINITION-ERROR ...) ; processing (DEFINE-CONDITION PTREE-UNDEFINED-FUNCTION-ERROR ...) ; processing (DEFINE-CONDITION PTREE-LAMBDA-LIST-KEYWORD-ERROR ...) ; processing (DEFCONSTANT +NO-RESULT+ ...) ; processing (DEFSLOTS NODE ...) ; processing (DEFUN CLEAR-NODE ...) ; processing (DEFUN CLEAR-NODE-ERROR ...) ; processing (DEFUN CHECK-NODE ...) ; processing (DEFUN/TYPE/INLINE COMPUTEDP ...) ; processing (DEFUN/TYPE COMPUTE-NODE ...) ; processing (DEFUN/TYPE/INLINE FREEP ...) ; processing (DEFUN/TYPE PROPAGATE-ERROR ...) ; processing (DEFUN/TYPE LOCK-NODE ...) ; processing (DEFUN/TYPE UNLOCK-NODE ...) ; processing (DEFUN/TYPE/INLINE CHILDREN-DONE-P ...) ; processing (DEFVAR *PTREE-NODE-KERNEL* ...) ; processing (DEFUN/TYPE MAKE-NODE-TASK ...) ; processing (DEFUN/TYPE SUBMIT-NODE ...) ; processing (DEFUN/TYPE FIND-NODE ...) ; processing (DEFSLOTS PTREE ...) ; processing (DEFUN MAKE-PTREE ...) ; processing (DEFUN/TYPE COMPUTE-PTREE ...) ; file: /usr/share/common-lisp/source/lparallel/src/ptree.lisp ; in: DEFUN/TYPE COMPUTE-PTREE ; (DECF LPARALLEL.PTREE::PENDING) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (INCF LPARALLEL.PTREE::PENDING) ; ==> ; (+ 1 ; (SB-KERNEL:THE* (INTEGER :DERIVE-TYPE-ONLY T) ; (SB-KERNEL:%INSTANCE-REF (THE LPARALLEL.PTREE:PTREE #:OBJ) ; 2))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFUN WAIT-FOR-COMPUTE ...) ; processing (DEFUN EACH-NODE ...) ; processing (DEFUN CHECK-PTREE ...) ; processing (DEFUN CLEAR-PTREE ...) ; processing (DEFUN CLEAR-PTREE-ERRORS ...) ; processing (DEFUN PTREE-FN ...) ; processing (DEFUN PTREE-COMPUTED-P ...) ; processing (DEFUN CALL-PTREE ...) ; processing (DEFMACRO PTREE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/ptree-tmpBLHHY8QV.fasl ; compilation finished in 0:00:00.076 ; compiling file "/usr/share/common-lisp/source/lparallel/src/slet.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (DEFPACKAGE #:LPARALLEL.SLET ...) ; processing (IN-PACKAGE #:LPARALLEL.SLET) ; processing (DEFUN PARSE-BINDINGS ...) ; processing (DEFUN MAKE-TEMP-VAR ...) ; processing (DEFUN MAKE-BINDING-DATUM ...) ; processing (DEFUN MAKE-BINDING-DATA ...) ; processing (DEFMACRO BIND ...) ; processing (DEFMACRO %SLET ...) ; processing (DEFMACRO SLET ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/slet-tmpGMYRLBUL.fasl ; compilation finished in 0:00:00.017 ; compiling file "/usr/share/common-lisp/source/lparallel/src/defpun.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (DEFPACKAGE #:LPARALLEL.DEFPUN ...) ; processing (IN-PACKAGE #:LPARALLEL.DEFPUN) ; processing (DEFCONSTANT +CHECKED-KEY+ ...) ; processing (DEFCONSTANT +UNCHECKED-KEY+ ...) ; processing (DEFVAR *REGISTERED-NAMES* ...) ; processing (DEFVAR *REGISTRATION-LOCK* ...) ; processing (DEFUN UNCHECKED-NAME ...) ; processing (DEFUN REGISTER-NAME ...) ; processing (DEFUN REGISTER-FN ...) ; processing (DEFUN REGISTERED-FN-P ...) ; processing (DEFUN VALID-REGISTERED-FN-P ...) ; processing (DEFUN VALID-REGISTERED-NAME-P ...) ; processing (DEFUN DELETE-STALE-REGISTRATIONS ...) ; processing (DEFUN REGISTERED-MACROLETS ...) ; processing (DEFMACRO DECLAIM-DEFPUN ...) ; processing (DEFUN DELETE-REGISTERED-NAMES ...) ; processing (DEFUN INITIAL-LIMITER-COUNT ...) ; processing (DEFUN MAKE-LIMITER-DATA ...) ; processing (SETF *MAKE-LIMITER-DATA* ...) ; processing (DEFMACRO ACCEPT-TASK-P ...) ; processing (DEFUN/TYPE UPDATE-LIMITER-COUNT/NO-LOCK ...) ; processing (DEFUN/TYPE UPDATE-LIMITER-COUNT ...) ; processing (DEFCONSTANT +NO-RESULT+ ...) ; processing (DEFMACRO MSETQ ...) ; processing (DEFUN CLIENT-VARS ...) ; processing (DEFUN TEMP-VARS ...) ; processing (DEFUN PRIMARY-TEMP-VARS ...) ; processing (DEFMACRO WITH-TEMP-BINDINGS ...) ; processing (DEFMACRO WITH-CLIENT-BINDINGS ...) ; processing (DEFMACRO SPAWN ...) ; processing (DEFMACRO SPAWN-TASKS ...) ; processing (DEFMACRO EXEC-TASK ...) ; processing (DEFMACRO SYNC ...) ; processing (DEFMACRO SCAN-FOR-ERRORS ...) ; processing (DEFMACRO %%%%PLET ...) ; processing (DEFMACRO WITH-LOCK-PREDICATES ...) ; processing (DEFMACRO %%%PLET ...) ; processing (DEFMACRO %%PLET ...) ; processing (DEFMACRO %PLET ...) ; processing (DEFMACRO %PLET-IF ...) ; processing (DEFMACRO DEFUN/WRAPPER ...) ; processing (DEFUN CALL-WITH-TOPLEVEL-HANDLER ...) ; processing (DEFUN CALL-INSIDE-WORKER ...) ; processing (DEFUN CALL-IMPL-FN ...) ; processing (DEFMACRO DEFINE-DEFPUN ...) ; processing (DEFINE-DEFPUN DEFPUN ...) ; processing (DEFINE-DEFPUN DEFPUN/TYPE ...) ; processing (DEFMACRO DEFPUN* ...) ; processing (DEFMACRO DEFPUN/TYPE* ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/defpun-tmpLT3BCQID.fasl ; compilation finished in 0:00:00.082 ; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/package.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (DEFPACKAGE #:LPARALLEL.COGNATE ...) ; processing (IN-PACKAGE #:LPARALLEL.COGNATE) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/cognate/package-tmp7AGUJ6PJ.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/util.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.COGNATE) ; processing (DEFUN ZIP/VECTOR ...) ; processing (DEFUN FIND-MIN-LENGTH ...) ; processing (DEFUN ITEM-PREDICATE ...) ; file: /usr/share/common-lisp/source/lparallel/src/cognate/util.lisp ; in: DEFUN ITEM-PREDICATE ; (EQL LPARALLEL.COGNATE::ITEM LPARALLEL.COGNATE::X) ; ; note: forced to do IF-EQL (cost 15) ; unable to do #1=inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do #1# (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; processing (DEFUN SUBSIZE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/cognate/util-tmpADFMBTPY.fasl ; compilation finished in 0:00:00.005 ; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/option.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.COGNATE) ; processing (DEFUN GET-PARTS-HINT ...) ; processing (DEFMACRO POP-PLIST ...) ; processing (DEFUN %PARSE-OPTIONS ...) ; processing (DEFUN PARSE-OPTIONS ...) ; processing (DEFMACRO WITH-PARSED-OPTIONS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/cognate/option-tmpJ65DAF15.fasl ; compilation finished in 0:00:00.007 ; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/subdivide.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.COGNATE) ; processing (DEFUN FIND-NUM-PARTS ...) ; processing (DEFMACRO WITH-PARTS ...) ; processing (DEFUN SUBDIVIDE-ARRAY ...) ; processing (DEFUN SUBDIVIDE-LIST ...) ; processing (DEFUN SUBDIVIDE-LIST/SLICE ...) ; processing (DEFUN MAKE-PARTS ...) ; processing (DEFUN MAKE-RESULT-PARTS ...) ; processing (DEFUN MAKE-INPUT-PARTS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/cognate/subdivide-tmpIXT65XFP.fasl ; compilation finished in 0:00:00.021 ; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/pandor.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.COGNATE) ; processing (DEFMACRO WITH-FORMS-SUBMITTED ...) ; processing (DEFMACRO PAND ...) ; processing (DEFMACRO POR ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/cognate/pandor-tmpAJ0SGYIK.fasl ; compilation finished in 0:00:00.006 ; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/plet.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.COGNATE) ; processing (PROGN (DEFUN DECLARATION-INFORMATION ...) ...) ; processing (DEFPARAMETER *STANDARD-DECLARATION-IDENTIFIERS* ...) ; processing (DEFUN DECLARATIONP ...) ; processing (DEFUN ZIP-REPEAT ...) ; processing (DEFUN DECL-SPEC->TYPED-VARS ...) ; processing (DEFUN DECL-SPECS->TYPED-VARS ...) ; processing (DEFUN DECLARES->DECL-SPECS ...) ; processing (DEFUN DECLARES->TYPED-VARS ...) ; processing (DEFSLOTS BINDING-DATUM ...) ; processing (DEFUN MAKE-SV-BINDING-DATUM ...) ; processing (DEFUN MAKE-MV-BINDING-DATUM ...) ; processing (DEFUN PARTITION ...) ; processing (DEFUN MAKE-BINDING-DATA ...) ; processing (DEFUN LOOKUP-ALL ...) ; processing (DEFUN VAR-TYPE ...) ; processing (DEFUN FUTURE-LET-BINDING ...) ; processing (DEFUN FUTURE-LET-BINDINGS ...) ; processing (DEFUN FUTURE-MACROLET-BINDING ...) ; processing (DEFUN FUTURE-MACROLET-BINDINGS ...) ; processing (DEFUN %MV-MACROLET-BINDINGS ...) ; processing (DEFUN MV-MACROLET-BINDINGS ...) ; processing (DEFUN BINDING-DECL-SPEC ...) ; processing (DEFUN BINDING-DECL-SPECS ...) ; processing (DEFUN ALL-BINDING-VARS ...) ; processing (DEFUN UNKNOWN-TYPED-VARS ...) ; processing (DEFMACRO %PLET ...) ; processing (DEFMACRO PLET ...) ; processing (DEFMACRO PLET-IF ...) ; processing (ALIAS-MACRO TOPLEVEL-PLET ...) ; processing (DEFMACRO PFUNCALL ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/cognate/plet-tmpJ2HJZECB.fasl ; compilation finished in 0:00:00.051 ; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/pmap.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.COGNATE) ; processing (DEFUN PMAP-INTO/PARTS ...) ; processing (DEFUN MAP-NIL ...) ; processing (DEFUN MAPLIST-INTO ...) ; processing (DEFUN MAP-ITERATE ...) ; file: /usr/share/common-lisp/source/lparallel/src/cognate/pmap.lisp ; in: DEFUN MAP-ITERATE ; (DEFUN LPARALLEL.COGNATE::MAP-ITERATE ; (MAP LPARALLEL.COGNATE::SIZE LPARALLEL.COGNATE::FN ; LPARALLEL.COGNATE::SEQS) ; "A variation of (map nil ...)/mapc/mapl with size constrained. ; Without a result to delineate sublist boundaries, we must enforce them ; manually." ; (CHECK-TYPE LPARALLEL.COGNATE::SIZE (INTEGER 0)) ; (LET ((LPARALLEL.COGNATE::FN ; (ALEXANDRIA:ENSURE-FUNCTION LPARALLEL.COGNATE::FN)) ; (LPARALLEL.UTIL:INDEX 0)) ; (APPLY MAP ; (LAMBDA (&REST LPARALLEL.COGNATE::ARGS) ; (DECLARE #) ; (DECLARE #) ; (WHEN # #) ; (APPLY LPARALLEL.COGNATE::FN LPARALLEL.COGNATE::ARGS) ; (INCF LPARALLEL.UTIL:INDEX)) ; LPARALLEL.COGNATE::SEQS))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; ==> ; (BLOCK LPARALLEL.COGNATE::MAP-ITERATE ; (CHECK-TYPE LPARALLEL.COGNATE::SIZE (INTEGER 0)) ; (LET ((LPARALLEL.COGNATE::FN ; (ALEXANDRIA:ENSURE-FUNCTION LPARALLEL.COGNATE::FN)) ; (LPARALLEL.UTIL:INDEX 0)) ; (APPLY MAP ; (LAMBDA (&REST LPARALLEL.COGNATE::ARGS) ; (DECLARE #) ; (DECLARE #) ; (WHEN # #) ; (APPLY LPARALLEL.COGNATE::FN LPARALLEL.COGNATE::ARGS) ; (INCF LPARALLEL.UTIL:INDEX)) ; LPARALLEL.COGNATE::SEQS))) ; ; note: Allocating a value-cell at runtime for checking possibly out of extent exit via ; (RETURN-FROM MAP-ITERATE NIL). Use GO/RETURN-FROM with SAFETY 0, or declare the ; exit function DYNAMIC-EXTENT to avoid. ; (EQL LPARALLEL.UTIL:INDEX LPARALLEL.COGNATE::SIZE) ; ; note: forced to do %EQL/INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; (INCF LPARALLEL.UTIL:INDEX) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFUN PMAP-INTO/POWDER/ARRAY ...) ; processing (DEFUN PMAP-INTO/POWDER/LIST ...) ; processing (DEFUN PMAP-INTO/POWDER ...) ; processing (DEFUN PMAP-INTO/PARSED ...) ; processing (DEFUN PMAP-INTO/UNPARSED ...) ; processing (DEFUN PMAP-INTO ...) ; processing (DEFUN PMAP-ITERATE/PARTS ...) ; processing (DEFUN PMAP-ITERATE/POWDER ...) ; processing (DEFUN PMAP-ITERATE ...) ; processing (DEFUN PMAP/PARSED ...) ; processing (DEFUN PMAP/UNPARSED ...) ; processing (DEFUN PMAP ...) ; processing (DEFUN PMAPCAR ...) ; processing (DEFUN PMAPLIST-INTO ...) ; processing (DEFUN PMAPLIST ...) ; processing (DEFUN PMAPL ...) ; processing (DEFUN PMAPC ...) ; processing (DEFUN PMAPCAN ...) ; processing (DEFUN PMAPCON ...) ; processing (DEFUN PMAP-REDUCE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/cognate/pmap-tmpXY4FGAPA.fasl ; compilation finished in 0:00:00.031 ; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/pmap-open-coded.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.COGNATE) ; processing (DEFMACRO CHECK-SYMBOLS ...) ; processing (DEFMACRO DEFMACRO/SYMS ...) ; processing (DEFUN QUOTEDP ...) ; processing (DEFUN QUOTED-VECTOR-TYPE-P ...) ; processing (DEFMACRO/SYMS MAP-INTO/VECTOR/1-VECTOR/RANGE ...) ; processing (DEFMACRO/SYMS PMAP-INTO/VECTOR/1-VECTOR ...) ; processing (DEFINE-COMPILER-MACRO PMAP-INTO ...) ; processing (DEFINE-COMPILER-MACRO PMAP ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/cognate/pmap-open-coded-tmp1MDGH4SW.fasl ; compilation finished in 0:00:00.030 ; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/pdotimes.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.COGNATE) ; processing (DEFUN %PDOTIMES ...) ; processing (DEFMACRO/ONCE PDOTIMES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/cognate/pdotimes-tmpV8WTFLZM.fasl ; compilation finished in 0:00:00.009 ; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/pquantifier.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.COGNATE) ; processing (DEFUN PQUANTIFIER ...) ; processing (DEFUN PEVERY ...) ; processing (DEFUN PSOME ...) ; processing (DEFUN PNOTEVERY ...) ; processing (DEFUN PNOTANY ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/cognate/pquantifier-tmpX2YW1LTJ.fasl ; compilation finished in 0:00:00.006 ; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/preduce.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.COGNATE) ; processing (DEFMACRO WITH-PREDUCE-CONTEXT ...) ; processing (DEFUN PREDUCE-PARTIAL/VECTOR ...) ; processing (DEFUN PREDUCE-PARTIAL/LIST ...) ; processing (DEFUN %PREDUCE-PARTIAL ...) ; processing (DEFUN PREDUCE/COMMON ...) ; processing (DEFUN PREDUCE ...) ; processing (DEFUN PREDUCE-PARTIAL ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/cognate/preduce-tmpLB88W1T5.fasl ; compilation finished in 0:00:00.026 ; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/premove.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.COGNATE) ; processing (DEFUN PREMOVE-IF-NOT/LIST ...) ; processing (DEFUN PREMOVE-IF-NOT ...) ; processing (DEFUN PREMOVE-IF ...) ; processing (DEFUN PREMOVE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/cognate/premove-tmp3F80YMF6.fasl ; compilation finished in 0:00:00.013 ; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/pfind.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.COGNATE) ; processing (DEFMACRO WITH-PFIND-CONTEXT ...) ; processing (DEFUN PFIND-IF/VECTOR ...) ; processing (DEFUN PFIND-IF/LIST ...) ; processing (DEFUN PFIND-IF ...) ; processing (DEFUN PFIND-IF-NOT ...) ; processing (DEFUN PFIND ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/cognate/pfind-tmpJJORT7HU.fasl ; compilation finished in 0:00:00.043 ; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/pcount.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.COGNATE) ; processing (DEFUN PCOUNT-IF ...) ; processing (DEFUN PCOUNT-IF-NOT ...) ; processing (DEFUN PCOUNT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/cognate/pcount-tmp5DBB8JTB.fasl ; compilation finished in 0:00:00.011 ; compiling file "/usr/share/common-lisp/source/lparallel/src/cognate/psort.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.COGNATE) ; processing (DEFUN/TYPE/INLINE MIDPOINT ...) ; processing (DEFMACRO DEFINE-QUICKSORT-FN ...) ; processing (DEFMACRO DEFINE-QUICKSORT-FNS ...) ; processing (DEFINE-QUICKSORT-FNS) ; processing (LPARALLEL.DEFPUN::DELETE-REGISTERED-NAMES (QUOTE #)) ; processing (DEFUN CALL-QUICKSORT ...) ; processing (DEFUN PSORT ...) ; processing (SETF (DOCUMENTATION # ...) ...) ; processing (DEFUN PSORT* ...) ; processing (DEFINE-COMPILER-MACRO PSORT* ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/cognate/psort-tmpZSBL0HHQ.fasl ; compilation finished in 0:00:00.067 ; compiling file "/usr/share/common-lisp/source/lparallel/src/package.lisp" (written 20 JUL 2016 02:52:58 PM): ; processing (IN-PACKAGE #:LPARALLEL.KERNEL) ; processing (MACROLET (#) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/lparallel/src/package-tmpV1RXKPB.fasl ; compilation finished in 0:00:00.005 ; compiling file "/usr/share/common-lisp/source/esrap/src/package.lisp" (written 20 DEC 2021 02:01:41 PM): ; processing (DEFPACKAGE #:ESRAP ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/esrap/src/package-tmp3SZ0XWQD.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/esrap/src/types.lisp" (written 08 OCT 2021 11:40:58 AM): ; processing (IN-PACKAGE #:ESRAP) ; processing (DEFTYPE INPUT-POSITION ...) ; processing (DEFTYPE INPUT-LENGTH ...) ; processing (DEFTYPE LEFT-RECURSION-POLICY ...) ; processing (DEFTYPE NONTERMINAL ...) ; processing (DEFTYPE TERMINAL ...) ; processing (DEFTYPE CHARACTER-RANGE ...) ; processing (DEFTYPE PREDICATE-NAME ...) ; processing (DEFTYPE PREDICATE ...) ; processing (DEFTYPE CACHE-POLICY ...) ; processing (DEFTYPE ERROR-REPORT-PART ...) ; processing (DEFTYPE RULE-ERROR-REPORT ...) ; processing (DEFTYPE RULE-ERROR-REPORT-PATTERN ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN ERROR-REPORT-BEHAVIOR-SUITABLE-FOR-REPORT-PART-P ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/esrap/src/types-tmp9YHAVVS9.fasl ; compilation finished in 0:00:00.005 ; compiling file "/usr/share/common-lisp/source/esrap/src/protocol.lisp" (written 08 OCT 2021 11:40:58 AM): ; processing (IN-PACKAGE #:ESRAP) ; processing (DEFGENERIC ESRAP-ERROR-POSITION ...) ; processing (DEFGENERIC ESRAP-PARSE-ERROR-RESULT ...) ; processing (DEFGENERIC ESRAP-PARSE-ERROR-CONTEXT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/esrap/src/protocol-tmp92WUBED1.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/esrap/src/variables.lisp" (written 08 OCT 2021 11:40:58 AM): ; processing (IN-PACKAGE #:ESRAP) ; processing (DECLAIM (TYPE LEFT-RECURSION-POLICY ...)) ; processing (DEFVAR *ON-LEFT-RECURSION* ...) ; processing (DEFPARAMETER *EVAL-NONTERMINALS* ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/esrap/src/variables-tmpAHBBVXUF.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/esrap/src/conditions.lisp" (written 08 OCT 2021 11:40:58 AM): ; processing (IN-PACKAGE #:ESRAP) ; processing (DEFINE-CONDITION INVALID-EXPRESSION-ERROR ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN INVALID-EXPRESSION-ERROR ...) ; processing (DEFINE-CONDITION ESRAP-ERROR ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFINE-CONDITION ESRAP-PARSE-ERROR ...) ; processing (DEFMETHOD ESRAP-ERROR-POSITION ...) ; processing (DEFMETHOD ESRAP-PARSE-ERROR-CONTEXT ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN ESRAP-PARSE-ERROR ...) ; file: /usr/share/common-lisp/source/esrap/src/conditions.lisp ; in: DEFUN ESRAP-PARSE-ERROR ; (DEFUN ESRAP:ESRAP-PARSE-ERROR (ESRAP:TEXT ESRAP::RESULT) ; (ERROR 'ESRAP:ESRAP-PARSE-ERROR :TEXT ESRAP:TEXT :RESULT ESRAP::RESULT)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; ==> ; (SB-C::%FUNCALL #'ESRAP-PARSE-ERROR #:G1 #:G2) ; ; note: can't open-code test of unknown type RESULT ; processing (DEFINE-CONDITION LEFT-RECURSION ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN LEFT-RECURSION ...) ; processing (DEFINE-CONDITION UNDEFINED-RULE ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFINE-CONDITION UNDEFINED-RULE-ERROR ...) ; processing (DEFUN UNDEFINED-RULE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/esrap/src/conditions-tmpFIDDIIG7.fasl ; compilation finished in 0:00:00.031 ; compiling file "/usr/share/common-lisp/source/esrap/src/expressions.lisp" (written 08 OCT 2021 11:40:58 AM): ; processing (IN-PACKAGE #:ESRAP) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFMACRO WITH-EXPRESSION ...) ; processing (DEFUN CHECK-FUNCTION-REFERENCE ...) ; processing (DEFUN CHECK-EXPRESSION ...) ; processing (DEFUN %EXPRESSION-DEPENDENCIES ...) ; processing (DEFUN %EXPRESSION-DIRECT-DEPENDENCIES ...) ; processing (DEFUN EXPRESSION-START-TERMINALS ...) ; processing (DEFUN EXPRESSION< ...) ; processing (DEFUN EXPRESSION-EQUAL-P ...) ; processing (DEFUN EXPRESSION-SIMPLE-P ...) ; processing (DEFUN DESCRIBE-TERMINAL ...) ; processing (DEFUN PRINT-TERMINAL ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/esrap/src/expressions-tmpB1G5I0B3.fasl ; compilation finished in 0:00:00.231 ; compiling file "/usr/share/common-lisp/source/esrap/src/rule.lisp" (written 08 OCT 2021 11:40:58 AM): ; processing (IN-PACKAGE #:ESRAP) ; processing (MACROLET (#) ...) ; processing (DEFCONSTANT +DEFAULT-RULE-PROPERTIES+ ...) ; processing (DEFVAR *RULES* ...) ; processing (DEFUN CLEAR-RULES ...) ; processing (DEFSTRUCT (RULE-CELL # ...) ...) ; processing (DECLAIM (INLINE CELL-FUNCTION)) ; processing (DEFUN CELL-FUNCTION ...) ; processing (DEFUN CELL-RULE ...) ; processing (DEFUN SET-CELL-INFO ...) ; processing (DEFUN UNDEFINED-RULE-FUNCTION ...) ; processing (DEFUN ENSURE-RULE-CELL ...) ; processing (DEFUN DELETE-RULE-CELL ...) ; processing (DEFUN REFERENCE-RULE-CELL ...) ; processing (DEFUN DEREFERENCE-RULE-CELL ...) ; processing (DEFUN FIND-RULE-CELL ...) ; processing (DEFCLASS RULE ...) ; processing (SETF (DOCUMENTATION # ...) ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN RULE-SUITABLE-FOR-REPORT-PART-P ...) ; processing (DEFUN DETACH-RULE ...) ; processing (DEFMETHOD SHARED-INITIALIZE ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN SORT-DEPENDENCIES ...) ; processing (DEFUN RULE-DEPENDENCIES ...) ; processing (DEFUN RULE-DIRECT-DEPENDENCIES ...) ; processing (DEFUN %RULE-DIRECT-DEPENDENCIES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/esrap/src/rule-tmp6W3P1H2J.fasl ; compilation finished in 0:00:00.037 ; compiling file "/usr/share/common-lisp/source/esrap/src/results.lisp" (written 08 OCT 2021 11:40:58 AM): ; processing (IN-PACKAGE #:ESRAP) ; processing (DEFSTRUCT (RESULT # ...) ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN RESULT-POSITION ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFSTRUCT (ERROR-RESULT # ...)) ; processing (DEFSTRUCT (INACTIVE-RULE # ...)) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN INACTIVE-RULE-RULE ...) ; processing (DEFSTRUCT (FAILED-PARSE # ...)) ; processing (DECLAIM (INLINE MAKE-LEFT-RECURSION-RESULT ...)) ; processing (DEFSTRUCT (LEFT-RECURSION-RESULT # ...) ...) ; file: /usr/share/common-lisp/source/esrap/src/results.lisp ; in: DEFSTRUCT LEFT-RECURSION-RESULT ; (ESRAP::HEAD NIL :TYPE (OR NULL ESRAP::HEAD)) ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET SB-KERNEL:THE* MULTIPLE-VALUE-BIND ; --> LET PROGN UNLESS IF OR LET IF ; ==> ; (TYPEP #:G28 'ESRAP::HEAD) ; ; note: can't open-code test of unknown type HEAD ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN LEFT-RECURSION-RESULT-RULE ...) ; processing (DEFSTRUCT (SUCCESSFUL-PARSE # ...) ...) ; processing (DEFUN SUCCESSFUL-PARSE-PRODUCTION ...) ; processing (DEFMACRO MAKE-SUCCESSFUL-PARSE ...) ; processing (DEFUN RESULT-NONTERMINAL-P ...) ; processing (DEFUN RESULT-UNSATISFIED-PREDICATE-P ...) ; processing (DEFUN RESULT-TRIVIAL-PREDICATE-P ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN RESULT-SUITABLE-FOR-REPORT-PART-P ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN MAX-OF-RESULT-POSITIONS ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN LIST-OF-RESULT-PRODUCTIONS ...) ; processing (DEFUN LIST-OF-RESULT-PRODUCTIONS/BUTLAST ...) ; processing (DEFUN MAYBE-AUGMENT-INACTIVE-RULES ...) ; processing (DECLAIM (FTYPE # ...) ...) ; processing (DEFUN MAP-RESULTS ...) ; processing (DEFUN MAP-MAX-RESULTS ...) ; processing (DEFUN MAP-MAX-LEAF-RESULTS ...) ; processing (DECLAIM (INLINE FLATTENED-CHILDREN)) ; processing (DEFUN FLATTENED-CHILDREN ...) ; processing (DEFUN RESULT-CONTEXT ...) ; processing (DEFUN RESULT-ROOT-CAUSE ...) ; processing (DEFUN RESULT-EXPECTED-INPUT ...) ; processing (DEFUN PARTITION-RESULTS ...) ; processing (DEFUN ERROR-REPORT ...) ; processing (DEFVAR *RESULT-PPRINT-DISPATCH* ...) ; processing (DEFUN PRINT-RESULT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/esrap/src/results-tmpGOHEOA1Y.fasl ; compilation finished in 0:00:00.126 ; compiling file "/usr/share/common-lisp/source/esrap/src/cache/chunk.lisp" (written 08 OCT 2021 11:40:58 AM): ; processing (IN-PACKAGE #:ESRAP) ; processing (DEFCONSTANT +CHUNK-DIVISOR+ ...) ; processing (DEFTYPE CHUNK ...) ; processing (DECLAIM (INLINE MAKE-CHUNK)) ; processing (DEFUN MAKE-CHUNK ...) ; processing (DEFTYPE CHUNK-ARRAY ...) ; processing (DECLAIM (INLINE %MAKE-CHUNK-ARRAY)) ; processing (DEFUN %MAKE-CHUNK-ARRAY ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN MAKE-CHUNK-ARRAY ...) ; processing (DECLAIM (INLINE CHUNK-CACHE-CHUNKS)) ; processing (DEFSTRUCT (CHUNK-CACHE # ...) ...) ; processing (DECLAIM (SB-EXT:FREEZE-TYPE CHUNK-CACHE)) ; processing (DECLAIM (FTYPE # ...) ...) ; processing (DEFUN FIND-CHUNK ...) ; processing (DECLAIM (NOTINLINE FIND-CHUNK)) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN ENSURE-CHUNK ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/esrap/src/cache/chunk-tmpT2G5POAL.fasl ; compilation finished in 0:00:00.009 ; compiling file "/usr/share/common-lisp/source/esrap/src/cache/packrat.lisp" (written 08 OCT 2021 11:40:58 AM): ; processing (IN-PACKAGE #:ESRAP) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN CACHED ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN (SETF CACHED) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/esrap/src/cache/packrat-tmpT5NQ1VS1.fasl ; compilation finished in 0:00:00.011 ; compiling file "/usr/share/common-lisp/source/esrap/src/context.lisp" (written 08 OCT 2021 11:40:58 AM): ; processing (IN-PACKAGE #:ESRAP) ; processing (DECLAIM (INLINE MAKE-CACHE ...)) ; processing (DEFUN MAKE-CACHE ...) ; processing (DEFUN GET-CACHED ...) ; processing (DEFUN (SETF GET-CACHED) ...) ; processing (DEFSTRUCT (HEAD # ...) ...) ; processing (DECLAIM (INLINE MAKE-HEADS ...)) ; processing (DEFUN MAKE-HEADS ...) ; processing (DEFUN GET-HEAD ...) ; processing (DEFUN (SETF GET-HEAD) ...) ; processing (DEFUN RECALL ...) ; processing (DECLAIM (INLINE MAKE-CONTEXT ...)) ; processing (DEFSTRUCT (CONTEXT #) ...) ; processing (DECLAIM (SB-EXT:FREEZE-TYPE CONTEXT)) ; processing (DECLAIM (TYPE CONTEXT ...)) ; processing (DEFVAR *CONTEXT* ...) ; processing (DEFMACRO WITH-PUSHED-NONTERMINAL ...) ; processing (DEFMACRO WITH-CACHED-RESULT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/esrap/src/context-tmpZVTPRQAR.fasl ; compilation finished in 0:00:00.030 ; compiling file "/usr/share/common-lisp/source/esrap/src/evaluator.lisp" (written 08 OCT 2021 11:40:58 AM): ; processing (IN-PACKAGE #:ESRAP) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN RESOLVE-FUNCTION ...) ; processing (DEFVAR *CURRENT-RULE* ...) ; processing (DEFUN RULE-TRIVIAL-P ...) ; processing (DEFUN COMPILE-RULE ...) ; processing (DEFUN EVAL-EXPRESSION ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN COMPILE-EXPRESSION ...) ; processing (DEFMACRO EXPRESSION-LAMBDA ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN EVAL-CHARACTER ...) ; processing (DEFUN COMPILE-CHARACTER ...) ; processing (DECLAIM (INLINE EXEC-STRING)) ; processing (DEFUN EXEC-STRING ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN EVAL-STRING ...) ; processing (DEFUN COMPILE-STRING ...) ; processing (DECLAIM (INLINE MATCH-TERMINAL/CASE-SENSITIVE-P ...)) ; processing (DEFUN MATCH-TERMINAL/CASE-SENSITIVE-P ...) ; processing (DEFUN MATCH-TERMINAL/CASE-INSENSITIVE-P ...) ; processing (DEFUN MATCH-TERMINAL/1/CASE-SENSITIVE-P ...) ; processing (DEFUN MATCH-TERMINAL/1/CASE-INSENSITIVE-P ...) ; processing (DEFUN EVAL-TERMINAL ...) ; processing (DEFUN COMPILE-TERMINAL ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN EXEC-TERMINAL-FUNCTION ...) ; processing (DEFUN EVAL-TERMINAL-FUNCTION ...) ; processing (DEFUN COMPILE-TERMINAL-FUNCTION ...) ; processing (DEFUN EXEC-NONTERMINAL ...) ; processing (DEFUN EVAL-NONTERMINAL ...) ; processing (DEFUN COMPILE-NONTERMINAL ...) ; processing (DEFUN EVAL-SEQUENCE ...) ; processing (DEFUN COMPILE-SEQUENCE ...) ; processing (DECLAIM (INLINE MAKE-ORDERED-CHOISE-RESULT)) ; processing (DEFUN MAKE-ORDERED-CHOISE-RESULT ...) ; processing (DEFUN EVAL-ORDERED-CHOISE ...) ; processing (DEFUN CHECK-ORDERED-CHOISE-PREFIX ...) ; processing (DEFUN ANALYZE-ORDERED-CHOISE ...) ; processing (DEFUN COMPILE-ORDERED-CHOISE ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN EXEC-NEGATION ...) ; processing (DEFUN EVAL-NEGATION ...) ; processing (DEFUN COMPILE-NEGATION ...) ; processing (DEFUN EVAL-GREEDY-REPETITION ...) ; processing (DEFUN COMPILE-GREEDY-REPETITION ...) ; processing (DEFUN EVAL-GREEDY-POSITIVE-REPETITION ...) ; processing (DEFUN COMPILE-GREEDY-POSITIVE-REPETITION ...) ; processing (DEFUN EVAL-OPTIONAL ...) ; processing (DEFUN COMPILE-OPTIONAL ...) ; processing (DEFUN EVAL-FOLLOWED-BY ...) ; processing (DEFUN COMPILE-FOLLOWED-BY ...) ; processing (DEFUN EVAL-NOT-FOLLOWED-BY ...) ; processing (DEFUN COMPILE-NOT-FOLLOWED-BY ...) ; processing (MACROLET (#) ...) ; processing (DEFUN EVAL-SEMANTIC-PREDICATE ...) ; processing (DEFUN COMPILE-SEMANTIC-PREDICATE ...) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN EXEC-CHARACTER-RANGES ...) ; processing (DEFUN EVAL-CHARACTER-RANGES ...) ; processing (DEFUN COMPILE-CHARACTER-RANGES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/esrap/src/evaluator-tmpTWZBZGN3.fasl ; compilation finished in 0:00:00.273 ; compiling file "/usr/share/common-lisp/source/esrap/src/macros.lisp" (written 20 DEC 2021 02:01:41 PM): ; processing (IN-PACKAGE #:ESRAP) ; processing (DEFUN TEXT ...) ; processing (DEFUN SINGLETON-OPTION ...) ; processing (DEFUN PARSE-LAMBDA-LIST-MAYBE-CONTAINING-&BOUNDS ...) ; processing (DEFUN CHECK-LAMBDA-LIST ...) ; processing (DEFUN PARSE-DEFRULE-OPTIONS ...) ; processing (DEFUN EXPAND-TRANSFORMS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/esrap/src/macros-tmpVLA2P6BV.fasl ; compilation finished in 0:00:00.039 ; compiling file "/usr/share/common-lisp/source/esrap/src/interface.lisp" (written 08 OCT 2021 11:40:58 AM): ; processing (IN-PACKAGE #:ESRAP) ; processing (DEFUN PARSE ...) ; processing (DEFINE-COMPILER-MACRO PARSE ...) ; processing (DEFUN PROCESS-PARSE-RESULT ...) ; processing (DEFMACRO DEFRULE ...) ; processing (DEFUN ADD-RULE ...) ; processing (DEFUN FIND-RULE ...) ; processing (DEFUN REMOVE-RULE ...) ; processing (DEFVAR *TRACE-LEVEL* ...) ; processing (DEFUN TRACE-RULE ...) ; processing (DEFUN UNTRACE-RULE ...) ; processing (DEFUN UNTRACE-ALL-RULES ...) ; processing (DEFUN RULE-EXPRESSION ...) ; processing (DEFUN (SETF RULE-EXPRESSION) ...) ; processing (DEFUN CHANGE-RULE ...) ; processing (DEFUN DESCRIBE-GRAMMAR ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/esrap/src/interface-tmpC1S9JRL9.fasl ; compilation finished in 0:00:00.056 ; compiling file "/usr/share/common-lisp/source/esrap/src/editor-support.lisp" (written 08 OCT 2021 11:40:58 AM): ; processing (IN-PACKAGE #:ESRAP) ; processing (DEFVAR *INDENTATION-HINT-TABLE* ...) ; processing (DEFUN HINT-SLIME-INDENTATION ...) ; processing (HINT-SLIME-INDENTATION) ; processing (DEFUN HINT-SLY-INDENTATION ...) ; processing (HINT-SLY-INDENTATION) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/esrap/src/editor-support-tmpYZ5WO3E4.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/puri/src.lisp" (written 30 SEP 2020 05:54:46 PM): ; processing (DEFPACKAGE #:PURI ...) ; processing (IN-PACKAGE #:PURI) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL) ...) ; processing (DEFUN PARSE-BODY ...) ; processing (DEFUN SHRINK-VECTOR ...) ; processing (DEFINE-CONDITION URI-PARSE-ERROR ...) ; processing (DEFUN .PARSE-ERROR ...) ; processing (DEFUN INTERNAL-READER-ERROR ...) ; processing (DEFVAR *CURRENT-CASE-MODE* ...) ; processing (DEFMETHOD POSITION-CHAR ...) ; file: /usr/share/common-lisp/source/puri/src.lisp ; in: DEFMETHOD POSITION-CHAR (T STRING T T) ; (CHAR STRING PURI::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; processing (DEFUN DELIMITED-STRING-TO-LIST ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFCLASS URI ...) ; processing (DEFCLASS URN ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE) ...) ; processing (CLEAR-CACHING-ON-SLOT-CHANGE URI-SCHEME) ; processing (CLEAR-CACHING-ON-SLOT-CHANGE URI-HOST) ; processing (CLEAR-CACHING-ON-SLOT-CHANGE URI-PORT) ; processing (CLEAR-CACHING-ON-SLOT-CHANGE URI-PATH) ; processing (CLEAR-CACHING-ON-SLOT-CHANGE URI-QUERY) ; processing (CLEAR-CACHING-ON-SLOT-CHANGE URI-FRAGMENT) ; processing (DEFMETHOD MAKE-LOAD-FORM ...) ; processing (DEFMETHOD URI-P ...) ; processing (DEFMETHOD URI-P ...) ; processing (DEFUN COPY-URI ...) ; processing (DEFMETHOD URI-PARSED-PATH ...) ; processing (DEFMETHOD (SETF URI-PARSED-PATH) ...) ; processing (DEFUN URI-AUTHORITY ...) ; processing (DEFUN URI-NID ...) ; processing (DEFUN URI-NSS ...) ; processing (DEFPARAMETER *EXCLUDED-CHARACTERS* ...) ; processing (DEFUN RESERVED-CHAR-VECTOR ...) ; processing (DEFPARAMETER *RESERVED-CHARACTERS* ...) ; processing (DEFPARAMETER *RESERVED-AUTHORITY-CHARACTERS* ...) ; processing (DEFPARAMETER *RESERVED-PATH-CHARACTERS* ...) ; processing (DEFPARAMETER *RESERVED-FRAGMENT-CHARACTERS* ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE) ...) ; processing (DEFPARAMETER *VALID-NID-CHARACTERS* ...) ; processing (DEFPARAMETER *RESERVED-NSS-CHARACTERS* ...) ; processing (DEFPARAMETER *ILLEGAL-CHARACTERS* ...) ; processing (DEFPARAMETER *STRICT-ILLEGAL-QUERY-CHARACTERS* ...) ; processing (DEFPARAMETER *ILLEGAL-QUERY-CHARACTERS* ...) ; processing (DEFPARAMETER *VALID-IP6-CHARACTERS* ...) ; processing (DEFUN PARSE-URI ...) ; file: /usr/share/common-lisp/source/puri/src.lisp ; in: DEFUN PARSE-URI ; (FUNCALL ; (CASE PURI::*CURRENT-CASE-MODE* ; ((:CASE-INSENSITIVE-UPPER :CASE-SENSITIVE-UPPER) #'STRING-UPCASE) ; ((:CASE-INSENSITIVE-LOWER :CASE-SENSITIVE-LOWER) #'STRING-DOWNCASE)) ; (PURI::DECODE-ESCAPED-ENCODING PURI::SCHEME PURI::ESCAPE)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (PLUSP PURI::PORT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (STRING= "" PURI::PATH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (STRING= "/" PURI::PATH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (PLUSP PURI::PORT) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; etc. ; processing (DEFMETHOD URI ...) ; processing (DEFMETHOD URI ...) ; processing (DEFMETHOD URI ...) ; processing (DEFVAR *STRICT-PARSE* ...) ; processing (DEFUN PARSE-URI-STRING ...) ; file: /usr/share/common-lisp/source/puri/src.lisp ; in: DEFUN PARSE-URI-STRING ; (LENGTH STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CHAR STRING PURI::START) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (SUBSEQ STRING PURI::SINDEX PURI::START) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (PURI::FAILURE (&OPTIONAL PURI::WHY) ; (PURI::.PARSE-ERROR "illegal URI: ~s [~d]~@[: ~a~]" STRING PURI::STATE ; PURI::WHY)) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; processing (DEFUN ESCAPE-P ...) ; file: /usr/share/common-lisp/source/puri/src.lisp ; in: DEFUN ESCAPE-P ; (LENGTH STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CHAR STRING PURI::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; processing (DEFUN PARSE-PATH ...) ; file: /usr/share/common-lisp/source/puri/src.lisp ; in: DEFUN PARSE-PATH ; (STRING= "" (CAR PURI::XPATH-LIST)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (STRING= "" (CAR PURI::PL)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; processing (DEFUN DECODE-ESCAPED-ENCODING ...) ; file: /usr/share/common-lisp/source/puri/src.lisp ; in: DEFUN DECODE-ESCAPED-ENCODING ; (LENGTH STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (COPY-SEQ STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (CHAR STRING PURI::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR STRING (INCF PURI::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. ; (1+ PURI::I) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (1+ PURI::NEW-I) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFUN RENDER-URI ...) ; file: /usr/share/common-lisp/source/puri/src.lisp ; in: DEFUN RENDER-URI ; (FORMAT STREAM "~a" (PURI::URI-STRING PURI:URI)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING (MEMBER T) STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING (MEMBER . #1=(T)) STREAM), not a (MEMBER ; . #1#). ; processing (DEFUN RENDER-PARSED-PATH ...) ; processing (DEFUN RENDER-URN ...) ; file: /usr/share/common-lisp/source/puri/src.lisp ; in: DEFUN RENDER-URN ; (FORMAT STREAM "~a" (PURI::URI-STRING PURI:URN)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING (MEMBER T) STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING (MEMBER . #1=(T)) STREAM), not a (MEMBER ; . #1#). ; processing (DEFPARAMETER *ESCAPED-ENCODING* ...) ; processing (DEFUN ENCODE-ESCAPED-ENCODING ...) ; file: /usr/share/common-lisp/source/puri/src.lisp ; in: DEFUN ENCODE-ESCAPED-ENCODING ; (LENGTH STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CHAR STRING PURI::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (ELT PURI::*ESCAPED-ENCODING* PURI::Q) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (ELT PURI::*ESCAPED-ENCODING* PURI::R) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (INCF PURI::NEW-I) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES FIXNUM &REST ; T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; --> THE ; ==> ; (+ 1 PURI::NEW-I) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES FIXNUM &REST ; T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER -1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES FIXNUM &REST ; T). ; etc. ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFMETHOD MERGE-URIS ...) ; processing (DEFMETHOD MERGE-URIS ...) ; processing (DEFMETHOD MERGE-URIS ...) ; processing (DEFMETHOD MERGE-URIS ...) ; file: /usr/share/common-lisp/source/puri/src.lisp ; in: DEFMETHOD MERGE-URIS (URI URI) ; (STRING= PURI::A ; (PURI::IF* (ATOM PURI::B) PURI::THEN PURI::B PURI::ELSE ; (CAR PURI::B))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; The second argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER ; . #1=((*))). ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER ; . #1#). ; (STRING= "." (CAR LAST)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (STRING= "." (CAAR LAST)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (STRING= ".." ; (LET ((PURI::L (CAR #))) ; (PURI::IF* (ATOM PURI::L) PURI::THEN PURI::L PURI::ELSE ; (CAR PURI::L)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (POSITION ".." PURI::NPL :TEST ; #'(LAMBDA (PURI::A PURI::B) ; (STRING= PURI::A ; (PURI::IF* (ATOM PURI::B) PURI::THEN PURI::B ; PURI::ELSE (CAR PURI::B))))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (STRING= PURI::A PURI::B) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; The second argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER ; . #1=((*))). ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER ; . #1#). ; processing (DEFMETHOD ENOUGH-URI ...) ; processing (DEFMETHOD ENOUGH-URI ...) ; processing (DEFMETHOD ENOUGH-URI ...) ; processing (DEFMETHOD ENOUGH-URI ...) ; processing (DEFUN MAKE-URI-SPACE ...) ; processing (DEFUN GETHASH-URI ...) ; processing (DEFUN PUTHASH-URI ...) ; processing (DEFUN URI-HASH ...) ; processing (DEFVAR *URIS* ...) ; processing (DEFUN URI-SPACE ...) ; processing (DEFUN (SETF URI-SPACE) ...) ; processing (WHEN (FBOUNDP #) ...) ; processing (DEFGENERIC URI= ...) ; processing (DEFMETHOD URI= ...) ; file: /usr/share/common-lisp/source/puri/src.lisp ; in: DEFMETHOD URI= (URI URI) ; (STRING= (PURI:URI-PATH PURI::URI1) (PURI:URI-PATH PURI::URI2)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; The second argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER ; . #1=((*))). ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER ; . #1#). ; (STRING= (PURI:URI-QUERY PURI::URI1) (PURI:URI-QUERY PURI::URI2)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; The second argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER ; . #1=((*))). ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER ; . #1#). ; (STRING= (PURI:URI-FRAGMENT PURI::URI1) (PURI:URI-FRAGMENT PURI::URI2)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; The second argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER ; . #1=((*))). ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER ; . #1#). ; (EQL (OR (PURI:URI-PORT PURI::URI1) PURI::DEFAULT-PORT) ; (OR (PURI:URI-PORT PURI::URI2) PURI::DEFAULT-PORT)) ; ; note: forced to do IF-EQL (cost 15) ; unable to do #1=inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do #1# (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; processing (DEFMETHOD URI= ...) ; processing (DEFUN URN-NSS-EQUAL ...) ; file: /usr/share/common-lisp/source/puri/src.lisp ; in: DEFUN URN-NSS-EQUAL ; (LENGTH PURI::NSS1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (LENGTH PURI::NSS2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (CHAR PURI::NSS1 PURI::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR PURI::NSS2 PURI::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR-NOT-EQUAL PURI::C1 PURI::C2) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; processing (DEFMETHOD INTERN-URI ...) ; processing (DEFMETHOD INTERN-URI ...) ; processing (DEFUN UNINTERN-URI ...) ; processing (DEFMACRO DO-ALL-URIS ...) ; processing (DEFUN SHARP-U ...) ; processing (SET-DISPATCH-MACRO-CHARACTER #\# ...) ; processing (PROVIDE :URI) ; processing (DEFUN GC ...) ; processing (DEFUN TIME-URI-MODULE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/puri/src-tmpHJA5IVPZ.fasl ; compilation finished in 0:00:00.251 ; compiling file "/usr/share/common-lisp/source/chunga/packages.lisp" (written 22 FEB 2022 01:13:47 PM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE :CHUNGA ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chunga/packages-tmp3WS4A21E.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/chunga/specials.lisp" (written 22 FEB 2022 01:13:47 PM): ; processing (IN-PACKAGE :CHUNGA) ; processing (DEFMACRO DEFINE-CONSTANT ...) ; processing (DEFCONSTANT +OUTPUT-BUFFER-SIZE+ ...) ; processing (DEFINE-CONSTANT +CRLF+ ...) ; processing (DEFINE-CONSTANT +HEX-DIGITS+ ...) ; processing (DEFVAR *CURRENT-ERROR-MESSAGE* ...) ; processing (DEFVAR *CURRENT-ERROR-FUNCTION* ...) ; processing (DEFVAR *ACCEPT-BOGUS-EOLS* ...) ; processing (DEFVAR *TREAT-SEMICOLON-AS-CONTINUATION* ...) ; processing (DEFVAR *CHAR-BUFFER* ...) ; processing (PUSHNEW :CHUNGA ...) ; processing (DEFVAR *HYPERDOC-BASE-URI* ...) ; processing (LET (#) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chunga/specials-tmpPQ4U054N.fasl ; compilation finished in 0:00:00.007 ; compiling file "/usr/share/common-lisp/source/chunga/util.lisp" (written 22 FEB 2022 01:13:47 PM): ; processing (IN-PACKAGE :CHUNGA) ; processing (DEFMACRO WHEN-LET ...) ; processing (DEFUN ENDS-WITH-P ...) ; processing (DEFUN MAKE-KEYWORD ...) ; processing (DEFUN READ-CHAR* ...) ; processing (DEFUN UNREAD-CHAR* ...) ; processing (DEFUN PEEK-CHAR* ...) ; processing (DEFMACRO WITH-CHARACTER-STREAM-SEMANTICS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chunga/util-tmpC8SA9SZN.fasl ; compilation finished in 0:00:00.026 ; compiling file "/usr/share/common-lisp/source/chunga/known-words.lisp" (written 22 FEB 2022 01:13:47 PM): ; processing (IN-PACKAGE :CHUNGA) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFINE-CONSTANT +STRING-TO-KEYWORD-HASH+ ...) ; processing (DEFINE-CONSTANT +KEYWORD-TO-STRING-HASH+ ...) ; processing (DEFUN AS-KEYWORD ...) ; processing (DEFUN AS-CAPITALIZED-STRING ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chunga/known-words-tmpWC0QU1SK.fasl ; compilation finished in 0:00:00.007 ; compiling file "/usr/share/common-lisp/source/chunga/conditions.lisp" (written 22 FEB 2022 01:13:47 PM): ; processing (IN-PACKAGE :CHUNGA) ; processing (DEFINE-CONDITION CHUNGA-CONDITION ...) ; processing (DEFINE-CONDITION CHUNGA-ERROR ...) ; processing (DEFINE-CONDITION CHUNGA-SIMPLE-ERROR ...) ; processing (DEFINE-CONDITION PARAMETER-ERROR ...) ; processing (DEFINE-CONDITION SYNTAX-ERROR ...) ; processing (DEFINE-CONDITION CHUNGA-WARNING ...) ; processing (DEFINE-CONDITION CHUNGA-SIMPLE-WARNING ...) ; processing (DEFINE-CONDITION INPUT-CHUNKING-UNEXPECTED-END-OF-FILE ...) ; processing (DEFINE-CONDITION INPUT-CHUNKING-BODY-CORRUPTED ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chunga/conditions-tmpQQZMKNNN.fasl ; compilation finished in 0:00:00.003 ; compiling file "/usr/share/common-lisp/source/chunga/read.lisp" (written 22 FEB 2022 01:13:47 PM): ; processing (IN-PACKAGE :CHUNGA) ; processing (DEFUN SIGNAL-UNEXPECTED-CHARS ...) ; processing (DEFUN CHARP ...) ; processing (DEFUN CONTROLP ...) ; processing (DEFUN SEPARATORP ...) ; processing (DEFUN WHITESPACEP ...) ; processing (DEFUN TOKEN-CHAR-P ...) ; processing (DEFUN ASSERT-CHAR ...) ; processing (DEFUN ASSERT-CRLF ...) ; processing (DEFUN READ-LINE* ...) ; processing (DEFUN TRIM-WHITESPACE ...) ; file: /usr/share/common-lisp/source/chunga/read.lisp ; in: DEFUN TRIM-WHITESPACE ; (CHAR STRING CHUNGA::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; processing (DEFUN READ-HTTP-HEADERS ...) ; processing (DEFUN SKIP-WHITESPACE ...) ; processing (DEFUN READ-TOKEN ...) ; processing (DEFUN READ-QUOTED-STRING ...) ; processing (DEFUN READ-COOKIE-VALUE ...) ; processing (DEFUN READ-NAME-VALUE-PAIR ...) ; processing (DEFUN READ-NAME-VALUE-PAIRS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chunga/read-tmpIDPPBBFN.fasl ; compilation finished in 0:00:00.033 ; compiling file "/usr/share/common-lisp/source/chunga/streams.lisp" (written 22 FEB 2022 01:13:47 PM): ; processing (IN-PACKAGE :CHUNGA) ; processing (DEFCLASS CHUNKED-STREAM ...) ; processing (DEFCLASS CHUNKED-INPUT-STREAM ...) ; processing (DEFCLASS CHUNKED-OUTPUT-STREAM ...) ; processing (DEFCLASS CHUNKED-IO-STREAM ...) ; processing (DEFMETHOD STREAM-ELEMENT-TYPE ...) ; processing (DEFMETHOD OPEN-STREAM-P ...) ; processing (DEFMETHOD CLOSE ...) ; processing (DEFUN MAKE-CHUNKED-STREAM ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chunga/streams-tmp9FP9ZO2K.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/chunga/input.lisp" (written 22 FEB 2022 01:13:47 PM): ; processing (IN-PACKAGE :CHUNGA) ; processing (DEFMETHOD CHUNKED-INPUT-STREAM-EXTENSIONS ...) ; processing (DEFMETHOD CHUNKED-INPUT-STREAM-TRAILERS ...) ; processing (DEFMETHOD CHUNKED-STREAM-INPUT-CHUNKING-P ...) ; processing (DEFMETHOD (SETF CHUNKED-STREAM-INPUT-CHUNKING-P) ...) ; processing (DEFMETHOD STREAM-CLEAR-INPUT ...) ; processing (DEFMETHOD CHUNKED-INPUT-AVAILABLE-P ...) ; processing (DEFMETHOD STREAM-LISTEN ...) ; processing (DEFMETHOD FILL-BUFFER ...) ; processing (DEFMETHOD STREAM-READ-BYTE ...) ; processing (DEFMETHOD STREAM-READ-SEQUENCE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chunga/input-tmpTHQO2IGY.fasl ; compilation finished in 0:00:00.025 ; compiling file "/usr/share/common-lisp/source/chunga/output.lisp" (written 22 FEB 2022 01:13:47 PM): ; processing (IN-PACKAGE :CHUNGA) ; processing (DEFMETHOD CHUNKED-STREAM-OUTPUT-CHUNKING-P ...) ; processing (DEFMETHOD WRITE-CHUNK ...) ; processing (DEFMETHOD FLUSH-BUFFER ...) ; processing (DEFMETHOD (SETF CHUNKED-STREAM-OUTPUT-CHUNKING-P) ...) ; processing (DEFMETHOD STREAM-CLEAR-OUTPUT ...) ; processing (DEFMETHOD STREAM-FINISH-OUTPUT ...) ; processing (DEFMETHOD STREAM-FORCE-OUTPUT ...) ; processing (DEFMETHOD STREAM-WRITE-BYTE ...) ; processing (DEFMETHOD STREAM-WRITE-SEQUENCE ...) ; processing (DEFMETHOD CLOSE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/chunga/output-tmpXGCY36O9.fasl ; compilation finished in 0:00:00.027 ; compiling file "/usr/share/common-lisp/source/drakma/packages.lisp" (written 17 JUL 2021 04:04:50 PM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE :DRAKMA ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/drakma/packages-tmpAZECCWRG.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/drakma/specials.lisp" (written 17 JUL 2021 04:04:50 PM): ; processing (IN-PACKAGE :DRAKMA) ; processing (DEFPARAMETER *DRAKMA-VERSION* ...) ; processing (DEFMACRO DEFINE-CONSTANT ...) ; processing (DEFINE-CONSTANT +LATIN-1+ ...) ; processing (DEFINE-CONSTANT +REDIRECT-CODES+ ...) ; processing (DEFINE-CONSTANT +REDIRECT-TO-GET-CODES+ ...) ; processing (DEFINE-CONSTANT +KNOWN-METHODS+ ...) ; processing (DEFINE-CONSTANT +REDIRECT-TO-GET-METHODS+ ...) ; processing (DEFCONSTANT +BUFFER-SIZE+ ...) ; processing (DEFVAR *DRAKMA-DEFAULT-EXTERNAL-FORMAT* ...) ; processing (DEFVAR *HEADER-STREAM* ...) ; processing (DEFVAR *ALLOW-DOTLESS-COOKIE-DOMAINS-P* ...) ; processing (DEFVAR *IGNORE-UNPARSEABLE-COOKIE-DATES-P* ...) ; processing (DEFVAR *REMOVE-DUPLICATE-COOKIES-P* ...) ; processing (DEFVAR *TEXT-CONTENT-TYPES* ...) ; processing (DEFVAR *BODY-FORMAT-FUNCTION* ...) ; processing (DEFVAR *TIME-ZONE-MAP* ...) ; processing (DEFVAR *DEFAULT-HTTP-PROXY* ...) ; processing (DEFVAR *NO-PROXY-DOMAINS* ...) ; processing (DEFVAR *HYPERDOC-BASE-URI* ...) ; processing (LET (#) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/drakma/specials-tmpG300S9SF.fasl ; compilation finished in 0:00:00.007 ; compiling file "/usr/share/common-lisp/source/drakma/conditions.lisp" (written 17 JUL 2021 04:04:50 PM): ; processing (IN-PACKAGE :DRAKMA) ; processing (DEFINE-CONDITION DRAKMA-CONDITION ...) ; processing (DEFINE-CONDITION DRAKMA-ERROR ...) ; processing (DEFINE-CONDITION DRAKMA-SIMPLE-ERROR ...) ; processing (DEFINE-CONDITION DRAKMA-WARNING ...) ; processing (DEFINE-CONDITION DRAKMA-SIMPLE-WARNING ...) ; processing (DEFUN DRAKMA-WARN ...) ; processing (DEFINE-CONDITION PARAMETER-ERROR ...) ; processing (DEFUN PARAMETER-ERROR ...) ; processing (DEFINE-CONDITION SYNTAX-ERROR ...) ; processing (DEFUN SYNTAX-ERROR ...) ; processing (DEFINE-CONDITION COOKIE-ERROR ...) ; processing (DEFUN COOKIE-ERROR ...) ; processing (DEFINE-CONDITION COOKIE-DATE-PARSE-ERROR ...) ; processing (DEFUN COOKIE-DATE-PARSE-ERROR ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/drakma/conditions-tmp809IFK9M.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/drakma/util.lisp" (written 17 JUL 2021 04:04:50 PM): ; processing (IN-PACKAGE :DRAKMA) ; processing (DEFMACRO WHEN-LET ...) ; processing (DEFMACRO WITH-UNIQUE-NAMES ...) ; processing (DEFUN ENDS-WITH-P ...) ; processing (DEFUN STARTS-WITH-P ...) ; processing (DEFUN URL-ENCODE ...) ; processing (DEFUN ALIST-TO-URL-ENCODED-STRING ...) ; processing (DEFUN DEFAULT-PORT ...) ; processing (DEFUN NON-DEFAULT-PORT ...) ; processing (DEFUN USER-AGENT-STRING ...) ; file: /usr/share/common-lisp/source/drakma/util.lisp ; in: DEFUN USER-AGENT-STRING ; (OR (LISP-IMPLEMENTATION-TYPE) "Common Lisp") ; --> IF ; ==> ; "Common Lisp" ; ; note: deleting unreachable code ; (OR (LISP-IMPLEMENTATION-VERSION) "") ; --> IF ; ==> ; "" ; ; note: deleting unreachable code ; processing (DEFUN HEADER-VALUE ...) ; processing (DEFUN PARAMETER-PRESENT-P ...) ; processing (DEFUN PARAMETER-VALUE ...) ; processing (DEFUN MAKE-RANDOM-STRING ...) ; processing (DEFUN SAFE-PARSE-INTEGER ...) ; processing (DEFUN INTERPRET-AS-MONTH ...) ; processing (DEFUN INTERPRET-AS-TIME-ZONE ...) ; file: /usr/share/common-lisp/source/drakma/util.lisp ; in: DEFUN INTERPRET-AS-TIME-ZONE ; (CL-PPCRE:REGISTER-GROUPS-BIND (DRAKMA::SIGN DRAKMA::HOURS DRAKMA::MINUTES) ; ("(?:GMT|)\\s*([+-]?)(\\d\\d):?(\\d\\d)" STRING) ; (* ; (IF (EQUAL DRAKMA::SIGN "-") ; 1 ; -1) ; (+ (PARSE-INTEGER DRAKMA::HOURS) (/ (PARSE-INTEGER DRAKMA::MINUTES) 60)))) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION WHEN IF LET* LET IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a STRING: ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; caught STYLE-WARNING: ; This is not a STRING: ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DEFUN SET-REFERER ...) ; processing (DEFUN TEXT-CONTENT-TYPE-P ...) ; processing (DEFMACRO WITH-SEQUENCE-FROM-STRING ...) ; processing (DEFUN SPLIT-SET-COOKIE-STRING ...) ; processing (DEFUN MAKE-SSL-STREAM ...) ; processing (DEFUN DISSECT-QUERY ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/drakma/util-tmpSB12JM8J.fasl ; compilation finished in 0:00:00.048 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/drakma/read.lisp" (written 17 JUL 2021 04:04:50 PM): ; processing (IN-PACKAGE :DRAKMA) ; processing (DEFUN READ-STATUS-LINE ...) ; processing (DEFUN GET-CONTENT-TYPE ...) ; processing (DEFUN READ-TOKEN-AND-PARAMETERS ...) ; processing (DEFUN SKIP-MORE-COMMAS ...) ; processing (DEFUN READ-TOKENS-AND-PARAMETERS ...) ; processing (DEFUN SPLIT-TOKENS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/drakma/read-tmpBPQSLJ17.fasl ; compilation finished in 0:00:00.011 ; compiling file "/usr/share/common-lisp/source/drakma/cookies.lisp" (written 17 JUL 2021 04:04:50 PM): ; processing (IN-PACKAGE :DRAKMA) ; processing (DEFCLASS COOKIE ...) ; processing (DEFUN RENDER-COOKIE-DATE ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN NORMALIZE-COOKIE-DOMAIN ...) ; processing (DEFUN VALID-COOKIE-DOMAIN-P ...) ; processing (DEFUN COOKIE-DOMAIN-MATCHES ...) ; processing (DEFUN SEND-COOKIE-P ...) ; processing (DEFUN CHECK-COOKIE ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD (SETF COOKIE-NAME) ...) ; processing (DEFMETHOD (SETF COOKIE-VALUE) ...) ; processing (DEFMETHOD (SETF COOKIE-DOMAIN) ...) ; processing (DEFMETHOD (SETF COOKIE-PATH) ...) ; processing (DEFMETHOD (SETF COOKIE-EXPIRES) ...) ; processing (DEFUN COOKIE= ...) ; processing (DEFCLASS COOKIE-JAR ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN PARSE-COOKIE-DATE ...) ; processing (DEFUN PARSE-SET-COOKIE ...) ; processing (DEFUN GET-COOKIES ...) ; processing (DEFUN UPDATE-COOKIES ...) ; processing (DEFUN DELETE-OLD-COOKIES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/drakma/cookies-tmpTAX50JN7.fasl ; compilation finished in 0:00:00.037 ; compiling file "/usr/share/common-lisp/source/drakma/encoding.lisp" (written 17 JUL 2021 04:04:50 PM): ; processing (IN-PACKAGE :DRAKMA) ; processing (DEFGENERIC DECODE-STREAM ...) ; processing (DEFMETHOD DECODE-STREAM ...) ; processing (DEFMETHOD DECODE-STREAM ...) ; processing (DEFMETHOD DECODE-STREAM ...) ; processing (DEFMETHOD DECODE-STREAM ...) ; processing (DEFMETHOD DECODE-STREAM ...) ; processing (DEFUN DECODE-RESPONSE-STREAM ...) ; processing (DEFUN DECODE-FLEXI-STREAM ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/drakma/encoding-tmpLPRKFQ4F.fasl ; compilation finished in 0:00:00.013 ; compiling file "/usr/share/common-lisp/source/drakma/request.lisp" (written 17 JUL 2021 04:04:50 PM): ; processing (IN-PACKAGE :DRAKMA) ; processing (DEFUN DETERMINE-BODY-FORMAT ...) ; processing (DEFUN SEND-CONTENT ...) ; processing (DEFUN MAKE-FORM-DATA-FUNCTION ...) ; processing (DEFUN %READ-BODY ...) ; processing (DEFUN READ-BODY ...) ; processing (DEFUN TRIVIAL-URI-PATH ...) ; processing (DEFUN HTTP-REQUEST ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/drakma/request-tmp8VQNX3K0.fasl ; compilation finished in 0:00:00.115 ; compiling file "/usr/share/common-lisp/source/local-time/src/package.lisp" (written 26 FEB 2018 03:02:47 PM): ; processing (DEFPACKAGE #:LOCAL-TIME ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/local-time/src/package-tmpD0G9A1XR.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/local-time/src/local-time.lisp" (written 05 JAN 2021 12:18:15 PM): ; processing (IN-PACKAGE #:LOCAL-TIME) ; processing (DEFCLASS TIMESTAMP ...) ; processing (DEFSTRUCT SUBZONE ...) ; processing (DEFSTRUCT TIMEZONE ...) ; processing (DEFTYPE TIMEZONE-OFFSET ...) ; processing (DEFUN %VALID-TIME-OF-DAY? ...) ; processing (DEFTYPE TIME-OF-DAY ...) ; processing (DEFUN %VALID-DATE? ...) ; processing (DEFTYPE DATE ...) ; processing (DEFINE-CONDITION INVALID-TIMEZONE-FILE ...) ; processing (DEFINE-CONDITION INVALID-TIME-SPECIFICATION ...) ; processing (DEFINE-CONDITION INVALID-TIMESTRING ...) ; processing (DEFMETHOD MAKE-LOAD-FORM ...) ; processing (DECLAIM (INLINE NOW ...) ...) ; processing (DEFVAR *DEFAULT-TIMEZONE*) ; processing (DEFPARAMETER *DEFAULT-TIMEZONE-REPOSITORY-PATH* ...) ; file: /usr/share/common-lisp/source/local-time/src/local-time.lisp ; in: DEFPARAMETER *DEFAULT-TIMEZONE-REPOSITORY-PATH* ; (OR #P"/usr/share/common-lisp/source/local-time/src/local-time.lisp" ; *LOAD-TRUENAME*) ; --> IF ; ==> ; *LOAD-TRUENAME* ; ; note: deleting unreachable code ; processing (DEFPARAMETER +MONTH-NAMES+ ...) ; processing (DEFPARAMETER +SHORT-MONTH-NAMES+ ...) ; processing (DEFPARAMETER +DAY-NAMES+ ...) ; processing (DEFPARAMETER +DAY-NAMES-AS-KEYWORDS+ ...) ; processing (DEFPARAMETER +SHORT-DAY-NAMES+ ...) ; processing (DEFPARAMETER +MINIMAL-DAY-NAMES+ ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFPARAMETER +ISO-8601-DATE-FORMAT+ ...) ; processing (DEFPARAMETER +ISO-8601-TIME-FORMAT+ ...) ; processing (DEFPARAMETER +ISO-8601-FORMAT+ ...) ; processing (DEFPARAMETER +RFC3339-FORMAT+ ...) ; processing (DEFPARAMETER +RFC3339-FORMAT/DATE-ONLY+ ...) ; processing (DEFPARAMETER +ASCTIME-FORMAT+ ...) ; processing (DEFPARAMETER +RFC-1123-FORMAT+ ...) ; processing (DEFPARAMETER +ISO-WEEK-DATE-FORMAT+ ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFPARAMETER +ASTRONOMICAL-JULIAN-DATE-OFFSET+ ...) ; processing (DEFPARAMETER +MODIFIED-JULIAN-DATE-OFFSET+ ...) ; processing (DEFUN %GUESS-OFFSET ...) ; processing (DEFUN %READ-BINARY-INTEGER ...) ; processing (DEFUN %STRING-FROM-UNSIGNED-BYTE-VECTOR ...) ; processing (DEFUN %FIND-FIRST-STD-OFFSET ...) ; processing (DEFUN %TZ-VERIFY-MAGIC-NUMBER ...) ; processing (DEFUN %TZ-READ-HEADER ...) ; processing (DEFUN %TZ-READ-TRANSITIONS ...) ; processing (DEFUN %TZ-READ-INDEXES ...) ; processing (DEFUN %TZ-READ-SUBZONE ...) ; processing (DEFUN LEAP-SECONDS-SEC ...) ; processing (DEFUN LEAP-SECONDS-ADJUSTMENT ...) ; processing (DEFUN %TZ-READ-LEAP-SECONDS ...) ; processing (DEFUN %TZ-READ-ABBREVS ...) ; processing (DEFUN %TZ-READ-INDICATORS ...) ; processing (DEFUN %TZ-MAKE-SUBZONES ...) ; processing (DEFUN %REALIZE-TIMEZONE ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFPARAMETER +UTC-ZONE+ ...) ; processing (DEFPARAMETER +GMT-ZONE+ ...) ; processing (DEFPARAMETER +NONE-ZONE+ ...) ; processing (DEFMACRO DEFINE-TIMEZONE ...) ; processing (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) ...) ; processing (DEFPARAMETER *LOCATION-NAME->TIMEZONE* ...) ; processing (DEFPARAMETER *ABBREVIATED-SUBZONE-NAME->TIMEZONE-LIST* ...) ; processing (DEFUN FIND-TIMEZONE-BY-LOCATION-NAME ...) ; processing (DEFUN TIMEZONE= ...) ; processing (DEFUN REREAD-TIMEZONE-REPOSITORY ...) ; processing (DEFMACRO MAKE-TIMESTAMP ...) ; processing (DEFUN CLONE-TIMESTAMP ...) ; processing (DEFUN TRANSITION-POSITION ...) ; processing (DEFUN TIMESTAMP-SUBTIMEZONE ...) ; processing (DEFUN %ADJUST-TO-OFFSET ...) ; processing (DEFUN %ADJUST-TO-TIMEZONE ...) ; processing (DEFUN TIMESTAMP-MINIMIZE-PART ...) ; file: /usr/share/common-lisp/source/local-time/src/local-time.lisp ; in: DEFUN TIMESTAMP-MINIMIZE-PART ; (IF LOCAL-TIME::TIMEZONE ; NIL ; LOCAL-TIME::OFFSET) ; ; note: deleting unreachable code ; processing (DEFUN TIMESTAMP-MAXIMIZE-PART ...) ; file: /usr/share/common-lisp/source/local-time/src/local-time.lisp ; in: DEFUN TIMESTAMP-MAXIMIZE-PART ; (IF LOCAL-TIME::TIMEZONE ; NIL ; LOCAL-TIME::OFFSET) ; ; note: deleting unreachable code ; processing (DEFMACRO WITH-DECODED-TIMESTAMP ...) ; processing (DEFUN %NORMALIZE-MONTH-YEAR-PAIR ...) ; processing (DEFUN DAYS-IN-MONTH ...) ; processing (DEFUN %FIX-OVERFLOW-IN-DAYS ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL) ...) ; processing (DEFMACRO ADJUST-TIMESTAMP ...) ; processing (DEFMACRO ADJUST-TIMESTAMP! ...) ; processing (DEFUN %SET-TIMESTAMP-PART ...) ; processing (DEFUN %OFFSET-TIMESTAMP-PART ...) ; processing (DEFUN TIMESTAMP-WHOLE-YEAR-DIFFERENCE ...) ; processing (DEFUN TIMESTAMP-DIFFERENCE ...) ; processing (DEFUN TIMESTAMP+ ...) ; processing (DEFUN TIMESTAMP- ...) ; processing (DEFUN TIMESTAMP-DAY-OF-WEEK ...) ; processing (DEFUN VALID-TIMESTAMP-P ...) ; processing (DEFUN ENCODE-TIMESTAMP-INTO-VALUES ...) ; processing (DEFUN ENCODE-TIMESTAMP ...) ; processing (DEFUN UNIVERSAL-TO-TIMESTAMP ...) ; processing (DEFUN TIMESTAMP-TO-UNIVERSAL ...) ; processing (DEFUN UNIX-TO-TIMESTAMP ...) ; processing (DEFUN TIMESTAMP-VALUES-TO-UNIX ...) ; processing (DEFUN TIMESTAMP-TO-UNIX ...) ; processing (DEFUN %GET-CURRENT-TIME ...) ; processing (DEFVAR *CLOCK* ...) ; processing (DEFUN NOW ...) ; processing (DEFUN TODAY ...) ; processing (DEFGENERIC CLOCK-NOW ...) ; processing (DEFGENERIC CLOCK-TODAY ...) ; processing (DEFUN %LEAP-SECONDS-OFFSET ...) ; processing (DEFUN %ADJUST-SEC-FOR-LEAP-SECONDS ...) ; processing (DEFMETHOD CLOCK-NOW ...) ; processing (DEFMETHOD CLOCK-NOW ...) ; processing (DEFMETHOD CLOCK-TODAY ...) ; processing (DEFMACRO %DEFCOMPARATOR ...) ; processing (DEFUN %TIMESTAMP-COMPARE ...) ; processing (%DEFCOMPARATOR TIMESTAMP< ...) ; processing (%DEFCOMPARATOR TIMESTAMP<= ...) ; file: /usr/share/common-lisp/source/local-time/src/local-time.lisp ; in: %DEFCOMPARATOR TIMESTAMP<= ; (LOCAL-TIME::%DEFCOMPARATOR LOCAL-TIME:TIMESTAMP<= ; (NOT ; (NULL ; (MEMBER ; (LOCAL-TIME::%TIMESTAMP-COMPARE LOCAL-TIME::TIME-A LOCAL-TIME::TIME-B) ; '(< =))))) ; --> DEFINE-COMPILER-MACRO PROGN EVAL-WHEN ; ==> ; (SB-C::%DEFINE-COMPILER-MACRO 'LOCAL-TIME:TIMESTAMP<= ; (SB-INT:NAMED-LAMBDA (COMPILER-MACRO ; LOCAL-TIME:TIMESTAMP<=) ; (#:EXPR #:ENV) ; (DECLARE ; (SB-C::LAMBDA-LIST ; (&REST LOCAL-TIME::TIMES))) ; (DECLARE (IGNORE #:ENV)) ; (SB-INT:NAMED-DS-BIND (:MACRO ; LOCAL-TIME:TIMESTAMP<= ; . DEFINE-COMPILER-MACRO) ; (&REST LOCAL-TIME::TIMES) ; (SB-C::COMPILER-MACRO-ARGS #:EXPR) ; (DECLARE ; (SB-C::CONSTANT-VALUE LOCAL-TIME::TIMES)) ; (BLOCK LOCAL-TIME:TIMESTAMP<= ; (LET # ; `#))))) ; ; caught STYLE-WARNING: ; 1 call to LOCAL-TIME:TIMESTAMP<= was compiled before a compiler-macro was ; defined for it. A declaration of NOTINLINE at the call site will eliminate this ; warning, as will defining the compiler-macro before its first potential use. ; processing (%DEFCOMPARATOR TIMESTAMP> ...) ; processing (%DEFCOMPARATOR TIMESTAMP>= ...) ; processing (%DEFCOMPARATOR TIMESTAMP= ...) ; processing (DEFUN TIMESTAMP/= ...) ; processing (DEFUN CONTEST ...) ; processing (DEFUN TIMESTAMP-MINIMUM ...) ; processing (DEFUN TIMESTAMP-MAXIMUM ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFUN DAYS-TO-YEARS ...) ; processing (DEFUN %TIMESTAMP-DECODE-DATE ...) ; processing (DEFUN %TIMESTAMP-DECODE-ISO-WEEK ...) ; processing (DEFUN %TIMESTAMP-DECODE-TIME ...) ; processing (DEFUN DECODE-TIMESTAMP ...) ; processing (DEFUN TIMESTAMP-YEAR ...) ; processing (DEFUN TIMESTAMP-CENTURY ...) ; processing (DEFUN TIMESTAMP-MILLENNIUM ...) ; processing (DEFUN TIMESTAMP-DECADE ...) ; processing (DEFUN TIMESTAMP-MONTH ...) ; processing (DEFUN TIMESTAMP-DAY ...) ; processing (DEFUN TIMESTAMP-HOUR ...) ; processing (DEFUN TIMESTAMP-MINUTE ...) ; processing (DEFUN TIMESTAMP-SECOND ...) ; processing (DEFUN TIMESTAMP-MICROSECOND ...) ; processing (DEFUN TIMESTAMP-MILLISECOND ...) ; processing (DEFUN SPLIT-TIMESTRING ...) ; processing (DEFUN %SPLIT-TIMESTRING ...) ; file: /usr/share/common-lisp/source/local-time/src/local-time.lisp ; in: DEFUN %SPLIT-TIMESTRING ; (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS)) ; ; note: unable to ; 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. ; (= (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS)) 4) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (+ (CAAR LOCAL-TIME::PARTS) 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 ; associate +/(+ -) of constants ; 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 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (+ (CAAR LOCAL-TIME::PARTS) 4) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS)) ; ; note: unable to ; 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. ; (= (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS)) 2) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (+ (CAAR LOCAL-TIME::PARTS) 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (+ (CAAR LOCAL-TIME::PARTS) 2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (+ (CAAR LOCAL-TIME::PARTS) 4) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (+ (CAAR LOCAL-TIME::PARTS) 2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (LOCAL-TIME::FULL-DATE (LOCAL-TIME::START-END) ; (LET ((LOCAL-TIME::PARTS (LOCAL-TIME::SPLIT # # LOCAL-TIME::DATE-SEPARATOR))) ; (LOCAL-TIME::PASSERT (LOCAL-TIME::%LIST-LENGTH= 3 LOCAL-TIME::PARTS)) ; (LOCAL-TIME::DATE-FULLYEAR (FIRST LOCAL-TIME::PARTS)) ; (LOCAL-TIME::DATE-MONTH (SECOND LOCAL-TIME::PARTS)) ; (LOCAL-TIME::DATE-MDAY (THIRD LOCAL-TIME::PARTS)))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; processing (DEFUN PARSE-RFC3339-TIMESTRING ...) ; processing (DEFUN PARSE-TIMESTRING ...) ; processing (DEFUN ORDINALIZE ...) ; processing (DEFUN %CONSTRUCT-TIMESTRING ...) ; file: /usr/share/common-lisp/source/local-time/src/local-time.lisp ; in: DEFUN %CONSTRUCT-TIMESTRING ; (AREF LOCAL-TIME:+MONTH-NAMES+ LOCAL-TIME::MONTH) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (AREF LOCAL-TIME:+SHORT-MONTH-NAMES+ LOCAL-TIME::MONTH) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (AREF LOCAL-TIME:+DAY-NAMES+ LOCAL-TIME::WEEKDAY) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (AREF LOCAL-TIME:+SHORT-DAY-NAMES+ LOCAL-TIME::WEEKDAY) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (AREF LOCAL-TIME::+MINIMAL-DAY-NAMES+ LOCAL-TIME::WEEKDAY) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (MINUSP LOCAL-TIME::VAL) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (ABS LOCAL-TIME::VAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) ; (RATIONAL * (0))), not a RATIONAL. ; (MINUSP LOCAL-TIME::VAL) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (ABS LOCAL-TIME::VAL) ; ; note: forced to do full call ; unable to do #1=inline float arithmetic (cost 1) because: ; The first argument is a (OR (DOUBLE-FLOAT * #2=(0.0d0)) ; (SINGLE-FLOAT * #3=(0.0)) (RATIONAL * #4=(0))), not a DOUBLE-FLOAT. ; The result is a (VALUES ; (OR (RATIONAL #5=(0)) (SINGLE-FLOAT #6=(-0.0)) ; (DOUBLE-FLOAT #7=(-0.0d0))) ; . #8=(&OPTIONAL)), not a (VALUES DOUBLE-FLOAT &REST T). ; unable to do #1# (cost 1) because: ; The first argument is a (OR (DOUBLE-FLOAT * #2#) (SINGLE-FLOAT * #3#) ; (RATIONAL * #4#)), not a SINGLE-FLOAT. ; The result is a (VALUES ; (OR (RATIONAL #5#) (SINGLE-FLOAT #6#) ; (DOUBLE-FLOAT #7#)) ; . #8#), not a (VALUES SINGLE-FLOAT &REST T). ; processing (DEFUN FORMAT-TIMESTRING ...) ; processing (DEFUN FORMAT-RFC1123-TIMESTRING ...) ; processing (DEFUN TO-RFC1123-TIMESTRING ...) ; processing (DEFUN FORMAT-RFC3339-TIMESTRING ...) ; processing (DEFUN TO-RFC3339-TIMESTRING ...) ; processing (DEFUN %READ-TIMESTRING ...) ; processing (DEFUN %READ-UNIVERSAL-TIME ...) ; processing (DEFUN ENABLE-READ-MACROS ...) ; processing (DEFVAR *DEBUG-TIMESTAMP* ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN ASTRONOMICAL-JULIAN-DATE ...) ; processing (DEFUN MODIFIED-JULIAN-DATE ...) ; processing (DECLAIM (NOTINLINE FORMAT-TIMESTRING)) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/local-time/src/local-time-tmp94C6TZKL.fasl ; compilation finished in 0:00:00.492 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/command-line-arguments/pkgdcl.lisp" (written 18 NOV 2015 08:20:48 AM): ; processing (DEFPACKAGE :COMMAND-LINE-ARGUMENTS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/command-line-arguments/pkgdcl-tmpVSFQJ80K.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/command-line-arguments/argv.lisp" (written 18 NOV 2015 08:20:48 AM): ; processing (IN-PACKAGE :COMMAND-LINE-ARGUMENTS) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN GET-COMMAND-LINE-ARGUMENTS ...) ; processing (DEFUN COMPUTE-AND-PROCESS-COMMAND-LINE-OPTIONS ...) ; processing (DEFUN INVOKE-COMMAND-LINE-HANDLER ...) ; processing (DEFUN HANDLE-COMMAND-LINE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/command-line-arguments/argv-tmpPLK5HVAF.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/command-line-arguments/parse.lisp" (written 18 NOV 2015 08:20:48 AM): ; processing (IN-PACKAGE :COMMAND-LINE-ARGUMENTS) ; processing (DEFVAR *COMMAND-LINE-OPTIONS* ...) ; processing (DEFVAR *COMMAND-LINE-OPTION-SPECIFICATION* ...) ; processing (DEFUN MAKE-OPTION-ACTION ...) ; processing (DEFUN FINALIZE-LIST ...) ; processing (DEFUN ACTUAL-ACTION-FROM-SPEC ...) ; processing (DEFUN COMMAND-LINE-ACTION ...) ; processing (DEFUN PREPARE-COMMAND-LINE-OPTIONS-SPECIFICATION ...) ; processing (DEFUN MAKE-NEGATED-NAMES ...) ; processing (DEFUN COMMAND-LINE-OPTION-SPECIFICATION ...) ; processing (DEFUN SHORT-OPTION-P ...) ; processing (DEFUN NEGATED-SHORT-OPTION-P ...) ; processing (DEFUN LONG-OPTION-P ...) ; processing (DEFUN OPTION-END-P ...) ; processing (DEFUN OPTION-LIKE-P ...) ; processing (DEFUN OPTION-NAME ...) ; processing (DEFUN COERCE-OPTION-PARAMETER ...) ; processing (DEFUN GET-OPTION-PARAMETER ...) ; processing (DEFUN PROCESS-OPTION ...) ; processing (DEFUN PROCESS-SHORT-OPTION ...) ; processing (DEFUN DECOMPOSE-LONG-OPTION-STRING ...) ; processing (DEFUN PROCESS-LONG-OPTION ...) ; processing (DEFUN DO-PROCESS-COMMAND-LINE-OPTIONS ...) ; processing (DEFUN PROCESS-COMMAND-LINE-OPTIONS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/command-line-arguments/parse-tmp5FHTGX61.fasl ; compilation finished in 0:00:00.047 ; compiling file "/usr/share/common-lisp/source/command-line-arguments/help.lisp" (written 18 NOV 2015 08:20:48 AM): ; processing (IN-PACKAGE :COMMAND-LINE-ARGUMENTS) ; processing (DEFUN SPLIT-SEQUENCE ...) ; processing (DEFUN SHOW-OPTION-HELP ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/command-line-arguments/help-tmpKUF556D3.fasl ; compilation finished in 0:00:00.019 ; compiling file "/usr/share/common-lisp/source/abnf/package.lisp" (written 29 FEB 2020 04:51:12 PM): ; processing (DEFPACKAGE #:ABNF ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/abnf/package-tmpS8HGASGU.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/abnf/abnf.lisp" (written 29 FEB 2020 04:51:12 PM): ; processing (IN-PACKAGE #:ABNF) ; processing (DEFVAR *ABNF-RFC2234-ABNF-DEFINITION* ...) ; processing (DEFVAR *ABNF-RFC-SYSLOG-DRAFT-15* ...) ; processing (DEFVAR *ABNF-RSYSLOG* ...) ; processing (DEFVAR *ABNF-RFC5424-SYSLOG-PROTOCOL* ...) ; processing (DEFVAR *ABNF-DEFAULT-RULES* ...) ; processing (DEFUN RULE-NAME-CHARACTER-P ...) ; processing (DEFUN VCHARP ...) ; processing (DEFRULE VCHAR ...) ; processing (DEFRULE WSP ...) ; processing (DEFRULE COMMENT ...) ; processing (DEFRULE C-NL ...) ; processing (DEFRULE C-WSP ...) ; processing (DEFRULE N-WSP ...) ; processing (DEFUN RULE-NAME-SYMBOL ...) ; processing (DEFRULE RULE-NAME ...) ; processing (DEFRULE EQUAL ...) ; processing (DEFRULE END-OF-RULE ...) ; processing (DEFRULE DIGIT ...) ; processing (DEFRULE DIGITS ...) ; processing (DEFUN CHAR-VAL-CHAR-P ...) ; processing (DEFRULE CHAR-VAL ...) ; processing (DEFRULE DEC-STRING ...) ; processing (DEFRULE DEC-RANGE ...) ; processing (DEFRULE DEC-VAL ...) ; processing (DEFUN HEXADECIMAL-CHAR-P ...) ; processing (DEFRULE HEXDIGITS ...) ; processing (DEFRULE HEX-STRING ...) ; processing (DEFRULE HEX-RANGE ...) ; processing (DEFRULE HEX-VAL ...) ; processing (DEFRULE NUM-VAL ...) ; processing (DEFRULE RULE-NAME-REFERENCE ...) ; processing (DEFUN PROCESS-QUOTED-REGEX ...) ; processing (DEFRULE SINGLE-QUOTED-REGEX ...) ; processing (DEFRULE DOUBLE-QUOTED-REGEX ...) ; processing (DEFRULE PARENS-QUOTED-REGEX ...) ; processing (DEFRULE BRACES-QUOTED-REGEX ...) ; processing (DEFRULE CHEVRON-QUOTED-REGEX ...) ; processing (DEFRULE BRACKETS-QUOTED-REGEX ...) ; processing (DEFRULE SLASH-QUOTED-REGEX ...) ; processing (DEFRULE PIPE-QUOTED-REGEX ...) ; processing (DEFRULE SHARP-QUOTED-REGEX ...) ; processing (DEFRULE QUOTED-REGEX ...) ; processing (DEFRULE ELEMENT ...) ; processing (DEFRULE NUMBER ...) ; processing (DEFRULE REPEAT-VAR ...) ; processing (DEFRULE REPEAT-SPECIFIC ...) ; processing (DEFRULE REPEAT ...) ; processing (DEFRULE REPETITION ...) ; processing (DEFRULE CONCATENATION-ELEMENT ...) ; processing (DEFRULE CONCATENATION ...) ; processing (DEFRULE ALTERNATION-ELEMENT ...) ; processing (DEFRULE ALTERNATION ...) ; processing (DEFRULE GROUP ...) ; processing (DEFRULE OPTION ...) ; processing (DEFRULE TOPLEVEL-ELEMENT ...) ; processing (DEFRULE ALTERNATIONS ...) ; processing (DEFRULE ELEMENTS ...) ; processing (DEFRULE RULE ...) ; processing (DEFRULE RULE-LIST ...) ; processing (DEFUN EXPAND-RULE-DEFINITION ...) ; processing (DEFUN EXPAND-RULE ...) ; processing (DEFUN PARSE-ABNF-GRAMMAR ...) ; processing (DEFUN TEST ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/abnf/abnf-tmpLXEY4I7N.fasl ; compilation finished in 0:00:00.052 ; compiling file "/usr/share/common-lisp/source/db3/package.lisp" (written 12 FEB 2020 07:50:33 PM): ; processing (DEFPACKAGE #:DB3 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/db3/package-tmp1PA6XKV0.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/db3/db3.lisp" (written 12 FEB 2020 07:50:33 PM): ; processing (IN-PACKAGE :DB3) ; processing (DEFPARAMETER *EXTERNAL-FORMAT* ...) ; processing (DEFVAR *CODE-PAGE-LIST* ...) ; processing (DEFUN LANGUAGE-DRIVER-TO-ENCODING ...) ; processing (DEFUN READ-UINT32 ...) ; processing (DEFUN READ-UINT16 ...) ; processing (DEFCLASS DB3 ...) ; processing (DEFCLASS DB3-FIELD ...) ; processing (DEFCLASS DB3-MEMO ...) ; processing (DEFCLASS DB3-MEMO-BLOCK ...) ; processing (DEFUN ASCIIZ->STRING ...) ; processing (DEFUN ASCII->STRING ...) ; processing (DECLAIM (INLINE UNSIGNED-TO-SIGNED ...)) ; processing (DEFUN UNSIGNED-TO-SIGNED ...) ; processing (DEFUN BYTES->INTEGER ...) ; processing (DEFUN BYTES->BIGINT ...) ; processing (DEFUN LOAD-FIELD-DESCRIPTOR ...) ; processing (DEFMETHOD FIELD-COUNT ...) ; processing (DEFMETHOD LOAD-HEADER ...) ; processing (DEFMETHOD LOAD-MEMO-HEADER ...) ; processing (DEFMETHOD LOAD-MEMO-RECORD ...) ; processing (DEFMETHOD CLOSE-MEMO ...) ; processing (DEFMETHOD CONVERT-FIELD ...) ; processing (DEFMETHOD CONVERT-FIELD ...) ; processing (DEFMETHOD CONVERT-FIELD ...) ; processing (DEFMETHOD CONVERT-FIELD ...) ; processing (DEFMETHOD CONVERT-FIELD ...) ; processing (DEFMETHOD CONVERT-FIELD ...) ; processing (DEFMETHOD CONVERT-FIELD ...) ; processing (DEFMETHOD CONVERT-FIELD ...) ; processing (DEFMETHOD LOAD-FIELD ...) ; processing (DEFMETHOD LOAD-RECORD ...) ; processing (DEFUN WRITE-RECORD ...) ; processing (DEFUN DUMP-DB3 ...) ; processing (DEFUN SAMPLE-DB3 ...) ; processing (DEFUN INSPECT-DB3 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/db3/db3-tmpEW48DPG8.fasl ; compilation finished in 0:00:00.076 ; compiling file "/usr/share/common-lisp/source/ieee-floats/ieee-floats.lisp" (written 24 AUG 2017 07:52:41 PM): ; processing (DEFPACKAGE :IEEE-FLOATS ...) ; processing (IN-PACKAGE :IEEE-FLOATS) ; processing (DEFMACRO MAKE-FLOAT-CONVERTERS ...) ; processing (DECLAIM (INLINE ENCODE-FLOAT32 ...)) ; processing (MAKE-FLOAT-CONVERTERS ENCODE-FLOAT32 ...) ; processing (MAKE-FLOAT-CONVERTERS ENCODE-FLOAT64 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ieee-floats/ieee-floats-tmp4ULRYCDK.fasl ; compilation finished in 0:00:00.022 ; compiling file "/usr/share/common-lisp/source/ixf/package.lisp" (written 06 MAY 2017 01:08:15 PM): ; processing (DEFPACKAGE #:IXF ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ixf/package-tmpV4ITDAY7.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/ixf/records.lisp" (written 06 MAY 2017 01:08:15 PM): ; processing (IN-PACKAGE :IXF) ; processing (DEFSTRUCT (IXF-FIELD # ...) ...) ; processing (DEFVAR *IXF-HEADER* ...) ; processing (DEFVAR *IXF-TABLE* ...) ; processing (DEFVAR *IXF-COLUMN* ...) ; processing (DEFVAR *IXF-DATA* ...) ; processing (DEFVAR *IXF-APPLICATION* ...) ; processing (DEFVAR *RECORD-TYPES* ...) ; processing (DEFUN READ-INTEGER ...) ; processing (DEFUN READ-CHARACTER ...) ; processing (DEFUN READ-ASCII-STRING ...) ; processing (DEFUN READ-BINARY-DATA ...) ; processing (DEFUN READ-FIELD ...) ; processing (DEFUN READ-RECORD ...) ; processing (DEFUN READ-NEXT-RECORD ...) ; processing (DEFUN HEADER-RECORD-P ...) ; processing (DEFUN TABLE-RECORD-P ...) ; processing (DEFUN COLUMN-RECORD-P ...) ; processing (DEFUN DATA-RECORD-P ...) ; processing (DEFUN GET-RECORD-PROPERTY ...) ; processing (DEFUN CHECK-RECORD ...) ; processing (DEFUN VALIDATE-FILE ...) ; processing (DEFUN COLLECT-RECORDS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ixf/records-tmpTU3G94ZX.fasl ; compilation finished in 0:00:00.035 ; compiling file "/usr/share/common-lisp/source/ixf/types.lisp" (written 06 MAY 2017 01:08:15 PM): ; processing (IN-PACKAGE :IXF) ; processing (DEFCONSTANT +BIGINT+ ...) ; processing (DEFCONSTANT +BLOB+ ...) ; processing (DEFCONSTANT +CLOB+ ...) ; processing (DEFCONSTANT +BLOB-FILE+ ...) ; processing (DEFCONSTANT +CLOB-FILE+ ...) ; processing (DEFCONSTANT +DBCLOB-FILE+ ...) ; processing (DEFCONSTANT +CHAR+ ...) ; processing (DEFCONSTANT +DATE+ ...) ; processing (DEFCONSTANT +DBCLOB+ ...) ; processing (DEFCONSTANT +DECIMAL+ ...) ; processing (DEFCONSTANT +DECFLOAT+ ...) ; processing (DEFCONSTANT +FLOAT+ ...) ; processing (DEFCONSTANT +GRAPHIC+ ...) ; processing (DEFCONSTANT +INTEGER+ ...) ; processing (DEFCONSTANT +LONGVARCHAR+ ...) ; processing (DEFCONSTANT +LONGVARGRAPHIC+ ...) ; processing (DEFCONSTANT +SMALLINT+ ...) ; processing (DEFCONSTANT +TIME+ ...) ; processing (DEFCONSTANT +TIMESTAMP+ ...) ; processing (DEFCONSTANT +VARCHAR+ ...) ; processing (DEFCONSTANT +VARGRAPHIC+ ...) ; processing (DEFCONSTANT +BLOB-LOCATION-SPEC+ ...) ; processing (DEFCONSTANT +DBCLOB-LOCATION-SPEC+ ...) ; processing (DEFCONSTANT +DBBLOB-LOCATION-SPEC+ ...) ; processing (DEFUN PARSE-IXF-NULL ...) ; processing (DEFUN UNSIGNED-TO-SIGNED ...) ; processing (DEFUN PARSE-IXF-SMALLINT ...) ; processing (DEFUN PARSE-IXF-UNSIGNED-INTEGER ...) ; processing (DEFUN PARSE-IXF-UNSIGNED-BIGINT ...) ; processing (DEFUN PARSE-IXF-INTEGER ...) ; processing (DEFUN PARSE-IXF-BIGINT ...) ; processing (DEFUN PARSE-IXF-DECIMAL ...) ; processing (DEFUN PARSE-IXF-FLOAT ...) ; processing (DEFUN PARSE-IXF-STRING ...) ; processing (DEFUN PARSE-IXF-TIMESTAMP ...) ; processing (DEFUN PARSE-IXF-TIME ...) ; processing (DEFUN PARSE-IXF-DATE ...) ; processing (DEFUN PARSE-IXF-LLS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ixf/types-tmp135V1U5P.fasl ; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/ixf/encodings.lisp" (written 06 MAY 2017 01:08:15 PM): ; processing (IN-PACKAGE #:IXF) ; processing (DEFVAR *IXF-ENCODINGS-MAPPING* ...) ; processing (DEFUN BABEL-ENCODING-FOR-CODE-PAGE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ixf/encodings-tmpCWE62HDI.fasl ; compilation finished in 0:00:00.002 ; compiling file "/usr/share/common-lisp/source/ixf/structs.lisp" (written 06 MAY 2017 01:08:15 PM): ; processing (IN-PACKAGE #:IXF) ; processing (DEFSTRUCT IXF-HEADER ...) ; processing (DEFSTRUCT IXF-COLUMN ...) ; processing (DEFSTRUCT IXF-TABLE ...) ; processing (DEFSTRUCT IXF-FILE ...) ; processing (DECLAIM (INLINE GET-CODE-PAGE)) ; processing (DEFUN GET-CODE-PAGE ...) ; processing (DEFUN PARSE-ENCODING ...) ; processing (DEFMETHOD PARSE-HEADER ...) ; processing (DEFMETHOD PARSE-TABLE-DEFINITION ...) ; processing (DEFMETHOD PARSE-COLUMN-DEFINITION ...) ; processing (DEFMETHOD READ-HEADERS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ixf/structs-tmpS0IX89E9.fasl ; compilation finished in 0:00:00.072 ; compiling file "/usr/share/common-lisp/source/ixf/data.lisp" (written 06 MAY 2017 01:08:15 PM): ; processing (IN-PACKAGE #:IXF) ; processing (DEFUN PARSE-IXF-DATA ...) ; processing (DEFMETHOD MAYBE-READ-RECORD ...) ; processing (DEFMETHOD READ-NEXT-ROW ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ixf/data-tmpYZNO705I.fasl ; compilation finished in 0:00:00.014 ; compiling file "/usr/share/common-lisp/source/ixf/ixf.lisp" (written 06 MAY 2017 01:08:15 PM): ; processing (IN-PACKAGE #:IXF) ; processing (DEFMACRO WITH-IXF-STREAM ...) ; processing (DEFMACRO WITH-IXF-FILE ...) ; processing (DEFUN MAP-DATA ...) ; processing (DEFMETHOD READ-DATA ...) ; processing (DEFUN READ-IXF-FILE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/ixf/ixf-tmpZCDMKLMV.fasl ; compilation finished in 0:00:00.011 ; compiling file "/usr/share/common-lisp/source/py-configparser/package.lisp" (written 09 MAR 2009 09:47:15 PM): ; processing (DEFPACKAGE #:PY-CONFIGPARSER ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/py-configparser/package-tmp8PPPCD7W.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/py-configparser/config.lisp" (written 01 SEP 2013 11:54:28 AM): ; processing (IN-PACKAGE :PY-CONFIGPARSER) ; processing (DEFINE-CONDITION CONFIGPARSER-ERROR ...) ; processing (DEFINE-CONDITION CONFIG-ERROR ...) ; processing (DEFINE-CONDITION NO-SECTION-ERROR ...) ; processing (DEFINE-CONDITION DUPLICATE-SECTION-ERROR ...) ; processing (DEFINE-CONDITION NO-OPTION-ERROR ...) ; processing (DEFINE-CONDITION INTERPOLATION-ERROR ...) ; processing (DEFINE-CONDITION INTERPOLATION-DEPTH-ERROR ...) ; processing (DEFINE-CONDITION INTERPOLATION-MISSING-OPTION-ERROR ...) ; processing (DEFINE-CONDITION INTERPOLATION-SYNTAX-ERROR ...) ; processing (DEFSTRUCT SECTION ...) ; processing (DEFSTRUCT CONFIG ...) ; processing (DEFUN NORM-OPTION-NAME ...) ; processing (DEFUN NORM-SECTION-NAME ...) ; processing (DEFUN %VALIDATE-SECTION-NAME ...) ; processing (DEFUN %VALIDATE-OPTION-NAME ...) ; processing (DEFUN %GET-SECTION ...) ; processing (DEFUN %GET-OPTION ...) ; processing (DEFUN DEFAULTS ...) ; processing (DEFUN SECTIONS ...) ; processing (DEFUN HAS-SECTION-P ...) ; processing (DEFUN ADD-SECTION ...) ; processing (DEFUN OPTIONS ...) ; processing (DEFUN HAS-OPTION-P ...) ; processing (DEFUN %EXTRACT-REPLACEMENT ...) ; processing (DEFUN %OPTION-VALUE ...) ; processing (DEFUN %EXPAND-OPTION-VALUE ...) ; processing (DEFUN GET-OPTION ...) ; processing (DEFUN SET-OPTION ...) ; processing (DEFUN ITEMS ...) ; processing (DEFUN REMOVE-OPTION ...) ; processing (DEFUN REMOVE-SECTION ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/py-configparser/config-tmp9XWMC5IU.fasl ; compilation finished in 0:00:00.055 ; compiling file "/usr/share/common-lisp/source/py-configparser/parser.lisp" (written 14 JUN 2008 08:11:01 AM): ; processing (IN-PACKAGE #:PY-CONFIGPARSER) ; processing (DECLAIM (SPECIAL *LINE-NO* ...)) ; processing (DEFINE-CONDITION PARSING-ERROR ...) ; processing (DEFINE-CONDITION MISSING-SECTION-HEADER-ERROR ...) ; processing (DECLAIM (INLINE %READ-CHAR ...)) ; processing (DEFUN %READ-CHAR ...) ; processing (DEFUN ENSURE-SECTION ...) ; processing (DEFUN IS-WHITESPACE ...) ; processing (DEFUN IS-COMMENT-CHAR ...) ; processing (DEFUN SKIP-WHITESPACE ...) ; processing (DEFUN SKIP-EMPTY-LINE ...) ; processing (DEFUN SKIP-TO-EOL ...) ; processing (DEFUN EXPECT-CHAR ...) ; processing (DEFUN EXPECT-ONE-OF ...) ; processing (DEFUN MAKE-INPUT-BUFFER ...) ; processing (DECLAIM (INLINE EXTEND-INPUT)) ; processing (DEFUN EXTEND-INPUT ...) ; file: /usr/share/common-lisp/source/py-configparser/parser.lisp ; in: DEFUN EXTEND-INPUT ; (DEFUN PY-CONFIGPARSER::EXTEND-INPUT (PY-CONFIGPARSER::P PY-CONFIGPARSER::C) ; (VECTOR-PUSH-EXTEND PY-CONFIGPARSER::C PY-CONFIGPARSER::*CURRENT-INPUT* 20)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA PY-CONFIGPARSER::EXTEND-INPUT ; (PY-CONFIGPARSER::P PY-CONFIGPARSER::C) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK PY-CONFIGPARSER::EXTEND-INPUT ; (VECTOR-PUSH-EXTEND PY-CONFIGPARSER::C PY-CONFIGPARSER::*CURRENT-INPUT* ; 20))) ; ; caught STYLE-WARNING: ; The variable P is defined but never used. ; processing (DEFUN FINALIZE-INPUT ...) ; processing (DEFUN READ-SECTION-NAME ...) ; file: /usr/share/common-lisp/source/py-configparser/parser.lisp ; in: DEFUN READ-SECTION-NAME ; (PY-CONFIGPARSER::EXTEND-INPUT PY-CONFIGPARSER::P PY-CONFIGPARSER::C) ; ; caught STYLE-WARNING: ; The variable P is defined but never used. ; processing (DEFUN READ-OPTION-NAME ...) ; file: /usr/share/common-lisp/source/py-configparser/parser.lisp ; in: DEFUN READ-OPTION-NAME ; (PY-CONFIGPARSER::EXTEND-INPUT PY-CONFIGPARSER::P PY-CONFIGPARSER::C) ; ; caught STYLE-WARNING: ; The variable P is defined but never used. ; processing (DEFUN READ-OPTION-VALUE ...) ; file: /usr/share/common-lisp/source/py-configparser/parser.lisp ; in: DEFUN READ-OPTION-VALUE ; (PY-CONFIGPARSER::EXTEND-INPUT PY-CONFIGPARSER::P #\ ) ; ; caught STYLE-WARNING: ; The variable P is defined but never used. ; (PY-CONFIGPARSER::EXTEND-INPUT PY-CONFIGPARSER::P PY-CONFIGPARSER::C) ; ; caught STYLE-WARNING: ; The variable P is defined but never used. ; processing (DEFUN READING-DRIVER ...) ; processing (DEFUN READ-FILES ...) ; processing (DEFUN READ-STREAM ...) ; processing (DEFUN %FORMAT-VALUE ...) ; processing (DEFUN WRITE-STREAM ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/py-configparser/parser-tmpHZ96ZBZW.fasl ; compilation finished in 0:00:00.058 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/sqlite/sqlite-ffi.lisp" (written 10 MAY 2011 09:45:30 AM): ; processing (DEFPACKAGE :SQLITE-FFI ...) ; processing (IN-PACKAGE :SQLITE-FFI) ; processing (DEFINE-FOREIGN-LIBRARY SQLITE3-LIB ...) ; processing (USE-FOREIGN-LIBRARY SQLITE3-LIB) ; processing (DEFCENUM ERROR-CODE ...) ; processing (DEFCSTRUCT SQLITE3) ; processing (DEFCTYPE P-SQLITE3 ...) ; file: /usr/share/common-lisp/source/sqlite/sqlite-ffi.lisp ; in: DEFCTYPE P-SQLITE3 ; (CFFI:DEFCTYPE SQLITE-FFI:P-SQLITE3 (:POINTER SQLITE-FFI::SQLITE3)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER ; #1=(:STRUCT ; SQLITE3)) or #1# instead. ; processing (DEFCFUN SQLITE3-OPEN ...) ; processing (DEFCFUN SQLITE3-CLOSE ...) ; processing (DEFCFUN SQLITE3-ERRMSG ...) ; processing (DEFCFUN SQLITE3-BUSY-TIMEOUT ...) ; processing (DEFCSTRUCT SQLITE3-STMT) ; processing (DEFCTYPE P-SQLITE3-STMT ...) ; file: /usr/share/common-lisp/source/sqlite/sqlite-ffi.lisp ; in: DEFCTYPE P-SQLITE3-STMT ; (CFFI:DEFCTYPE SQLITE-FFI:P-SQLITE3-STMT (:POINTER SQLITE-FFI::SQLITE3-STMT)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER ; #1=(:STRUCT ; SQLITE3-STMT)) or #1# instead. ; processing (DEFCFUN (SQLITE3-PREPARE "sqlite3_prepare_v2") ...) ; processing (DEFCFUN SQLITE3-FINALIZE ...) ; processing (DEFCFUN SQLITE3-STEP ...) ; processing (DEFCFUN SQLITE3-RESET ...) ; processing (DEFCFUN SQLITE3-CLEAR-BINDINGS ...) ; processing (DEFCFUN SQLITE3-COLUMN-COUNT ...) ; processing (DEFCENUM TYPE-CODE ...) ; processing (DEFCFUN SQLITE3-COLUMN-TYPE ...) ; processing (DEFCFUN SQLITE3-COLUMN-TEXT ...) ; processing (DEFCFUN SQLITE3-COLUMN-INT64 ...) ; processing (DEFCFUN SQLITE3-COLUMN-DOUBLE ...) ; processing (DEFCFUN SQLITE3-COLUMN-BYTES ...) ; processing (DEFCFUN SQLITE3-COLUMN-BLOB ...) ; processing (DEFCFUN SQLITE3-COLUMN-NAME ...) ; processing (DEFCFUN SQLITE3-BIND-PARAMETER-COUNT ...) ; processing (DEFCFUN SQLITE3-BIND-PARAMETER-NAME ...) ; processing (DEFCFUN SQLITE3-BIND-PARAMETER-INDEX ...) ; processing (DEFCFUN SQLITE3-BIND-DOUBLE ...) ; processing (DEFCFUN SQLITE3-BIND-INT64 ...) ; processing (DEFCFUN SQLITE3-BIND-NULL ...) ; processing (DEFCFUN SQLITE3-BIND-TEXT ...) ; processing (DEFCFUN SQLITE3-BIND-BLOB ...) ; processing (DEFCONSTANT DESTRUCTOR-TRANSIENT-ADDRESS ...) ; processing (DEFUN DESTRUCTOR-TRANSIENT ...) ; processing (DEFUN DESTRUCTOR-STATIC ...) ; processing (DEFCFUN SQLITE3-LAST-INSERT-ROWID ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/sqlite/sqlite-ffi-tmpBGQALD1G.fasl ; compilation finished in 0:00:00.063 WARNING: Lisp compilation had style-warnings while compiling # WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SQLITE3)) or (:STRUCT SQLITE3) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SQLITE3-STMT)) or (:STRUCT SQLITE3-STMT) instead. ; compiling file "/usr/share/common-lisp/source/sqlite/cache.lisp" (written 10 MAY 2011 09:45:30 AM): ; processing (DEFPACKAGE :SQLITE.CACHE ...) ; processing (IN-PACKAGE :SQLITE.CACHE) ; processing (DEFCLASS MRU-CACHE ...) ; processing (DEFUN GET-FROM-CACHE ...) ; processing (DEFUN REMOVE-EMPTY-OBJECTS-STACKS ...) ; processing (DEFUN POP-FROM-CACHE ...) ; processing (DEFUN PUT-TO-CACHE ...) ; processing (DEFUN PURGE-CACHE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/sqlite/cache-tmp2DOYW25X.fasl ; compilation finished in 0:00:00.015 ; compiling file "/usr/share/common-lisp/source/sqlite/sqlite.lisp" (written 10 MAY 2011 09:45:30 AM): ; processing (DEFPACKAGE :SQLITE ...) ; processing (IN-PACKAGE :SQLITE) ; processing (DEFINE-CONDITION SQLITE-ERROR ...) ; processing (DEFINE-CONDITION SQLITE-CONSTRAINT-ERROR ...) ; processing (DEFUN SQLITE-ERROR ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFCLASS SQLITE-HANDLE ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFUN CONNECT ...) ; processing (DEFUN SET-BUSY-TIMEOUT ...) ; processing (DEFUN DISCONNECT ...) ; file: /usr/share/common-lisp/source/sqlite/sqlite.lisp ; in: DEFUN DISCONNECT ; (COPY-LIST (SQLITE::SQLITE-HANDLE-STATEMENTS SQLITE::HANDLE)) ; ; note: could not stack allocate: (COPY-LIST (SQLITE-HANDLE-STATEMENTS HANDLE)) ; processing (DEFCLASS SQLITE-STATEMENT ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFUN PREPARE-STATEMENT ...) ; processing (DEFUN REALLY-FINALIZE-STATEMENT ...) ; processing (DEFUN FINALIZE-STATEMENT ...) ; processing (DEFUN STEP-STATEMENT ...) ; processing (DEFUN RESET-STATEMENT ...) ; processing (DEFUN CLEAR-STATEMENT-BINDINGS ...) ; processing (DEFUN STATEMENT-COLUMN-VALUE ...) ; processing (DEFMACRO WITH-PREPARED-STATEMENT ...) ; processing (DEFMACRO WITH-PREPARED-STATEMENT/NAMED ...) ; processing (DEFUN EXECUTE-NON-QUERY ...) ; processing (DEFUN EXECUTE-NON-QUERY/NAMED ...) ; processing (DEFUN EXECUTE-TO-LIST ...) ; processing (DEFUN EXECUTE-TO-LIST/NAMED ...) ; processing (DEFUN EXECUTE-ONE-ROW-M-V ...) ; processing (DEFUN EXECUTE-ONE-ROW-M-V/NAMED ...) ; processing (DEFUN STATEMENT-PARAMETER-INDEX ...) ; processing (DEFUN BIND-PARAMETER ...) ; processing (DEFUN EXECUTE-SINGLE ...) ; processing (DEFUN EXECUTE-SINGLE/NAMED ...) ; processing (DEFUN LAST-INSERT-ROWID ...) ; processing (DEFMACRO WITH-TRANSACTION ...) ; processing (DEFMACRO WITH-OPEN-DATABASE ...) ; processing (DEFMACRO-DRIVER (FOR VARS ...) ...) ; processing (DEFMACRO-DRIVER (FOR VARS ...) ...) ; processing (DEFMACRO-DRIVER (FOR VARS ...) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/sqlite/sqlite-tmp9030DGPL.fasl ; compilation finished in 0:00:00.095 ; compiling file "/usr/share/common-lisp/source/trivial-backtrace/dev/packages.lisp" (written 11 MAY 2020 01:46:26 PM): ; processing (IN-PACKAGE #:COMMON-LISP-USER) ; processing (DEFPACKAGE #:TRIVIAL-BACKTRACE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/trivial-backtrace/dev/packages-tmpU3EEB71F.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/trivial-backtrace/dev/utilities.lisp" (written 11 MAY 2020 01:46:26 PM): ; processing (IN-PACKAGE #:TRIVIAL-BACKTRACE) ; processing (DEFPARAMETER *DATE-TIME-FORMAT* ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFUN DATE-TIME-STRING ...) ; processing (DEFUN FORMAT-DATE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/trivial-backtrace/dev/utilities-tmpY35TOM58.fasl ; compilation finished in 0:00:00.034 ; compiling file "/usr/share/common-lisp/source/trivial-backtrace/dev/backtrace.lisp" (written 11 MAY 2020 01:46:26 PM): ; processing (IN-PACKAGE #:TRIVIAL-BACKTRACE) ; processing (DEFUN PRINT-CONDITION ...) ; processing (DEFUN PRINT-BACKTRACE ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFUN PRINT-BACKTRACE-TO-STREAM ...) ; processing (SETF (DOCUMENTATION # ...) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/trivial-backtrace/dev/backtrace-tmp2N9C8E1O.fasl ; compilation finished in 0:00:00.010 ; compiling file "/usr/share/common-lisp/source/trivial-backtrace/dev/map-backtrace.lisp" (written 11 MAY 2020 01:46:26 PM): ; processing (IN-PACKAGE #:TRIVIAL-BACKTRACE) ; processing (DEFSTRUCT FRAME ...) ; processing (DEFSTRUCT VAR ...) ; processing (DEFSTRUCT POS-FORM-NUMBER ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFVAR *TRIVIAL-BACKTRACE-FRAME-PRINT-SPECIALS* ...) ; processing (DEFUN PRINT-FRAME ...) ; processing (DEFUN MAP-BACKTRACE ...) ; processing (DEFUN PRINT-MAP-BACKTRACE ...) ; processing (DEFUN BACKTRACE-STRING ...) ; processing (DEFUN IMPL-MAP-BACKTRACE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/trivial-backtrace/dev/map-backtrace-tmpK6PVYHW5.fasl ; compilation finished in 0:00:00.041 ; compiling file "/usr/share/common-lisp/source/trivial-backtrace/dev/fallback.lisp" (written 11 MAY 2020 01:46:26 PM): ; processing (IN-PACKAGE #:TRIVIAL-BACKTRACE) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/trivial-backtrace/dev/fallback-tmpQ4PVTQY4.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/package.lisp" (written 30 MAR 2017 12:37:26 PM): ; processing (IN-PACKAGE #:COMMON-LISP-USER) ; processing (DEFPACKAGE #:METABANG.UTILITIES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/metatilities-base/dev/package-tmpQ5W1BFSI.fasl ; compilation finished in 0:00:00.002 ; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/api.lisp" (written 30 MAR 2017 12:37:26 PM): ; processing (IN-PACKAGE #:METATILITIES) ; processing (DEFGENERIC CHOOSE-DIRECTORY-QUESTION* ...) ; processing (DEFGENERIC CHOOSE-FILE-QUESTION* ...) ; processing (DEFGENERIC CHOOSE-ITEM-FROM-PUP* ...) ; processing (DEFGENERIC CHOOSE-ITEM-QUESTION* ...) ; processing (DEFGENERIC CHOOSE-NEW-FILE-QUESTION* ...) ; processing (DEFGENERIC Y-OR-N-QUESTION* ...) ; processing (DEFGENERIC GUI-ERROR* ...) ; processing (DEFGENERIC GUI-WARN* ...) ; processing (DEFGENERIC REPORT-CONDITION ...) ; processing (DEFGENERIC HELP-SPEC ...) ; processing (DEFGENERIC INTERFACE-BEEP* ...) ; processing (DEFGENERIC MAKE-COLOR** ...) ; processing (DEFGENERIC MAKE-GRAY* ...) ; processing (DEFGENERIC MAKE-SCALED-COLOR* ...) ; processing (DEFGENERIC NAME ...) ; processing (DEFGENERIC PROCESS-PARAMETERS* ...) ; processing (DEFGENERIC PROMPT-FOR* ...) ; processing (DEFGENERIC PUT-ITEM-ON-CLIPBOARD* ...) ; processing (DEFGENERIC SELECT-INSTRUMENT* ...) ; processing (DEFGENERIC INSPECT-THING* ...) ; processing (DEFGENERIC SOUND-NOTE* ...) ; processing (DEFGENERIC STOP-NOTES* ...) ; processing (DEFGENERIC MAKE-PROGRESS-BAR ...) ; processing (DEFGENERIC PROGRESS-BAR-VALUE ...) ; processing (DEFGENERIC (SETF PROGRESS-BAR-VALUE) ...) ; processing (DEFGENERIC CLOSE-PROGRESS-BAR ...) ; processing (DEFGENERIC MAKE-UI-POINT* ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/metatilities-base/dev/api-tmpKFZB7CG6.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/l0-utils.lisp" (written 30 MAR 2017 12:37:26 PM): ; processing (IN-PACKAGE #:METATILITIES) ; processing (DEFUN FIXNUMP ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFUN NEQ ...) ; processing (DECLAIM (INLINE NEQ)) ; processing (DEFINE-COMPILER-MACRO NEQ ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFUN CURRENT-LOAD-FILE ...) ; processing (DEFMACRO WITH-UNIQUE-NAMES ...) ; processing (DEFUN ENSURE-LIST ...) ; processing (DEFUN ENSURE-FUNCTION ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFUN EXPORT-EXPORTED-SYMBOLS ...) ; processing (DEFGENERIC LENGTH-AT-LEAST-P ...) ; processing (DEFMETHOD LENGTH-AT-LEAST-P ...) ; processing (DEFMETHOD LENGTH-AT-LEAST-P ...) ; processing (DEFGENERIC LENGTH-AT-MOST-P ...) ; processing (DEFMETHOD LENGTH-AT-MOST-P ...) ; processing (DEFMETHOD LENGTH-AT-MOST-P ...) ; processing (DECLAIM (INLINE LENGTH-1-LIST-P)) ; processing (DEFUN LENGTH-1-LIST-P ...) ; processing (DEFUN NEARLY-ZERO-P ...) ; file: /usr/share/common-lisp/source/metatilities-base/dev/l0-utils.lisp ; in: DEFUN NEARLY-ZERO-P ; (< 0.0 METABANG.UTILITIES::X) ; ; 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. ; ; note: unable to ; open-code RATIONAL to FLOAT comparison ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; (> METABANG.UTILITIES::THRESHOLD METABANG.UTILITIES::X) ; ; note: unable to ; open-code float 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. ; (> METABANG.UTILITIES::X METABANG.UTILITIES::THRESHOLD) ; ; 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. ; (< 0.0 METABANG.UTILITIES::X) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; (> METABANG.UTILITIES::X METABANG.UTILITIES::THRESHOLD) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; (> METABANG.UTILITIES::THRESHOLD METABANG.UTILITIES::X) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; processing (DEFUN NEARLY-EQUAL-P ...) ; processing (DEFUN DOTTED-PAIR-P ...) ; processing (DEFUN APPLY-IF-EXISTS ...) ; processing (DEFUN FUNCALL-IF-EXISTS ...) ; processing (DEFUN CALL-IF-EXISTS ...) ; processing (DEFUN ITERATE-OVER-INDEXES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/metatilities-base/dev/l0-utils-tmpEBQXHK8C.fasl ; compilation finished in 0:00:00.046 ; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/l0-strings.lisp" (written 30 MAR 2017 12:37:26 PM): ; processing (IN-PACKAGE #:METATILITIES) ; processing (DEFPARAMETER +WHITESPACE-CHARACTERS+ ...) ; processing (DEFUN WHITESPACEP ...) ; processing (DEFUN STRING-STARTS-WITH ...) ; processing (DEFUN STRING-ENDS-WITH ...) ; processing (DEFUN STRING-TRIM-IF ...) ; processing (DEFUN STRIP-WHITESPACE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/metatilities-base/dev/l0-strings-tmpWFVO1741.fasl ; compilation finished in 0:00:00.013 ; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/l0-macros.lisp" (written 30 MAR 2017 12:37:26 PM): ; processing (IN-PACKAGE #:METATILITIES) ; processing (DEFMACRO NYI ...) ; processing (DEFMACRO DEPRECATED ...) ; processing (DEFMACRO ONCE-ONLY ...) ; processing (DEFMACRO WITH-VARIABLES ...) ; processing (DEFMACRO EVAL-ALWAYS ...) ; processing (DEFMACRO DEFCLASS-PROPERTY ...) ; processing (DEFMACRO WITH-ATOMIC-EXECUTION ...) ; processing (DEFMACRO HANDLER-BIND* ...) ; processing (DEFMACRO WITH-GENSYMS ...) ; processing (DEFVAR *FILE-IF-EXISTS* ...) ; processing (DEFVAR *FILE-PRINT-RIGHT-MARGIN* ...) ; processing (DEFMACRO WITH-NEW-FILE ...) ; processing (DEFMACRO WITH-STREAM-FROM-SPECIFIER ...) ; processing (DEFMACRO WITH-INPUT ...) ; processing (DEFMACRO WITH-OUTPUT ...) ; processing (DEFMACRO MUFFLE-REDEFINITION-WARNINGS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/metatilities-base/dev/l0-macros-tmpEGBHF4JG.fasl ; compilation finished in 0:00:00.042 ; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/l0-arrays.lisp" (written 30 MAR 2017 12:37:26 PM): ; processing (IN-PACKAGE #:METATILITIES) ; processing (DEFUN LINEARIZE-ARRAY ...) ; processing (DEFUN COPY-ARRAY ...) ; processing (DEFUN MAPARRAY ...) ; processing (DEFUN MAPARRAY! ...) ; processing (DEFUN ARRAY-ROW ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/metatilities-base/dev/l0-arrays-tmpDMKZ90UH.fasl ; compilation finished in 0:00:00.007 ; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/l0-clos.lisp" (written 30 MAR 2017 12:37:26 PM): ; processing (IN-PACKAGE #:METATILITIES) ; processing (DEFUN FINALIZE-CLASS-IF-NECESSARY ...) ; processing (DEFGENERIC GET-CLASS ...) ; processing (DECLAIM (SPECIAL *SAMEP-TOLERANCE*)) ; processing (DEFVAR *SAMEP-TOLERANCE* ...) ; processing (DECLAIM (SPECIAL *SAMEP-TEST*)) ; processing (DEFVAR *SAMEP-TEST* ...) ; processing (DEFGENERIC SAMEP ...) ; processing (DEFGENERIC NEARLY-SAMEP ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/metatilities-base/dev/l0-clos-tmpI4CB9XP0.fasl ; compilation finished in 0:00:00.017 ; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/l0-files.lisp" (written 30 MAR 2017 12:37:26 PM): ; processing (IN-PACKAGE #:METATILITIES) ; processing (DEFINE-CONDITION INVALID-STREAM-SPECIFIER-ERROR ...) ; processing (DEFUN INVALID-STREAM-SPECIFIER-ERROR ...) ; processing (DEFUN PATHNAME-NAME+TYPE ...) ; processing (DEFUN PHYSICAL-PATHNAME-DIRECTORY-SEPARATOR ...) ; processing (DEFUN RELATIVE-PATHNAME ...) ; processing (DEFUN DIRECTORY-PATHNAME-P ...) ; processing (DEFUN ENSURE-DIRECTORY-PATHNAME ...) ; processing (DEFUN PATHNAME-SAMEP ...) ; processing (DEFGENERIC MAKE-STREAM-FROM-SPECIFIER ...) ; processing (DEFGENERIC CLOSE-STREAM-SPECIFIER ...) ; processing (DEFMETHOD MAKE-STREAM-FROM-SPECIFIER ...) ; processing (DEFMETHOD MAKE-STREAM-FROM-SPECIFIER ...) ; processing (DEFMETHOD MAKE-STREAM-FROM-SPECIFIER ...) ; processing (DEFMETHOD MAKE-STREAM-FROM-SPECIFIER ...) ; processing (DEFMETHOD MAKE-STREAM-FROM-SPECIFIER ...) ; processing (DEFMETHOD MAKE-STREAM-FROM-SPECIFIER ...) ; processing (DEFMETHOD MAKE-STREAM-FROM-SPECIFIER ...) ; processing (DEFMETHOD MAKE-STREAM-FROM-SPECIFIER ...) ; processing (DEFMETHOD MAKE-STREAM-FROM-SPECIFIER ...) ; processing (DEFMETHOD CLOSE-STREAM-SPECIFIER ...) ; processing (DEFMETHOD CLOSE-STREAM-SPECIFIER ...) ; processing (DEFUN MAP-FORMS ...) ; processing (DEFUN MAP-LINES ...) ; processing (DEFUN COLLECT-FORMS ...) ; processing (DEFUN COLLECT-LINES ...) ; processing (DEFUN MAP-MATCHING-FILES ...) ; processing (DEFUN COMPILE-EXPRESSION ...) ; processing (DEFUN COLLECT-MATCHING-FILES ...) ; processing (DEFUN FILE-NEWER-THAN-FILE-P ...) ; processing (DEFUN PATHNAME-WITHOUT-NAME+TYPE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/metatilities-base/dev/l0-files-tmpB6CZFPOR.fasl ; compilation finished in 0:00:00.047 ; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/l0-time.lisp" (written 30 MAR 2017 12:37:26 PM): ; processing (IN-PACKAGE #:METATILITIES) ; processing (DEFCONSTANT +MINUTES-PER-HOUR+ ...) ; processing (DEFCONSTANT +SECONDS-PER-MINUTE+ ...) ; processing (DEFCONSTANT +USUAL-DAYS-PER-YEAR+ ...) ; processing (DEFCONSTANT +SECONDS-PER-HOUR+ ...) ; processing (DEFCONSTANT +HOURS-PER-DAY+ ...) ; processing (DEFCONSTANT +SECONDS-PER-DAY+ ...) ; processing (DEFPARAMETER +DAYS-PER-MONTH+ ...) ; processing (EVAL-ALWAYS (DEFMACRO GENERATE-TIME-PART-FUNCTION ...) ...) ; processing (DEFUN DAYS-IN-MONTH ...) ; processing (DEFUN LEAP-YEAR-P ...) ; processing (DEFUN DAY-OF-YEAR ...) ; processing (DEFUN FORMAT-DATE ...) ; processing (DEFCONSTANT +LONGER-FORMAT-INDEX+ ...) ; processing (DEFCONSTANT +SHORTER-FORMAT-INDEX+ ...) ; processing (DEFPARAMETER +MONTH-OUTPUT-LIST+ ...) ; processing (DEFPARAMETER +DOW-OUTPUT-LIST ...) ; processing (DEFUN DAY->STRING ...) ; processing (DEFUN MONTH->STRING ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/metatilities-base/dev/l0-time-tmpR0HRL6AF.fasl ; compilation finished in 0:00:00.048 ; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/set-equal.lisp" (written 30 MAR 2017 12:37:26 PM): ; processing (IN-PACKAGE #:METATILITIES) ; processing (DEFUN SET-EQUAL ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/metatilities-base/dev/set-equal-tmpJW9LMMDM.fasl ; compilation finished in 0:00:00.003 ; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/generic-lisp.lisp" (written 30 MAR 2017 12:37:26 PM): ; processing (IN-PACKAGE #:METATILITIES) ; processing (DEFVAR *DEFAULT-INTERFACE* ...) ; processing (DEFUN DEFAULT-INTERFACE ...) ; processing (DEFUN (SETF DEFAULT-INTERFACE) ...) ; processing (DEFGENERIC IS-INTERFACE-AVAILABLE-P ...) ; processing (DEFMETHOD IS-INTERFACE-AVAILABLE-P ...) ; processing (DEFUN IS-DEFAULT-INTERFACE-AVAILABLE-P ...) ; processing (DEFGENERIC QUIT-LISP* ...) ; processing (DEFMETHOD QUIT-LISP* ...) ; processing (DEFUN QUIT-LISP ...) ; processing (DEFGENERIC TOTAL-BYTES-ALLOCATED* ...) ; processing (DEFUN TOTAL-BYTES-ALLOCATED ...) ; processing (DEFGENERIC GC-TIME* ...) ; processing (DEFUN GC-TIME ...) ; processing (DEFGENERIC COLLECT-GARBAGE* ...) ; processing (DEFUN COLLECT-GARBAGE ...) ; processing (DEFMACRO MAKE-LOAD-FORM* ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/metatilities-base/dev/generic-lisp-tmp5AU4YXDC.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/generic-interface.lisp" (written 30 MAR 2017 12:37:26 PM): ; processing (IN-PACKAGE #:METATILITIES) ; processing (DECLAIM (SPECIAL *DEVELOPMENT-MODE* ...)) ; processing (DEFVAR *DEVELOPMENT-MODE* ...) ; processing (DEFVAR *USE-NATIVE-DEBUGGER* ...) ; processing (DEFVAR *DUMMY-PROGRESS-VARIABLE*) ; processing (DEFVAR *PROGRESS-BAR-COUNT* ...) ; processing (DEFMACRO WITH-PROGRESS-BAR ...) ; processing (DEFMACRO WITH-PROCESS-MESSAGE ...) ; processing (DEFMACRO HANDLE-ERRORS ...) ; processing (DEFMETHOD INTERFACE-BEEP* ...) ; processing (DEFUN INTERFACE-BEEP ...) ; processing (DEFMETHOD MAKE-PROGRESS-BAR ...) ; processing (DEFMETHOD PROGRESS-BAR-VALUE ...) ; processing (DEFMETHOD (SETF PROGRESS-BAR-VALUE) ...) ; processing (DEFMETHOD CLOSE-PROGRESS-BAR ...) ; processing (DEFMETHOD REPORT-CONDITION ...) ; processing (DEFMETHOD GUI-ERROR* ...) ; processing (DEFUN GUI-ERROR ...) ; processing (DEFMETHOD GUI-WARN* ...) ; processing (DEFUN GUI-WARN ...) ; processing (DEFMETHOD MAKE-COLOR** ...) ; processing (DEFUN MAKE-COLOR* ...) ; processing (DEFMETHOD MAKE-GRAY* ...) ; processing (DEFUN MAKE-GRAY ...) ; processing (DEFMETHOD MAKE-SCALED-COLOR* ...) ; processing (DEFUN MAKE-SCALED-COLOR ...) ; processing (DEFMETHOD Y-OR-N-QUESTION* ...) ; processing (DEFUN Y-OR-N-QUESTION ...) ; processing (DEFMETHOD CHOOSE-FILE-QUESTION* ...) ; processing (DEFUN CHOOSE-FILE-QUESTION ...) ; processing (DEFMETHOD CHOOSE-NEW-FILE-QUESTION* ...) ; processing (DEFUN CHOOSE-NEW-FILE-QUESTION ...) ; processing (DEFMETHOD CHOOSE-DIRECTORY-QUESTION* ...) ; processing (DEFUN CHOOSE-DIRECTORY-QUESTION ...) ; processing (DEFMETHOD CHOOSE-ITEM-QUESTION* ...) ; processing (DEFUN CHOOSE-ITEM-QUESTION ...) ; processing (DEFMETHOD CHOOSE-ITEM-FROM-PUP* ...) ; processing (DEFUN CHOOSE-ITEM-FROM-PUP ...) ; processing (DEFUN CHOOSE-ITEM-FROM-PUP-NO-SINGLETONS ...) ; processing (DEFMETHOD MAKE-UI-POINT* ...) ; processing (DEFUN MAKE-UI-POINT ...) ; processing (DEFMETHOD PROCESS-PARAMETERS* ...) ; processing (DEFUN PROCESS-PARAMETERS ...) ; processing (DEFMETHOD PUT-ITEM-ON-CLIPBOARD* ...) ; processing (DEFUN PUT-ITEM-ON-CLIPBOARD ...) ; processing (DEFMETHOD INSPECT-THING* ...) ; processing (DEFUN INSPECT-THING ...) ; processing (DEFUN INSPECT-THINGS ...) ; processing (DEFMETHOD SOUND-NOTE* ...) ; processing (DEFUN SOUND-NOTE ...) ; processing (DEFMETHOD STOP-NOTES* ...) ; processing (DEFUN STOP-NOTES ...) ; processing (DEFMETHOD SELECT-INSTRUMENT* ...) ; processing (DEFUN SELECT-INSTRUMENT ...) ; processing (DEFUN QUERY-USER-FOR-STRING ...) ; processing (DEFUN QUERY-USER-FOR-INTEGER ...) ; processing (DEFMETHOD PROMPT-FOR* ...) ; processing (DEFMETHOD PROMPT-FOR* ...) ; processing (DEFMETHOD PROMPT-FOR* ...) ; processing (DEFUN PROMPT-FOR ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/metatilities-base/dev/generic-interface-tmpGYUJ95L8.fasl ; compilation finished in 0:00:00.064 ; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/defclass-star.lisp" (written 30 MAR 2017 12:37:26 PM): ; processing (IN-PACKAGE #:METATILITIES) ; processing (DEFVAR *AUTOMATIC-SLOT-ACCESSORS?* ...) ; processing (DEFVAR *AUTOMATIC-SLOT-INITARGS?* ...) ; processing (DEFVAR *CLOS-SLOT-OPTIONS* ...) ; processing (DEFVAR *PRUNE-UNKNOWN-SLOT-OPTIONS* ...) ; processing (DEFUN PARSE-BRIEF-SLOT ...) ; processing (DEFMACRO DEFCLASS-BRIEF ...) ; processing (DEFPARAMETER *DEFCLASS-COPY-CONDITION-FUNCTION* ...) ; processing (DEFVAR *DEFCLASS-GENERATE-MAKE-LOAD-FORM* ...) ; processing (DEFCLASS-PROPERTY DEFCLASS*-SUPERCLASSES) ; processing (DEFUN CLASS-COPYABLE-P ...) ; processing (DEFMACRO DEFCLASS* ...) ; processing (DEFPARAMETER *DEFCONDITION-OPTIONS* ...) ; processing (DEFMACRO DEFCONDITION ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/metatilities-base/dev/defclass-star-tmpSX2NSBN5.fasl ; compilation finished in 0:00:00.102 ; compiling file "/usr/share/common-lisp/source/metatilities-base/dev/copy-file.lisp" (written 30 MAR 2017 12:37:26 PM): ; processing (IN-PACKAGE #:METATILITIES) ; processing (EVAL-ALWAYS (EXPORT #)) ; processing (DEFINE-CONDITION SOURCE/TARGET-FILE-ERROR ...) ; processing (DEFINE-CONDITION SOURCE/TARGET-TARGET-ALREADY-EXISTS-ERROR ...) ; processing (DEFINE-CONDITION SOURCE/TARGET-SOURCE-DOES-NOT-EXIST-ERROR ...) ; processing (DEFUN COPY-FILE ...) ; processing (DEFUN MOVE-FILE ...) ; processing (DEFVAR *STREAM-BUFFER-SIZE* ...) ; processing (DEFUN COPY-STREAM ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/metatilities-base/dev/copy-file-tmpGSOGECKD.fasl ; compilation finished in 0:00:00.013 ; compiling file "/usr/share/common-lisp/source/metabang-bind/dev/packages.lisp" (written 01 JAN 2020 06:25:26 PM): ; processing (IN-PACKAGE #:COMMON-LISP-USER) ; processing (DEFPACKAGE #:METABANG.BIND ...) ; processing (DEFPACKAGE #:METABANG.BIND.DEVELOPER ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/metabang-bind/dev/packages-tmpFADXA8WA.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/metabang-bind/dev/macros.lisp" (written 01 JAN 2020 06:25:26 PM): ; processing (IN-PACKAGE #:METABANG.BIND) ; processing (DEFMETHOD DOCUMENTATION ...) ; processing (DEFUN BINDING-FORM-DOCSTRING ...) ; processing (DEFUN (SETF BINDING-FORM-DOCSTRING) ...) ; processing (DEFMACRO DEFBINDING-FORM ...) ; processing (DEFUN NEXT-VALUE ...) ; processing (DEFMACRO LAMBDA-BIND ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/metabang-bind/dev/macros-tmpN3NRP2FJ.fasl ; compilation finished in 0:00:00.025 ; compiling file "/usr/share/common-lisp/source/metabang-bind/dev/bind.lisp" (written 01 JAN 2020 06:25:26 PM): ; processing (IN-PACKAGE #:METABANG.BIND) ; processing (DEFCONSTANT +CODE-MARKER+ ...) ; processing (DEFCONSTANT +DECL-MARKER+ ...) ; processing (DEFGENERIC BINDING-FORM-ACCEPTS-MULTIPLE-FORMS-P ...) ; processing (DEFMETHOD BINDING-FORM-ACCEPTS-MULTIPLE-FORMS-P ...) ; processing (DEFPARAMETER *UNUSED-DECLARATIONS-BEHAVIOR* ...) ; processing (DEFPARAMETER *BIND-ALL-DECLARATIONS* ...) ; processing (DEFPARAMETER *BIND-NON-VAR-DECLARATIONS* ...) ; processing (DEFPARAMETER *BIND-SIMPLE-VAR-DECLARATIONS* ...) ; processing (DEFPARAMETER *BIND-LAMBDA-LIST-MARKERS* ...) ; processing (DEFINE-CONDITION SIMPLE-STYLE-WARNING ...) ; processing (DEFUN SIMPLE-STYLE-WARNING ...) ; processing (DEFINE-CONDITION BIND-MISSING-VALUE-FORM-WARNING ...) ; processing (DEFINE-CONDITION BIND-TOO-MANY-VALUE-FORMS-ERROR ...) ; processing (DEFINE-CONDITION BIND-ERROR ...) ; processing (DEFINE-CONDITION BIND-KEYWORD/OPTIONAL-NIL-WITH-DEFAULT-ERROR ...) ; processing (DEFINE-CONDITION BIND-UNUSED-DECLARATIONS-CONDITION ...) ; processing (DEFINE-CONDITION BIND-UNUSED-DECLARATIONS-WARNING ...) ; processing (DEFINE-CONDITION BIND-UNUSED-DECLARATIONS-ERROR ...) ; processing (DEFUN BINDING-FORMS ...) ; processing (DEFUN BINDING-FORM-GROUPS ...) ; processing (DEFUN BINDING-FORM-SYNONYMS ...) ; processing (DEFVAR *ALL-DECLARATIONS*) ; processing (DEFMACRO BIND ...) ; processing (DEFUN CHECK-FOR-UNUSED-VARIABLE-DECLARATIONS ...) ; processing (DEFUN BIND-MACRO-HELPER ...) ; processing (DEFUN VAR-IGNORABLE-P ...) ; processing (DEFUN MINT-IGNORABLE-VARIABLE ...) ; processing (DEFUN BIND-FIX-NILS ...) ; processing (DEFUN BIND-FIX-NILS-DESTRUCTURED ...) ; processing (DEFUN DOTTED-PAIR-P ...) ; processing (DEFMETHOD BIND-COLLECT-VARIABLES ...) ; processing (DEFUN BIND-GET-VARS-FROM-LAMBDA-LIST ...) ; processing (DEFUN BIND-EXPAND-DECLARATIONS ...) ; processing (DEFUN BIND-FILTER-DECLARATIONS ...) ; processing (DEFUN MERGE-BINDING-FORMS-P ...) ; processing (DEFUN MAP-TREE ...) ; processing (DEFUN TREE-FIND ...) ; processing (DEFMACRO FLUID-BIND ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/metabang-bind/dev/bind-tmpWFHX3XN3.fasl ; compilation finished in 0:00:00.054 ; compiling file "/usr/share/common-lisp/source/metabang-bind/dev/binding-forms.lisp" (written 01 JAN 2020 06:25:26 PM): ; processing (IN-PACKAGE #:METABANG.BIND) ; processing (DEFGENERIC BIND-GENERATE-BINDINGS ...) ; processing (DEFBINDING-FORM (ARRAY :USE-VALUES-P ...) ...) ; processing (DEFBINDING-FORM (SYMBOL :USE-VALUES-P ...) ...) ; processing (DEFBINDING-FORM (:FLET :DOCSTRING ...) ...) ; processing (DEFBINDING-FORM (# :DOCSTRING ...) ...) ; processing (DEFBINDING-FORM (:LABELS :DOCSTRING ...) ...) ; processing (DEFBINDING-FORM (# :DOCSTRING ...) ...) ; processing (DEFBINDING-FORM (CONS :USE-VALUES-P ...) ...) ; processing (DEFBINDING-FORM (# :DOCSTRING ...) ...) ; processing (DEFBINDING-FORM (# :DOCSTRING ...) ...) ; processing (DEFBINDING-FORM (# :DOCSTRING ...) ...) ; processing (DEFUN FIND-TYPE-DECLARATION ...) ; processing (DEFBINDING-FORM (# :DOCSTRING ...) ...) ; processing (DEFBINDING-FORM (# :DOCSTRING ...) ...) ; processing (DEFBINDING-FORM (:SLOTS :DOCSTRING ...) ...) ; processing (DEFBINDING-FORM (# :DOCSTRING ...) ...) ; processing (DEFBINDING-FORM (# :DOCSTRING ...) ...) ; processing (DEFBINDING-FORM (# :DOCSTRING ...) ...) ; processing (DEFBINDING-FORM (:PLIST- :DOCSTRING ...) ...) ; processing (DEFUN HANDLE-PLIST ...) ; processing (DEFBINDING-FORM (:FILE :USE-VALUES-P ...) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/metabang-bind/dev/binding-forms-tmp47S258KN.fasl ; compilation finished in 0:00:00.097 ; compiling file "/usr/share/common-lisp/source/dynamic-classes/dev/package.lisp" (written 21 DEC 2010 01:45:02 PM): ; processing (IN-PACKAGE #:COMMON-LISP-USER) ; processing (DEFPACKAGE #:METABANG-DYNAMIC-CLASSES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/dynamic-classes/dev/package-tmpE4V4F8OD.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/dynamic-classes/dev/define-class.lisp" (written 21 DEC 2010 01:45:02 PM): ; processing (IN-PACKAGE #:METABANG-DYNAMIC-CLASSES) ; processing (DEFVAR *DEFINE-CLASS-FORM* ...) ; processing (DEFUN SIMPLE-DEFINE-CLASS ...) ; processing (DEFUN SIMPLE-DEFINE-CLASS-NAME ...) ; processing (DEFUN DEFINE-CLASS ...) ; processing (DEFUN MAP-SUBCLASSES ...) ; processing (DEFUN SUPERCLASSES ...) ; processing (DEFUN FIND-EXISTING-SUBCLASS ...) ; processing (DEFUN FIND-OR-CREATE-CLASS ...) ; processing (DEFUN REMOVE-REDUNDANT-CLASSES ...) ; processing (DEFUN CLASS-REDUNDANT-P ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/dynamic-classes/dev/define-class-tmpLCU5UNL8.fasl ; compilation finished in 0:00:00.015 ; compiling file "/usr/share/common-lisp/source/dynamic-classes/dev/dynamic-class.lisp" (written 21 DEC 2010 01:45:02 PM): ; processing (IN-PACKAGE #:METABANG-DYNAMIC-CLASSES) ; processing (DEFGENERIC INCLUDE-CLASS-DEPENDENCIES ...) ; processing (DEFGENERIC EXISTING-SUBCLASS ...) ; processing (DEFVAR *PARAMETER-DYNAMIC-CLASS-TABLE* ...) ; processing (DEFUN TYPE->PARAMETER-TABLE ...) ; processing (DEFUN (SETF TYPE->PARAMETER-TABLE) ...) ; processing (DEFUN PARAMETER->DYNAMIC-CLASS ...) ; processing (DEFUN (SETF PARAMETER->DYNAMIC-CLASS) ...) ; processing (DEFUN TABLE&PARAMETER->DYNAMIC-CLASS ...) ; processing (DEFUN ADD-PARAMETER->DYNAMIC-CLASS ...) ; processing (DEFUN ADD-DYNAMIC-CLASS-FOR-PARAMETERS ...) ; processing (DEFUN EMPTY-ADD-PARAMETER->DYNAMIC-CLASS ...) ; processing (DEFUN EMPTY-ALL-ADD-PARAMETER->DYNAMIC-CLASS ...) ; processing (DEFUN DYNAMIC-CLASS-INFORMATION ...) ; processing (DEFMETHOD INCLUDE-CLASS-DEPENDENCIES ...) ; processing (DEFMETHOD EXISTING-SUBCLASS ...) ; processing (DEFUN DETERMINE-DYNAMIC-CLASS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/dynamic-classes/dev/dynamic-class-tmpYY5JG2YX.fasl ; compilation finished in 0:00:00.015 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/package.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:COMMON-LISP-USER) ; processing (DEFPACKAGE #:METABANG.CL-CONTAINERS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/package-tmpK2OIRK3I.fasl ; compilation finished in 0:00:00.002 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/conditions.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CL-CONTAINERS) ; processing (DEFCONDITION CONTAINER-CONDITION ...) ; processing (DEFCONDITION CONTAINER-ERROR ...) ; processing (DEFCONDITION INDEX-OUT-OF-RANGE-ERROR ...) ; processing (DEFINE-CONDITION KEY-DOES-NOT-EXIST-ERROR ...) ; processing (DEFINE-CONDITION QUEUE-EMPTY ...) ; processing (DEFINE-CONDITION RECORD-NOT-FOUND-ERROR ...) ; processing (DEFCONDITION ELEMENT-NOT-FOUND-ERROR ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/conditions-tmpLMNSRE4F.fasl ; compilation finished in 0:00:00.005 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/container-api.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CONTAINERS) ; processing (DEFGENERIC SAMPLE-ELEMENTS ...) ; processing (DEFGENERIC SAMPLE-KEY ...) ; processing (DEFGENERIC SAMPLE-UNIQUE-ELEMENTS ...) ; processing (DEFGENERIC SAMPLE-ELEMENT ...) ; processing (DEFGENERIC SAMPLE-ITEM ...) ; processing (DEFGENERIC BEST-ITEM ...) ; processing (DEFGENERIC ARGMAX ...) ; processing (DEFGENERIC ARGMIN ...) ; processing (DEFGENERIC SIZE ...) ; processing (DEFGENERIC EMPTY! ...) ; processing (DEFGENERIC SOME-ITEM-P ...) ; processing (DEFGENERIC EVERY-ITEM-P ...) ; processing (DEFGENERIC MAKE-CONTAINER-FOR-CONTENTS ...) ; processing (DEFGENERIC NTH-ELEMENT ...) ; processing (DEFGENERIC NTH-ITEM ...) ; processing (DEFGENERIC ITEM-AT ...) ; processing (DEFGENERIC (SETF ITEM-AT) ...) ; processing (DEFGENERIC ITEM-AT! ...) ; processing (DEFGENERIC (SETF ITEM-AT-1) ...) ; processing (DEFGENERIC FIND-ITEM ...) ; processing (DEFGENERIC FIND-NODE ...) ; processing (DEFGENERIC FIND-ELEMENT ...) ; processing (DEFGENERIC SEARCH-FOR-ITEM ...) ; processing (DEFGENERIC SEARCH-FOR-MATCH ...) ; processing (DEFGENERIC ITERATE-NODES ...) ; processing (DEFGENERIC PRINT-CONTAINER ...) ; processing (DEFGENERIC COLLECT-NODES ...) ; processing (DEFGENERIC COLLECT-ELEMENTS ...) ; processing (DEFGENERIC COLLECT-KEY-VALUE ...) ; processing (DEFGENERIC COLLECT-KEYS ...) ; processing (DEFGENERIC ITERATE-VALUE-KEY ...) ; processing (DEFGENERIC (SETF FIRST-ELEMENT) ...) ; processing (DEFUN FIRST-ITEM ...) ; processing (DEFUN LAST-ITEM ...) ; processing (DEFGENERIC DELETE-FIRST ...) ; processing (DEFGENERIC DELETE-LAST ...) ; processing (DEFGENERIC INSERT-ITEM ...) ; processing (DEFGENERIC APPEND-ITEM ...) ; processing (DEFGENERIC INSERT-NEW-ITEM ...) ; processing (DEFGENERIC APPEND-NEW-ITEM ...) ; processing (DEFGENERIC INSERT-SEQUENCE ...) ; processing (DEFGENERIC INSERT-LIST ...) ; processing (DEFGENERIC DELETE-LIST ...) ; processing (DEFGENERIC REVERSE-FIND ...) ; processing (DEFGENERIC ENSURE-SORTED ...) ; processing (DEFGENERIC FORCE-SORT ...) ; processing (DEFGENERIC REMOVE-ITEMS-IF ...) ; processing (DEFGENERIC CONTAINER->ARRAY ...) ; processing (DEFGENERIC ELEMENT-POSITION ...) ; processing (DEFGENERIC REVERSE-CONTAINER ...) ; processing (DEFGENERIC UNIQUE-ELEMENTS ...) ; processing (DEFGENERIC UNIQUE-NODES ...) ; processing (DEFGENERIC ADD-DEFAULT-ITEM ...) ; processing (DEFGENERIC ADD-INITIAL-CONTENTS ...) ; processing (DEFGENERIC BEST-ELEMENT ...) ; processing (DEFGENERIC BEST-NODE ...) ; processing (DEFGENERIC BIGGEST-ITEM ...) ; processing (DEFGENERIC CHILDREN ...) ; processing (DEFGENERIC CLEAN-UP ...) ; processing (DEFGENERIC COLLECT-ELEMENTS-STABLY ...) ; processing (DEFGENERIC COLLECT-ITEMS ...) ; processing (DEFGENERIC COLLECT-KEY-VALUE-STABLY ...) ; processing (DEFGENERIC COMBINE-ELEMENTS ...) ; processing (DEFGENERIC CONTAINER-DIFFERENCE ...) ; processing (DEFGENERIC CONTAINER-DIMENSION ...) ; processing (DEFGENERIC COUNT-ELEMENTS ...) ; processing (DEFGENERIC COUNT-ELEMENTS-IF ...) ; processing (DEFGENERIC COUNT-ITEMS ...) ; processing (DEFGENERIC DELETE-BIGGEST-ITEM ...) ; processing (DEFGENERIC DELETE-ELEMENT ...) ; processing (DEFGENERIC DELETE-ITEM ...) ; processing (DEFGENERIC DELETE-ITEM-AFTER ...) ; processing (DEFGENERIC DELETE-ITEM-AT ...) ; processing (DEFGENERIC DELETE-ITEM-BEFORE ...) ; processing (DEFGENERIC DELETE-ITEM-IF ...) ; processing (DEFGENERIC DELETE-NODE ...) ; processing (DEFGENERIC DEQUEUE ...) ; processing (DEFGENERIC ENQUEUE ...) ; processing (DEFGENERIC ERROR-IF-QUEUE-EMPTY ...) ; processing (DEFGENERIC EVERY-ELEMENT-P ...) ; processing (DEFGENERIC EVERY-KEY-VALUE-P ...) ; processing (DEFGENERIC EXCHANGE-HEAP-NODES ...) ; processing (DEFGENERIC FIND-CHILD-NODE ...) ; processing (DEFGENERIC FIND-SET ...) ; processing (DEFGENERIC FIND-VALUE ...) ; processing (DEFGENERIC FIRST-ELEMENT ...) ; processing (DEFGENERIC GRAFT-NODES ...) ; processing (DEFGENERIC HAS-CHILDREN-P ...) ; processing (DEFGENERIC HEAP-NODE-PARENT ...) ; processing (DEFGENERIC HEAPIFY ...) ; processing (DEFGENERIC HEIGHT ...) ; processing (DEFGENERIC INCREMENT-END ...) ; processing (DEFGENERIC INITIALIZE-CONTAINER ...) ; processing (DEFGENERIC INORDER-WALK ...) ; processing (DEFGENERIC INORDER-WALK-NODES ...) ; processing (DEFGENERIC INSERT-ITEM-AFTER ...) ; processing (DEFGENERIC INSERT-ITEM-AT ...) ; processing (DEFGENERIC INSERT-ITEM-BEFORE ...) ; processing (DEFGENERIC INSERT-ITEM-ORDERED ...) ; processing (DEFGENERIC INSERT-ITEM-ORDERED-ABOUT-NODE ...) ; processing (DEFGENERIC ITEM-AT-1 ...) ; processing (DEFGENERIC ITEM-AT-1! ...) ; processing (DEFGENERIC ITEM-KEY ...) ; processing (DEFGENERIC ITERATE-CONTAINER ...) ; processing (DEFGENERIC ITERATE-ELEMENTS ...) ; processing (DEFGENERIC ITERATE-ELEMENTS-STABLY ...) ; processing (DEFGENERIC ITERATE-KEY-VALUE ...) ; processing (DEFGENERIC ITERATE-KEY-VALUE-STABLY ...) ; processing (DEFGENERIC ITERATE-KEYS ...) ; processing (DEFGENERIC ITERATE-LEFT ...) ; processing (DEFGENERIC ITERATE-LEFT-NODES ...) ; processing (DEFGENERIC ITERATE-NODES-ABOUT-NODE ...) ; processing (DEFGENERIC ITERATE-RIGHT ...) ; processing (DEFGENERIC ITERATE-RIGHT-NODES ...) ; processing (DEFGENERIC L-CHILD ...) ; processing (DEFGENERIC L-CHILD-INDEX ...) ; processing (DEFGENERIC LAST-ELEMENT ...) ; processing (DEFGENERIC (SETF LAST-ELEMENT) ...) ; processing (DEFGENERIC LEFT-AND-RIGHT-NODES-FOR-ITEM ...) ; processing (DEFGENERIC LEFT-NODE-FOR-ITEM ...) ; processing (DEFGENERIC LINK-NODES ...) ; processing (DEFGENERIC MAKE-INITIAL-ELEMENT ...) ; processing (DEFGENERIC MAKE-NODE-FOR-CONTAINER ...) ; processing (DEFGENERIC MAKE-SET ...) ; processing (DEFGENERIC NEXT-ITEM ...) ; processing (DEFGENERIC NODE-EMPTY-P ...) ; processing (DEFGENERIC NODE-PARENT-INDEX ...) ; processing (DEFGENERIC POP-ITEM ...) ; processing (DEFGENERIC POSTORDER-WALK ...) ; processing (DEFGENERIC POSTORDER-WALK-NODES ...) ; processing (DEFGENERIC PREDECESSOR ...) ; processing (DEFGENERIC PREORDER-WALK ...) ; processing (DEFGENERIC PREORDER-WALK-NODES ...) ; processing (DEFGENERIC PRINT-CONTAINER-CONTENTS ...) ; processing (DEFGENERIC PRINT-CONTAINER-SUMMARY ...) ; processing (DEFGENERIC PUSH-ITEM ...) ; processing (DEFGENERIC R-CHILD ...) ; processing (DEFGENERIC R-CHILD-INDEX ...) ; processing (DEFGENERIC RB-DELETE-FIXUP ...) ; processing (DEFGENERIC REDUCE-CONTAINER ...) ; processing (DEFGENERIC REDUCE-ELEMENTS ...) ; processing (DEFGENERIC REDUCE-NODES ...) ; processing (DEFGENERIC REPLACE-ITEM ...) ; processing (DEFGENERIC REPRESENTATIVE ...) ; processing (DEFGENERIC REPRESENTATIVE-NODE ...) ; processing (DEFGENERIC RIGHT-NODE-FOR-ITEM ...) ; processing (DEFGENERIC ROTATE-LEFT ...) ; processing (DEFGENERIC ROTATE-RIGHT ...) ; processing (DEFGENERIC SEARCH-FOR-ELEMENT ...) ; processing (DEFGENERIC SEARCH-FOR-KEY ...) ; processing (DEFGENERIC SEARCH-FOR-MATCHING-NODE ...) ; processing (DEFGENERIC SEARCH-FOR-NODE ...) ; processing (DEFGENERIC SEARCH-FOR-NODE* ...) ; processing (DEFGENERIC SET-DIRTY-FLAG ...) ; processing (DEFGENERIC SOME-ELEMENT-P ...) ; processing (DEFGENERIC SOME-KEY-VALUE-P ...) ; processing (DEFGENERIC SORT-CONTAINER ...) ; processing (DEFGENERIC SORT-ELEMENTS ...) ; processing (DEFGENERIC SORT-KEYS ...) ; processing (DEFGENERIC SORT-UPDATE-LEFT ...) ; processing (DEFGENERIC SORT-UPDATE-RIGHT ...) ; processing (DEFGENERIC SUCCESSOR ...) ; processing (DEFGENERIC TOTAL-SIZE ...) ; processing (DEFGENERIC UPDATE-ELEMENT ...) ; processing (DEFGENERIC UPDATE-ITEM ...) ; processing (DEFGENERIC WALK-TREE ...) ; processing (DEFGENERIC WALK-TREE-NODES ...) ; processing (DEFGENERIC (SETF PACKAGES) ...) ; processing (DEFGENERIC CONTAINER->LIST ...) ; processing (DEFGENERIC CURRENT-ITEM ...) ; processing (DEFGENERIC ITERATE-CHILDREN ...) ; processing (DEFGENERIC FIRST-NODE ...) ; processing (DEFGENERIC %OPERATE-AFTER-FINDING ...) ; processing (DEFGENERIC INSERT-INITIAL-CONTENTS-P ...) ; processing (DEFGENERIC ITERATABLE-P ...) ; processing (DEFGENERIC KEY-VALUE-ITERATABLE-P ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/container-api-tmpFH2B6ZC1.fasl ; compilation finished in 0:00:00.010 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/containers.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CONTAINERS) ; processing (DEFPARAMETER +EMPTY-INITIAL-ELEMENT+ ...) ; processing (DEFCLASS* ABSTRACT-CONTAINER ...) ; processing (DEFCLASS* CONCRETE-CONTAINER ...) ; processing (DEFCLASS* CONTAINER-NODE-MIXIN ...) ; processing (DEFCLASS* PARENT-NODE-MIXIN ...) ; processing (DEFCLASS* TWO-CHILD-NODE ...) ; processing (DEFCLASS* KEYED-CONTAINER-MIXIN ...) ; processing (DEFCLASS* TYPED-CONTAINER-MIXIN ...) ; processing (DEFCLASS* BOUNDED-CONTAINER-MIXIN ...) ; processing (DEFCLASS* INDEXED-CONTAINER-MIXIN ...) ; processing (DEFMETHOD (SETF ITEM-AT) ...) ; processing (DEFCLASS* INITIAL-ELEMENT-MIXIN ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFUN RETURN-EMPTY-INITIAL-ELEMENT ...) ; processing (DEFMETHOD MAKE-INITIAL-ELEMENT ...) ; processing (DEFCLASS* BASIC-INITIAL-CONTENTS-MIXIN ...) ; processing (DEFCLASS* INITIAL-CONTENTS-MIXIN ...) ; processing (DEFCLASS* INITIAL-CONTENTS-KEY-VALUE-MIXIN ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFCLASS* TEST-CONTAINER-MIXIN ...) ; processing (DEFCLASS* CONTAINER-USES-NODES-MIXIN ...) ; processing (DEFCLASS* FINDABLE-CONTAINER-MIXIN ...) ; processing (DEFCLASS* SEARCHABLE-CONTAINER-MIXIN ...) ; processing (DEFCLASS* ITERATABLE-CONTAINER-MIXIN ...) ; processing (DEFCLASS* KEY-VALUE-ITERATABLE-CONTAINER-MIXIN ...) ; processing (DEFMETHOD ITERATE-CONTAINER ...) ; processing (DEFMETHOD COLLECT-ITEMS ...) ; processing (DEFCLASS* I-KNOW-MY-NODE-MIXIN ...) ; processing (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...) ; processing (DEFCLASS* NON-ASSOCIATIVE-CONTAINER-MIXIN ...) ; processing (DEFCLASS* UNORDERED-CONTAINER-MIXIN ...) ; processing (DEFCLASS* ORDERED-CONTAINER-MIXIN ...) ; processing (DEFCLASS* SORTED-CONTAINER-MIXIN ...) ; processing (DEFCLASS* CLASSIFIED-CONTAINER-MIXIN ...) ; processing (DEFCLASS* USES-CONTENTS-MIXIN ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD COLLECT-ELEMENTS ...) ; processing (DEFMETHOD ITERATE-NODES ...) ; processing (DEFCLASS* CONTENTS-AS-SEQUENCE-MIXIN ...) ; processing (DEFCLASS* CONTENTS-AS-ARRAY-MIXIN ...) ; processing (DEFMETHOD SIZE ...) ; processing (DEFMETHOD TOTAL-SIZE ...) ; processing (DEFMETHOD INSERT-INITIAL-CONTENTS-P ...) ; processing (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...) ; processing (DEFCLASS* CONTENTS-AS-LIST-MIXIN ...) ; processing (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...) ; processing (DEFCLASS* LIST-CONTAINER ...) ; processing (DEFCLASS* CONTENTS-AS-HASHTABLE-MIXIN ...) ; processing (DEFCLASS* ASSOCIATIVE-CONTAINER-MIXIN ...) ; processing (DEFCLASS* ARRAY-CONTAINER-ABSTRACT ...) ; processing (DEFCLASS* ARRAY-CONTAINER ...) ; processing (DEFCLASS* SPARSE-ARRAY-CONTAINER ...) ; processing (DEFCLASS* SIMPLE-ASSOCIATIVE-CONTAINER ...) ; processing (DEFCLASS* ASSOCIATIVE-CONTAINER ...) ; processing (DEFCLASS* BIASSOCIATIVE-CONTAINER-MIXIN ...) ; processing (DEFCLASS* ALIST-CONTAINER ...) ; processing (DEFCLASS* STABLE-ASSOCIATIVE-CONTAINER ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFCLASS* ASSOCIATIVE-ARRAY ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD INSERT-INITIAL-CONTENTS-P ...) ; processing (DEFMETHOD ITERATABLE-P ...) ; processing (DEFMETHOD KEY-VALUE-ITERATABLE-P ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/containers-tmp9ESR3THZ.fasl ; compilation finished in 0:00:00.082 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/basic-operations.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CONTAINERS) ; processing (DEFGENERIC MAKE-CONTAINER ...) ; processing (DEFGENERIC EMPTY-P ...) ; processing (DEFMETHOD ITERATE-ELEMENTS ...) ; processing (DEFMETHOD ITERATE-ELEMENTS ...) ; processing (DEFMETHOD FIND-ELEMENT ...) ; processing (DEFMETHOD DELETE-ITEM ...) ; processing (DEFMETHOD DELETE-ELEMENT ...) ; processing (DEFMETHOD PRINT-CONTAINER ...) ; processing (DEFMETHOD NTH-ELEMENT ...) ; processing (DEFMETHOD NTH-ELEMENT ...) ; processing (DEFMETHOD COLLECT-NODES ...) ; processing (DEFMETHOD COLLECT-ELEMENTS ...) ; processing (DEFUN COLLECTOR-INTERNAL ...) ; processing (DEFMETHOD SEARCH-FOR-ITEM ...) ; processing (DEFMETHOD SEARCH-FOR-ELEMENT ...) ; processing (DEFMETHOD SEARCH-FOR-NODE ...) ; processing (DEFUN %SEARCH-IN-CONTAINER ...) ; processing (DEFMETHOD SEARCH-FOR-MATCH ...) ; processing (DEFUN %SEARCH-FOR-MATCH ...) ; processing (DEFMETHOD SEARCH-FOR-MATCHING-NODE ...) ; processing (DEFMETHOD SEARCH-FOR-NODE ...) ; processing (DEFMETHOD SEARCH-FOR-NODE ...) ; processing (DEFMETHOD SEARCH-FOR-NODE* ...) ; processing (DEFMETHOD SEARCH-FOR-NODE* ...) ; processing (DEFMETHOD BEST-ITEM ...) ; processing (DEFMETHOD BEST-ITEM ...) ; processing (DEFMETHOD BEST-NODE ...) ; processing (DEFMETHOD BEST-ELEMENT ...) ; processing (DEFUN %BEST-HELPER ...) ; processing (DEFMETHOD ARGMAX ...) ; processing (DEFMETHOD ARGMIN ...) ; processing (DEFMETHOD REDUCE-CONTAINER ...) ; processing (DEFMETHOD REDUCE-ELEMENTS ...) ; processing (DEFMETHOD REDUCE-NODES ...) ; processing (DEFUN REDUCE-INTERNAL ...) ; processing (DEFMETHOD DELETE-ITEM-IF ...) ; processing (DEFMETHOD FIRST-ELEMENT ...) ; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...) ; processing (DEFMETHOD DELETE-ITEM ...) ; processing (DEFMETHOD DELETE-LIST ...) ; processing (DEFMETHOD INSERT-LIST ...) ; processing (DEFMETHOD INSERT-SEQUENCE ...) ; processing (DEFMETHOD INSERT-SEQUENCE ...) ; processing (DEFMETHOD INSERT-SEQUENCE ...) ; processing (DEFMETHOD INSERT-NEW-ITEM ...) ; processing (DEFMETHOD SUCCESSOR ...) ; processing (DEFMETHOD PREDECESSOR ...) ; processing (DEFMETHOD %OPERATE-AFTER-FINDING ...) ; processing (DEFMETHOD SIZE ...) ; processing (DEFMETHOD EMPTY-P ...) ; processing (DEFMETHOD SORT-ELEMENTS ...) ; processing (DEFMETHOD EMPTY! ...) ; processing (DEFMETHOD SEARCH-FOR-ITEM ...) ; processing (DEFMETHOD ITERATE-NODES ...) ; processing (DEFMETHOD FIND-ITEM ...) ; processing (DEFMETHOD SOME-ITEM-P ...) ; processing (DEFMETHOD EVERY-ITEM-P ...) ; processing (DEFMETHOD SOME-ELEMENT-P ...) ; processing (DEFMETHOD EVERY-ELEMENT-P ...) ; processing (DEFUN %EVERY-THING-P ...) ; processing (DEFUN %SOME-THING-P ...) ; processing (DEFMETHOD INSERT-ITEM ...) ; processing (DEFMETHOD APPEND-ITEM ...) ; processing (DEFMETHOD APPEND-NEW-ITEM ...) ; processing (DEFMETHOD EMPTY-P ...) ; processing (DEFMETHOD EMPTY! ...) ; processing (DEFMETHOD SEARCH-FOR-ITEM ...) ; processing (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...) ; processing (DEFMETHOD SIZE ...) ; processing (DEFMETHOD EMPTY! ...) ; processing (DEFMETHOD SEARCH-FOR-ITEM ...) ; processing (DEFMETHOD ITERATE-NODES ...) ; processing (DEFMETHOD ITERATE-KEYS ...) ; processing (DEFMETHOD COLLECT-KEY-VALUE ...) ; processing (DEFUN %COLLECT-KEY-VALUE ...) ; processing (DEFMETHOD FIND-ITEM ...) ; processing (DEFMETHOD REVERSE-FIND ...) ; processing (DEFMETHOD FIND-VALUE ...) ; processing (DEFMETHOD ITEM-AT! ...) ; processing (DEFMETHOD ADD-DEFAULT-ITEM ...) ; processing (DEFMETHOD ITEM-AT ...) ; processing (DEFMETHOD SIZE ...) ; processing (DEFMETHOD ITERATE-KEYS ...) ; processing (DEFMETHOD ITERATE-NODES ...) ; processing (DEFMETHOD ITERATE-ELEMENTS-STABLY ...) ; processing (DEFMETHOD ITERATE-KEY-VALUE ...) ; processing (DEFMETHOD COLLECT-KEYS ...) ; processing (DEFMETHOD ITERATE-KEY-VALUE-STABLY ...) ; processing (DEFMETHOD COLLECT-KEY-VALUE-STABLY ...) ; processing (DEFMETHOD COLLECT-ELEMENTS-STABLY ...) ; processing (DEFMETHOD EMPTY! ...) ; processing (DEFMETHOD ITEM-AT! ...) ; processing (DEFUN TUPLE-INDEX ...) ; processing (DEFMETHOD ITEM-AT ...) ; processing (DEFMETHOD ITERATE-NODES ...) ; processing (DEFMETHOD CONTAINER-DIMENSION ...) ; processing (DEFMETHOD DIMENSIONS ...) ; processing (DEFMETHOD FIND-ITEM ...) ; processing (DEFMETHOD INSERT-ITEM ...) ; processing (DEFUN COLLECT-USING ...) ; processing (DEFUN COUNT-USING ...) ; processing (DEFMETHOD CONTAINER-DIFFERENCE ...) ; processing (DEFUN ASSOCIATIVE-CONTAINER-P ...) ; processing (DEFMETHOD ADD-INITIAL-CONTENTS ...) ; processing (DEFMETHOD ADD-INITIAL-CONTENTS ...) ; processing (DEFUN ADD-INITIAL-CONTENTS-INTERNAL ...) ; processing (DEFMETHOD ADD-INITIAL-CONTENTS ...) ; processing (DEFMETHOD ELEMENT-POSITION ...) ; processing (DEFMETHOD ELEMENT-POSITION ...) ; processing (DEFMETHOD SAMEP ...) ; processing (DEFMETHOD SAMEP ...) ; processing (DEFMETHOD SAMEP ...) ; processing (DEFMETHOD SAMEP ...) ; processing (DEFMETHOD REVERSE-CONTAINER ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/basic-operations-tmpEP9DKHA4.fasl ; compilation finished in 0:00:00.204 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/queues.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CONTAINERS) ; processing (DEFCLASS* ABSTRACT-QUEUE ...) ; processing (DEFMETHOD ENQUEUE ...) ; processing (DEFMETHOD DEQUEUE ...) ; processing (DEFMETHOD EMPTY! ...) ; processing (DEFMETHOD FIRST-ELEMENT ...) ; processing (DEFMETHOD DELETE-FIRST ...) ; processing (DEFMETHOD ERROR-IF-QUEUE-EMPTY ...) ; processing (DEFCLASS* PRIORITY-QUEUE-ON-CONTAINER ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD INSERT-ITEM ...) ; processing (DEFMETHOD DELETE-FIRST ...) ; processing (DEFMETHOD EMPTY-P ...) ; processing (DEFMETHOD EMPTY! ...) ; processing (DEFMETHOD SIZE ...) ; processing (DEFMETHOD FIRST-ELEMENT ...) ; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...) ; processing (DEFMETHOD FIND-ITEM ...) ; processing (DEFMETHOD FIND-NODE ...) ; processing (DEFMETHOD FIND-ELEMENT ...) ; processing (DEFMETHOD DELETE-ITEM ...) ; processing (DEFMETHOD DELETE-NODE ...) ; processing (DEFMETHOD DELETE-ELEMENT ...) ; processing (DEFMETHOD DELETE-ITEM-IF ...) ; processing (DEFMETHOD ITERATE-NODES ...) ; processing (DEFMETHOD ITERATE-ELEMENTS ...) ; processing (DEFCLASS* BASIC-QUEUE ...) ; processing (DEFUN FRONT-OF-QUEUE ...) ; processing (DEFUN FRONT-OF-QUEUE! ...) ; processing (DEFSETF FRONT-OF-QUEUE ...) ; processing (DEFUN TAIL-OF-QUEUE ...) ; processing (DEFUN TAIL-OF-QUEUE! ...) ; processing (DEFSETF TAIL-OF-QUEUE ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL) ...) ; processing (DEFMETHOD INSERT-ITEM ...) ; file: /usr/share/common-lisp/source/cl-containers/dev/queues.lisp ; in: DEFMETHOD INSERT-ITEM (BASIC-QUEUE T) ; (DEFMETHOD METABANG.CL-CONTAINERS:INSERT-ITEM ; ((METABANG.CL-CONTAINERS::Q METABANG.CL-CONTAINERS:BASIC-QUEUE) ; (METABANG.CL-CONTAINERS::ITEM T)) ; "Add an item to the queue." ; (LET ((METABANG.CL-CONTAINERS::NEW-ITEM ; (LIST METABANG.CL-CONTAINERS::ITEM))) ; (COND ; ((METABANG.CL-CONTAINERS:EMPTY-P METABANG.CL-CONTAINERS::Q) (SETF #)) ; (T (SETF #)))) ; METABANG.CL-CONTAINERS::Q) ; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; ==> ; (SB-PCL::LOAD-DEFMETHOD 'STANDARD-METHOD 'METABANG.CL-CONTAINERS:INSERT-ITEM ; 'NIL ; (LIST ; (FIND-CLASS 'METABANG.CL-CONTAINERS:BASIC-QUEUE) ; (FIND-CLASS 'T)) ; '(METABANG.CL-CONTAINERS::Q ; METABANG.CL-CONTAINERS::ITEM) ; (LIST* :FUNCTION ; (LET* ((SB-PCL::FMF #) (SB-PCL::MF #)) ; (SETF # #) ; SB-PCL::MF) ; '(SB-PCL::PLIST (:ARG-INFO (2)) ; SB-PCL::SIMPLE-NEXT-METHOD-CALL T ; :DOCUMENTATION "Add an item to the queue.")) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; Call to METABANG.CL-CONTAINERS::TAIL-OF-QUEUE could not be inlined because its ; source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation ; must be in effect to save function definitions for inlining. ; ; caught STYLE-WARNING: ; Call to METABANG.CL-CONTAINERS::TAIL-OF-QUEUE! could not be inlined because its ; source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation ; must be in effect to save function definitions for inlining. ; processing (DEFMETHOD DELETE-FIRST ...) ; file: /usr/share/common-lisp/source/cl-containers/dev/queues.lisp ; in: DEFMETHOD DELETE-FIRST (BASIC-QUEUE) ; (DEFMETHOD METABANG.CL-CONTAINERS:DELETE-FIRST ; ((METABANG.CL-CONTAINERS::Q METABANG.CL-CONTAINERS:BASIC-QUEUE)) ; (LET ((METABANG.CL-CONTAINERS::RESULT ; (METABANG.CL-CONTAINERS::FRONT-OF-QUEUE METABANG.CL-CONTAINERS::Q))) ; (SETF (METABANG.CL-CONTAINERS::FRONT-OF-QUEUE METABANG.CL-CONTAINERS::Q) ; (CDR METABANG.CL-CONTAINERS::RESULT) ; METABANG.CL-CONTAINERS::RESULT ; (FIRST METABANG.CL-CONTAINERS::RESULT)) ; (WHEN ; (NULL ; (METABANG.CL-CONTAINERS::FRONT-OF-QUEUE METABANG.CL-CONTAINERS::Q)) ; (METABANG.CL-CONTAINERS:EMPTY! METABANG.CL-CONTAINERS::Q)) ; METABANG.CL-CONTAINERS::RESULT)) ; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; ==> ; (SB-PCL::LOAD-DEFMETHOD 'STANDARD-METHOD 'METABANG.CL-CONTAINERS:DELETE-FIRST ; 'NIL ; (LIST ; (FIND-CLASS 'METABANG.CL-CONTAINERS:BASIC-QUEUE)) ; '(METABANG.CL-CONTAINERS::Q) ; (LIST* :FUNCTION ; (LET* ((SB-PCL::FMF #) (SB-PCL::MF #)) ; (SETF # #) ; SB-PCL::MF) ; '(SB-PCL::PLIST (:ARG-INFO (1)) ; SB-PCL::SIMPLE-NEXT-METHOD-CALL T)) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; Call to METABANG.CL-CONTAINERS::FRONT-OF-QUEUE could not be inlined because its ; source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation ; must be in effect to save function definitions for inlining. ; ; caught STYLE-WARNING: ; Call to METABANG.CL-CONTAINERS::FRONT-OF-QUEUE! could not be inlined because ; its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE ; proclamation must be in effect to save function definitions for inlining. ; processing (DEFMETHOD EMPTY-P ...) ; processing (DEFMETHOD ITERATE-NODES ...) ; processing (DEFMETHOD SIZE ...) ; processing (DEFMETHOD FIRST-ELEMENT ...) ; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...) ; processing (DEFMETHOD EMPTY! ...) ; processing (DEFMETHOD DELETE-ITEM ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/queues-tmp6GNWGQ69.fasl ; compilation finished in 0:00:00.142 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/stacks.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CONTAINERS) ; processing (DEFCLASS* ABSTRACT-STACK ...) ; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...) ; processing (DEFMETHOD PUSH-ITEM ...) ; processing (DEFCLASS* STACK-CONTAINER ...) ; processing (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...) ; processing (DEFMETHOD FIRST-ELEMENT ...) ; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...) ; processing (DEFMETHOD POP-ITEM ...) ; processing (DEFMETHOD INSERT-ITEM ...) ; processing (DEFMETHOD SIZE ...) ; processing (DEFMETHOD EMPTY-P ...) ; processing (DEFMETHOD EMPTY! ...) ; processing (DEFMETHOD SEARCH-FOR-ITEM ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/stacks-tmpTOEVPV91.fasl ; compilation finished in 0:00:00.018 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/vectors.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CONTAINERS) ; processing (DEFCLASS* VECTOR-CONTAINER-MIXIN ...) ; processing (DEFMETHOD ITEM-AT ...) ; processing (DEFMETHOD ITEM-AT! ...) ; processing (DEFMETHOD NTH-ELEMENT ...) ; processing (DEFMETHOD FIRST-ELEMENT ...) ; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...) ; processing (DEFMETHOD LAST-ELEMENT ...) ; processing (DEFMETHOD (SETF LAST-ELEMENT) ...) ; processing (DEFCLASS* BASIC-VECTOR-CONTAINER ...) ; processing (DEFCLASS* BOUNDED-VECTOR-CONTAINER ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFCLASS* VECTOR-CONTAINER ...) ; processing (DEFMETHOD INSERT-ITEM ...) ; processing (DEFMETHOD INSERT-ITEM-AT ...) ; processing (DEFMETHOD DELETE-ITEM-AT ...) ; processing (DEFMETHOD DELETE-ITEM ...) ; processing (DEFMETHOD DELETE-FIRST ...) ; processing (DEFMETHOD DELETE-LAST ...) ; processing (DEFMETHOD SIZE ...) ; processing (DEFCLASS* FLEXIBLE-VECTOR-CONTAINER ...) ; processing (DEFMETHOD ITEM-AT! ...) ; processing (DEFUN RESIZE-VECTOR ...) ; processing (DEFMETHOD SAMEP ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/vectors-tmpJKXRXFYA.fasl ; compilation finished in 0:00:00.044 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/trees.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CONTAINERS) ; processing (DEFCLASS* ABSTRACT-TREE-CONTAINER ...) ; processing (DEFCLASS* ROOTED-TREE-CONTAINER ...) ; processing (DEFCLASS* MANY-CHILD-NODE ...) ; processing (DEFMETHOD ITERATE-CHILDREN ...) ; processing (DEFMETHOD HAS-CHILDREN-P ...) ; processing (DEFMETHOD FIND-CHILD-NODE ...) ; processing (DEFCLASS* MANY-ORDERED-CHILD-NODE ...) ; processing (DEFMETHOD CHILDREN ...) ; processing (DEFCLASS* MANY-UNORDERED-CHILD-NODE ...) ; processing (DEFCLASS* BINARY-SEARCH-TREE ...) ; processing (DEFCLASS* BST-NODE ...) ; processing (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...) ; processing (DEFMETHOD NODE-EMPTY-P ...) ; processing (DEFMETHOD NODE-EMPTY-P ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFMETHOD SIZE ...) ; processing (DEFMETHOD SIZE ...) ; processing (DEFMETHOD EMPTY-P ...) ; processing (DEFMETHOD EMPTY! ...) ; processing (DEFMETHOD FIND-ITEM ...) ; processing (DEFMETHOD FIND-SUCCESSOR-ITEM ...) ; processing (DEFMETHOD FIND-NODE ...) ; processing (DEFMETHOD FIND-SUCCESSOR-NODE ...) ; processing (DEFMETHOD FIRST-ELEMENT ...) ; processing (DEFMETHOD FIRST-NODE ...) ; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...) ; processing (DEFMETHOD FIRST-ELEMENT ...) ; processing (DEFMETHOD FIRST-NODE ...) ; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...) ; processing (DEFMETHOD LAST-ELEMENT ...) ; processing (DEFMETHOD LAST-NODE ...) ; processing (DEFMETHOD LAST-NODE ...) ; processing (DEFMETHOD LAST-ELEMENT ...) ; processing (DEFMETHOD (SETF LAST-ELEMENT) ...) ; processing (DEFMETHOD (SETF LAST-ELEMENT) ...) ; processing (DEFMETHOD SUCCESSOR ...) ; processing (DEFMETHOD PREDECESSOR ...) ; processing (DEFMETHOD INSERT-ITEM ...) ; processing (DEFMETHOD DELETE-NODE ...) ; processing (DEFMETHOD DELETE-NODE ...) ; processing (DEFMETHOD DELETE-ITEM ...) ; processing (DEFMETHOD DELETE-ITEM ...) ; processing (DEFMETHOD DELETE-ITEM-IF ...) ; processing (DEFMETHOD ITERATE-NODES ...) ; processing (DEFMETHOD INORDER-WALK ...) ; processing (DEFMETHOD PREORDER-WALK ...) ; processing (DEFMETHOD POSTORDER-WALK ...) ; processing (DEFMETHOD INORDER-WALK-NODES ...) ; processing (DEFMETHOD PREORDER-WALK-NODES ...) ; processing (DEFMETHOD POSTORDER-WALK-NODES ...) ; processing (DEFMETHOD WALK-TREE ...) ; processing (DEFMETHOD WALK-TREE ...) ; processing (DEFMETHOD WALK-TREE-NODES ...) ; processing (DEFMETHOD WALK-TREE-NODES ...) ; processing (DEFCONSTANT +RBT-COLOR-BLACK+ ...) ; processing (DEFCONSTANT +RBT-COLOR-RED+ ...) ; processing (DEFCLASS RBT-EMPTY-NODE ...) ; processing (DEFCLASS* RED-BLACK-TREE ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFCLASS* RED-BLACK-NODE ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD NODE-EMPTY-P ...) ; processing (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFMETHOD ROTATE-LEFT ...) ; processing (DEFMETHOD ROTATE-RIGHT ...) ; processing (DEFMETHOD INSERT-ITEM ...) ; processing (DEFMETHOD DELETE-NODE ...) ; processing (DEFMETHOD RB-DELETE-FIXUP ...) ; processing (DEFMETHOD WALK-TREE-NODES ...) ; processing (DEFMETHOD WALK-TREE ...) ; processing (DEFMETHOD HEIGHT ...) ; processing (DEFMETHOD HEIGHT ...) ; processing (DEFMETHOD ITEM-AT ...) ; processing (DEFMETHOD UPDATE-ELEMENT ...) ; processing (DEFGENERIC BST-NODE-IS-LEFT-CHILD ...) ; processing (DEFGENERIC BST-NODE-IS-RIGHT-CHILD ...) ; processing (DEFGENERIC BST-NODE-SET-RIGHT-CHILD ...) ; processing (DEFGENERIC BST-NODE-SET-LEFT-CHILD ...) ; processing (DEFGENERIC BST-NODE-REPLACE-CHILD ...) ; processing (DEFCLASS* SPLAY-TREE ...) ; processing (DEFGENERIC SPLAY-TREE-ROTATE ...) ; processing (DEFGENERIC SPLAY-TREE-SPLAY ...) ; processing (DEFMETHOD INSERT-ITEM ...) ; processing (DEFMETHOD ITEM-AT ...) ; processing (DEFMETHOD UPDATE-ELEMENT ...) ; processing (DEFMETHOD FIND-ITEM ...) ; processing (DEFGENERIC RIGHT-MOST-CHILD ...) ; processing (DEFMETHOD DELETE-NODE ...) ; processing (DEFMETHOD DELETE-ITEM ...) ; processing (DEFMETHOD DELETE-ITEM-AT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/trees-tmpKW802XDA.fasl ; compilation finished in 0:00:00.154 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/lists.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CONTAINERS) ; processing (DEFMETHOD INSERT-LIST ...) ; processing (DEFMETHOD FIRST-ELEMENT ...) ; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...) ; processing (DEFMETHOD DELETE-ITEM ...) ; processing (DEFMETHOD FIND-ITEM ...) ; processing (DEFMETHOD DELETE-FIRST ...) ; processing (DEFMETHOD NTH-ELEMENT ...) ; processing (DEFMETHOD ITEM-AT ...) ; processing (DEFMETHOD PRINT-CONTAINER ...) ; processing (DEFMETHOD LAST-ELEMENT ...) ; processing (DEFMETHOD (SETF LAST-ELEMENT) ...) ; processing (DEFCLASS* SORTED-LIST-CONTAINER ...) ; processing (DEFMETHOD SET-DIRTY-FLAG ...) ; processing (DEFMETHOD CLEAN-UP ...) ; processing (DEFMETHOD INSERT-LIST ...) ; processing (DEFMETHOD INSERT-ITEM ...) ; processing (DEFMETHOD DELETE-ITEM ...) ; processing (DEFMETHOD FIRST-ELEMENT ...) ; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...) ; processing (DEFMETHOD DELETE-FIRST ...) ; processing (DEFMETHOD ITEM-AT ...) ; processing (DEFMETHOD PRINT-CONTAINER ...) ; processing (DEFMETHOD ITERATE-NODES ...) ; processing (DEFMETHOD COLLECT-ELEMENTS ...) ; processing (DEFMETHOD ENSURE-SORTED ...) ; processing (DEFMETHOD FORCE-SORT ...) ; processing (DEFCLASS* DLIST-CONTAINER-NODE ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFCLASS* DLIST-CONTAINER ...) ; processing (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...) ; processing (DEFMETHOD EMPTY! ...) ; processing (DEFMETHOD INSERT-ITEM ...) ; processing (DEFMETHOD INSERT-ITEM-AFTER ...) ; processing (DEFMETHOD INSERT-ITEM-AFTER ...) ; processing (DEFMETHOD INSERT-ITEM-AFTER ...) ; processing (DEFMETHOD INSERT-ITEM-AFTER ...) ; processing (DEFMETHOD INSERT-ITEM-BEFORE ...) ; processing (DEFMETHOD INSERT-ITEM-BEFORE ...) ; processing (DEFMETHOD INSERT-ITEM-BEFORE ...) ; processing (DEFMETHOD DELETE-ITEM-AFTER ...) ; processing (DEFMETHOD DELETE-ITEM-BEFORE ...) ; processing (DEFMETHOD DELETE-ITEM ...) ; processing (DEFMETHOD DELETE-ITEM ...) ; processing (DEFMETHOD ITERATE-NODES ...) ; processing (DEFMETHOD ITEM-AT ...) ; processing (DEFMETHOD REPLACE-ITEM ...) ; processing (DEFMETHOD REPLACE-ITEM ...) ; processing (DEFMETHOD SUCCESSOR ...) ; processing (DEFMETHOD PREDECESSOR ...) ; processing (DEFCLASS* SORTED-DLIST-CONTAINER ...) ; processing (DEFMETHOD ITERATE-NODES-ABOUT-NODE ...) ; processing (DEFMETHOD ITERATE-NODES-ABOUT-NODE ...) ; processing (DEFMETHOD ITERATE-NODES-ABOUT-NODE ...) ; processing (DEFMETHOD INSERT-ITEM ...) ; processing (DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE ...) ; file: /usr/share/common-lisp/source/cl-containers/dev/lists.lisp ; in: ; DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE (SORTED-DLIST-CONTAINER ; DLIST-CONTAINER-NODE ; DLIST-CONTAINER-NODE) ; (FUNCALL METABANG.CL-CONTAINERS::KEY ; (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::N)) ; ; note: could not stack allocate: (FUNCALL KEY (ELEMENT N)) ; ; note: could not stack allocate: (FUNCALL KEY (ELEMENT N)) ; processing (DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE ...) ; processing (DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE ...) ; processing (DEFMETHOD INSERT-ITEM-ORDERED ...) ; processing (DEFMETHOD INSERT-ITEM-ORDERED ...) ; processing (DEFMETHOD DELETE-ITEM ...) ; processing (DEFMETHOD DELETE-ITEM ...) ; file: /usr/share/common-lisp/source/cl-containers/dev/lists.lisp ; in: DEFMETHOD DELETE-ITEM (SORTED-DLIST-CONTAINER I-KNOW-MY-NODE-MIXIN) ; (METABANG.CL-CONTAINERS:MY-NODE METABANG.CL-CONTAINERS::ITEM) ; ; note: could not stack allocate: (MY-NODE ITEM) ; processing (DEFMETHOD FORCE-SORT ...) ; processing (DEFMETHOD ENSURE-SORTED ...) ; processing (DEFMETHOD LEFT-NODE-FOR-ITEM ...) ; file: /usr/share/common-lisp/source/cl-containers/dev/lists.lisp ; in: DEFMETHOD LEFT-NODE-FOR-ITEM (SORTED-DLIST-CONTAINER T) ; (FUNCALL METABANG.CL-CONTAINERS::KEY ; (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::N)) ; ; note: could not stack allocate: (FUNCALL KEY (ELEMENT N)) ; processing (DEFMETHOD RIGHT-NODE-FOR-ITEM ...) ; file: /usr/share/common-lisp/source/cl-containers/dev/lists.lisp ; in: DEFMETHOD RIGHT-NODE-FOR-ITEM (SORTED-DLIST-CONTAINER T) ; (FUNCALL METABANG.CL-CONTAINERS::KEY ; (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::N)) ; ; note: could not stack allocate: (FUNCALL KEY (ELEMENT N)) ; processing (DEFMETHOD LEFT-AND-RIGHT-NODES-FOR-ITEM ...) ; file: /usr/share/common-lisp/source/cl-containers/dev/lists.lisp ; in: DEFMETHOD LEFT-AND-RIGHT-NODES-FOR-ITEM (SORTED-DLIST-CONTAINER T) ; (FUNCALL METABANG.CL-CONTAINERS::KEY ; (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::N)) ; ; note: could not stack allocate: (FUNCALL KEY (ELEMENT N)) ; processing (DEFMETHOD ITERATE-LEFT-NODES ...) ; processing (DEFMETHOD ITERATE-LEFT-NODES ...) ; processing (DEFMETHOD ITERATE-LEFT-NODES ...) ; processing (DEFMETHOD ITERATE-RIGHT-NODES ...) ; processing (DEFMETHOD ITERATE-RIGHT-NODES ...) ; processing (DEFMETHOD ITERATE-RIGHT-NODES ...) ; processing (DEFMETHOD ITERATE-LEFT ...) ; file: /usr/share/common-lisp/source/cl-containers/dev/lists.lisp ; in: ; DEFMETHOD ITERATE-LEFT (SORTED-DLIST-CONTAINER DLIST-CONTAINER-NODE T) ; (METABANG.CL-CONTAINERS:PREVIOUS-ITEM METABANG.CL-CONTAINERS::ITEM) ; ; note: could not stack allocate: (PREVIOUS-ITEM ITEM) ; processing (DEFMETHOD ITERATE-LEFT ...) ; processing (DEFMETHOD ITERATE-LEFT ...) ; processing (DEFMETHOD ITERATE-RIGHT ...) ; file: /usr/share/common-lisp/source/cl-containers/dev/lists.lisp ; in: ; DEFMETHOD ITERATE-RIGHT (SORTED-DLIST-CONTAINER DLIST-CONTAINER-NODE T) ; (METABANG.CL-CONTAINERS:NEXT-ITEM METABANG.CL-CONTAINERS::ITEM) ; ; note: could not stack allocate: (NEXT-ITEM ITEM) ; processing (DEFMETHOD ITERATE-RIGHT ...) ; processing (DEFMETHOD ITERATE-RIGHT ...) ; processing (DEFMETHOD SORT-UPDATE-LEFT ...) ; file: /usr/share/common-lisp/source/cl-containers/dev/lists.lisp ; in: ; DEFMETHOD SORT-UPDATE-LEFT (SORTED-DLIST-CONTAINER DLIST-CONTAINER-NODE) ; (FUNCALL METABANG.CL-CONTAINERS::KEY ; (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::NODE)) ; ; note: could not stack allocate: (FUNCALL KEY (ELEMENT NODE)) ; (METABANG.CL-CONTAINERS:PREVIOUS-ITEM METABANG.CL-CONTAINERS::NODE) ; ; note: could not stack allocate: (PREVIOUS-ITEM NODE) ; processing (DEFMETHOD SORT-UPDATE-RIGHT ...) ; file: /usr/share/common-lisp/source/cl-containers/dev/lists.lisp ; in: ; DEFMETHOD SORT-UPDATE-RIGHT (SORTED-DLIST-CONTAINER DLIST-CONTAINER-NODE) ; (FUNCALL METABANG.CL-CONTAINERS::KEY ; (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::NODE)) ; ; note: could not stack allocate: (FUNCALL KEY (ELEMENT NODE)) ; (METABANG.CL-CONTAINERS:NEXT-ITEM METABANG.CL-CONTAINERS::NODE) ; ; note: could not stack allocate: (NEXT-ITEM NODE) ; processing (DEFMETHOD UPDATE-ITEM ...) ; processing (DEFMETHOD UPDATE-ITEM ...) ; processing (DEFMETHOD UPDATE-ITEM ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/lists-tmpO26O9DBY.fasl ; compilation finished in 0:00:00.179 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/bags-and-sets.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CONTAINERS) ; processing (DEFCLASS* ABSTRACT-BAG/SET-CONTAINER ...) ; processing (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...) ; processing (DEFCLASS* BAG-CONTAINER ...) ; processing (DEFMETHOD INSERT-ITEM ...) ; processing (DEFMETHOD SIZE ...) ; processing (DEFMETHOD EMPTY-P ...) ; processing (DEFMETHOD EMPTY! ...) ; processing (DEFMETHOD SEARCH-FOR-ITEM ...) ; processing (DEFMETHOD SEARCH-FOR-MATCH ...) ; processing (DEFMETHOD DELETE-ITEM ...) ; processing (DEFMETHOD FIND-ITEM ...) ; processing (DEFCLASS* SET-CONTAINER ...) ; processing (DEFMETHOD INSERT-ITEM ...) ; processing (DEFCLASS* BAG/SET-CONTAINER ...) ; processing (DEFMETHOD INSERT-ITEM ...) ; processing (DEFMETHOD DELETE-ITEM ...) ; processing (DEFMETHOD SIZE ...) ; processing (DEFMETHOD SEARCH-FOR-ITEM ...) ; processing (DEFMETHOD ITERATE-NODES ...) ; processing (DEFMETHOD FIND-ITEM ...) ; processing (DEFMETHOD FIND-VALUE ...) ; processing (DEFCLASS* KEYED-BAG/SET-CONTAINER ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD INSERT-ITEM ...) ; processing (DEFMETHOD DELETE-ITEM ...) ; processing (DEFMETHOD FIND-ITEM ...) ; processing (DEFMETHOD ITERATE-NODES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/bags-and-sets-tmpYLEULPBM.fasl ; compilation finished in 0:00:00.058 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/ring-buffers.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CONTAINERS) ; processing (DEFCLASS* RING-BUFFER ...) ; processing (DEFUN MAKE-RING-BUFFER ...) ; processing (DEFMETHOD MAKE-CONTAINER ...) ; processing (DEFMETHOD ITEM-AT ...) ; processing (DEFMETHOD ITEM-AT! ...) ; processing (DEFMETHOD INCREMENT-END ...) ; processing (DEFMETHOD NEXT-ITEM ...) ; processing (DEFMETHOD CURRENT-ITEM ...) ; processing (DEFMETHOD INSERT-ITEM ...) ; processing (DEFMETHOD DELETE-FIRST ...) ; processing (DEFMETHOD EMPTY! ...) ; processing (DEFMETHOD SIZE ...) ; processing (DEFMETHOD FIRST-ELEMENT ...) ; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...) ; processing (DEFMETHOD ITERATE-NODES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/ring-buffers-tmpF9PT7DQ2.fasl ; compilation finished in 0:00:00.026 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/miscellaneous.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CONTAINERS) ; processing (DEFUN MERGE-ELEMENTS ...) ; processing (DEFUN MERGE-NODES ...) ; processing (DEFUN %MERGE-HELPER ...) ; processing (DEFUN ELEMENT-COUNTS ...) ; processing (DEFUN NODE-COUNTS ...) ; processing (DEFUN %CONTAINER-COUNTS ...) ; processing (DEFUN MAP-WINDOW-OVER-ELEMENTS ...) ; processing (DEFUN MAP-WINDOW-OVER-NODES ...) ; processing (DEFUN COLLECT-WINDOW-OVER-ELEMENTS ...) ; processing (DEFUN COLLECT-WINDOW-OVER-NODES ...) ; processing (DEFUN MAP-WINDOW-OVER-ELEMENTS-HELPER ...) ; processing (DEFUN MAP-PAIRS ...) ; processing (DEFUN COLLECT-PAIRS ...) ; processing (DEFMETHOD UNIQUE-ELEMENTS ...) ; processing (DEFMETHOD UNIQUE-ELEMENTS ...) ; processing (DEFMETHOD UNIQUE-NODES ...) ; processing (DEFMETHOD UNIQUE-NODES ...) ; processing (DEFUN %UNIQUE-ELEMENTS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/miscellaneous-tmpZVXJSSK9.fasl ; compilation finished in 0:00:00.045 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/associative.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CONTAINERS) ; processing (DEFMETHOD SOME-KEY-VALUE-P ...) ; processing (DEFMETHOD EVERY-KEY-VALUE-P ...) ; processing (DEFMETHOD SAMEP ...) ; processing (DEFMETHOD COLLECT-KEYS ...) ; processing (DEFMETHOD SEARCH-FOR-KEY ...) ; processing (DEFMETHOD REMOVE-ITEMS-IF ...) ; processing (DEFMETHOD REMOVE-ITEMS-IF ...) ; processing (DEFMETHOD COUNT-ITEMS ...) ; processing (DEFMETHOD COUNT-ELEMENTS ...) ; processing (DEFMETHOD COUNT-ELEMENTS ...) ; processing (DEFMETHOD COUNT-ELEMENTS-IF ...) ; processing (DEFMETHOD COUNT-ELEMENTS-IF ...) ; processing (DEFMETHOD PRINT-CONTAINER-SUMMARY ...) ; processing (DEFUN MAKE-ARRAY-CONTAINER ...) ; processing (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...) ; processing (DEFMETHOD MAKE-CONTAINER ...) ; processing (DEFMETHOD ITEM-AT ...) ; processing (DEFMETHOD ITEM-AT! ...) ; processing (DEFMETHOD DIMENSIONS ...) ; processing (DEFMETHOD ITERATE-NODES ...) ; processing (DEFMETHOD NTH-ELEMENT ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...) ; processing (DEFMETHOD TOTAL-SIZE ...) ; processing (DEFUN SPARSE-ARRAY-ROW-MAJOR-INDEX ...) ; processing (DEFUN SPARSE-ARRAY-VALUE-TO-INDEX ...) ; processing (DEFMETHOD ITEM-AT ...) ; processing (DEFMETHOD ITEM-AT! ...) ; processing (DEFMETHOD ITEM-AT-1 ...) ; processing (DEFMETHOD ITEM-AT-1! ...) ; processing (DEFMETHOD (SETF ITEM-AT-1) ...) ; processing (DEFMETHOD ITEM-AT ...) ; processing (DEFMETHOD ITEM-AT! ...) ; processing (DEFMETHOD DELETE-ITEM-AT ...) ; processing (DEFMETHOD ITERATE-KEY-VALUE ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD ITEM-AT ...) ; processing (DEFMETHOD DELETE-ITEM-AT ...) ; processing (DEFMETHOD ITERATE-KEY-VALUE ...) ; processing (DEFUN DESCEND-HT ...) ; processing (DEFUN FIND-OR-CREATE-HT ...) ; processing (DEFMETHOD ITEM-AT! ...) ; processing (DEFMETHOD PRINT-CONTAINER ...) ; processing (DEFMETHOD PRINT-CONTAINER ...) ; processing (DEFMETHOD INITIALIZE-CONTAINER ...) ; processing (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...) ; processing (DEFMETHOD ITEM-AT ...) ; processing (DEFMETHOD ITEM-AT-1 ...) ; processing (DEFMETHOD ITEM-AT-1! ...) ; processing (DEFUN MAYBE-SET-INITIAL-ELEMENT ...) ; processing (DEFMETHOD ITEM-AT! ...) ; processing (DEFMETHOD DELETE-ITEM-AT ...) ; processing (DEFMETHOD SIZE ...) ; processing (DEFMETHOD ITERATE-NODES ...) ; processing (DEFMETHOD ITERATE-KEYS ...) ; processing (DEFMETHOD REVERSE-FIND ...) ; processing (DEFMETHOD EMPTY! ...) ; processing (DEFMETHOD ITERATE-KEY-VALUE ...) ; processing (DEFMETHOD SORT-KEYS ...) ; processing (DEFMETHOD SORT-ELEMENTS ...) ; processing (DEFMETHOD SORT-CONTAINER ...) ; processing (DEFCLASS* KEYED-ASSOCIATIVE-CONTAINER ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFUN IDENTITY-2 ...) ; processing (DEFMETHOD ITEM-KEY ...) ; processing (DEFMETHOD ITEM-AT ...) ; processing (DEFMETHOD DELETE-ITEM-AT ...) ; processing (DEFMETHOD ITEM-AT! ...) ; processing (DEFGENERIC KEY-EXISTS-P ...) ; processing (DEFMETHOD KEY-EXISTS-P ...) ; processing (DEFMETHOD ITERATE-KEY-VALUE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/associative-tmpHE83XZ7O.fasl ; compilation finished in 0:00:00.220 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/compatibility.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CONTAINERS) ; processing (DEFMETHOD ITERATABLE-P ...) ; processing (DEFMETHOD ITERATE-ELEMENTS ...) ; processing (DEFMETHOD ITERATE-NODES ...) ; processing (DEFMETHOD ITERATE-ELEMENTS ...) ; processing (DEFMETHOD ITERATE-NODES ...) ; processing (DEFMETHOD COLLECT-ELEMENTS ...) ; processing (DEFMETHOD ELEMENT-POSITION ...) ; processing (DEFMETHOD EMPTY-P ...) ; processing (DEFMETHOD FIRST-ELEMENT ...) ; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...) ; processing (DEFMETHOD LAST-ELEMENT ...) ; processing (DEFMETHOD (SETF LAST-ELEMENT) ...) ; processing (DEFMETHOD NTH-ELEMENT ...) ; processing (DEFMETHOD SEARCH-FOR-MATCH ...) ; processing (DEFMETHOD SIZE ...) ; processing (DEFMETHOD FIND-ITEM ...) ; processing (DEFMETHOD SEARCH-FOR-ITEM ...) ; processing (DEFMETHOD SEARCH-FOR-ELEMENT ...) ; processing (DEFMETHOD REDUCE-ELEMENTS ...) ; processing (DEFMETHOD SOME-ITEM-P ...) ; processing (DEFMETHOD SOME-ELEMENT-P ...) ; processing (DEFMETHOD EVERY-ITEM-P ...) ; processing (DEFMETHOD EVERY-ELEMENT-P ...) ; processing (DEFMETHOD ITERATE-ELEMENTS ...) ; processing (DEFMETHOD ITERATE-NODES ...) ; processing (DEFMETHOD ITERATABLE-P ...) ; processing (DEFMETHOD COLLECT-ELEMENTS ...) ; processing (DEFMETHOD SIZE ...) ; processing (DEFMETHOD EMPTY-P ...) ; processing (DEFMETHOD FIRST-ELEMENT ...) ; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...) ; processing (DEFMETHOD LAST-ELEMENT ...) ; processing (DEFMETHOD (SETF LAST-ELEMENT) ...) ; processing (DEFMETHOD SEARCH-FOR-MATCH ...) ; processing (DEFMETHOD SOME-ITEM-P ...) ; processing (DEFMETHOD SOME-ELEMENT-P ...) ; processing (DEFMETHOD EVERY-ITEM-P ...) ; processing (DEFMETHOD EVERY-ELEMENT-P ...) ; processing (DEFMETHOD SORT-ELEMENTS ...) ; processing (DEFMETHOD NTH-ELEMENT ...) ; processing (DEFMETHOD ITERATE-ELEMENTS ...) ; processing (DEFMETHOD ITERATE-NODES ...) ; processing (DEFMETHOD ITERATABLE-P ...) ; processing (DEFMETHOD COLLECT-ELEMENTS ...) ; processing (DEFMETHOD SIZE ...) ; processing (DEFMETHOD FIRST-ELEMENT ...) ; processing (DEFMETHOD (SETF FIRST-ELEMENT) ...) ; processing (DEFMETHOD LAST-ELEMENT ...) ; processing (DEFMETHOD (SETF LAST-ELEMENT) ...) ; processing (DEFMETHOD SEARCH-FOR-MATCH ...) ; processing (DEFMETHOD SOME-ELEMENT-P ...) ; processing (DEFMETHOD EVERY-ELEMENT-P ...) ; processing (DEFMETHOD NTH-ELEMENT ...) ; processing (DEFMETHOD ITEM-AT ...) ; processing (DEFMETHOD ITEM-AT! ...) ; processing (DEFMETHOD ITERATABLE-P ...) ; processing (DEFMETHOD ITERATE-ELEMENTS ...) ; processing (DEFMETHOD ITERATE-NODES ...) ; processing (DEFMETHOD COLLECT-ELEMENTS ...) ; processing (DEFMETHOD COLLECT-KEYS ...) ; processing (DEFMETHOD ITERATE-KEY-VALUE ...) ; processing (DEFMETHOD EMPTY! ...) ; processing (DEFMETHOD EMPTY-P ...) ; processing (DEFMETHOD SIZE ...) ; processing (DEFMETHOD ITEM-AT ...) ; processing (DEFMETHOD ITEM-AT! ...) ; processing (DEFMETHOD ITEM-AT-1 ...) ; processing (DEFMETHOD ITEM-AT-1! ...) ; processing (DEFMETHOD PRINT-CONTAINER ...) ; processing (DEFMETHOD ITEM-AT ...) ; processing (DEFMETHOD ITEM-AT-1 ...) ; processing (DEFMETHOD ITERATE-KEY-VALUE ...) ; processing (DEFMETHOD COLLECT-KEY-VALUE ...) ; processing (DEFMETHOD COLLECT-KEYS ...) ; processing (DEFMETHOD DELETE-ITEM-AT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/compatibility-tmpU3H21CW4.fasl ; compilation finished in 0:00:00.311 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/quad-tree.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CONTAINERS) ; processing (DEFCLASS* QUAD-TREE ...) ; processing (DEFCLASS* FOUR-CHILD-NODE ...) ; processing (DEFCLASS* QUAD-TREE-NODE ...) ; processing (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...) ; processing (DEFMETHOD NODE-EMPTY-P ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFGENERIC NOTIFY-ELEMENT-OF-CHILD-STATUS ...) ; processing (DEFMETHOD INSERT-ITEM ...) ; processing (DEFMETHOD EMPTY-P ...) ; processing (DEFMETHOD EMPTY! ...) ; processing (DEFMETHOD FIND-ITEM ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/quad-tree-tmp6L9FXRGE.fasl ; compilation finished in 0:00:00.043 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/heaps.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CONTAINERS) ; processing (DEFCLASS* HEAP-CONTAINER ...) ; processing (DEFCLASS* HEAP-NODE ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFMETHOD L-CHILD ...) ; processing (DEFMETHOD R-CHILD ...) ; processing (DEFMETHOD HEAP-NODE-PARENT ...) ; processing (DEFMETHOD L-CHILD-INDEX ...) ; processing (DEFMETHOD R-CHILD-INDEX ...) ; processing (DEFMETHOD NODE-PARENT-INDEX ...) ; processing (DEFMETHOD EXCHANGE-HEAP-NODES ...) ; processing (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...) ; processing (DEFMETHOD HEAPIFY ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD BIGGEST-ITEM ...) ; processing (DEFMETHOD DELETE-BIGGEST-ITEM ...) ; processing (DEFMETHOD DELETE-ITEM ...) ; processing (DEFMETHOD INSERT-ITEM ...) ; processing (DEFCLASS* K-BEST-HEAP-CONTAINER ...) ; processing (DEFMETHOD INSERT-ITEM ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/heaps-tmp4SNFF0M5.fasl ; compilation finished in 0:00:00.084 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/container-mixins.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CONTAINERS) ; processing (DEFCLASS* FILTERED-CONTAINER-MIXIN ...) ; processing (DEFMETHOD ITERATE-ELEMENTS ...) ; processing (DEFMETHOD COLLECT-ELEMENTS ...) ; processing (DEFMETHOD ITERATE-KEY-VALUE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/container-mixins-tmpCM27R9AJ.fasl ; compilation finished in 0:00:00.055 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/union-find-container.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CONTAINERS) ; processing (DEFCLASS* UNION-FIND-NODE ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFMETHOD MAKE-SET ...) ; processing (DEFMETHOD GRAFT-NODES ...) ; processing (DEFMETHOD FIND-SET ...) ; processing (DEFMETHOD LINK-NODES ...) ; processing (DEFCLASS* UNION-FIND-CONTAINER ...) ; processing (DEFMETHOD INSERT-ITEM ...) ; processing (DEFMETHOD REPRESENTATIVE ...) ; processing (DEFMETHOD REPRESENTATIVE-NODE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/union-find-container-tmp46E7TEHY.fasl ; compilation finished in 0:00:00.034 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/package-container.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CONTAINERS) ; processing (DEFCLASS* PACKAGE-CONTAINER ...) ; processing (DEFMETHOD (SETF PACKAGES) ...) ; processing (DEFMETHOD (SETF PACKAGES) ...) ; processing (DEFMETHOD ITERATE-ELEMENTS ...) ; processing (DEFMETHOD SIZE ...) ; processing (DEFUN BOUND-SYMBOLS-IN-PACKAGE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/package-container-tmpMW4DE87N.fasl ; compilation finished in 0:00:00.027 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/iterator-api.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CONTAINERS) ; processing (DEFGENERIC MAKE-ITERATOR ...) ; processing (DEFGENERIC PRINT-ITERATOR ...) ; processing (DEFGENERIC FINISH ...) ; processing (DEFGENERIC MOVE-P ...) ; processing (DEFGENERIC ELEMENT-PASSES-P ...) ; processing (DEFGENERIC MOVE ...) ; processing (DEFGENERIC BASE-CLASS-FOR-ITERATEE ...) ; processing (DEFGENERIC CLASS-FOR-CONTENTS-AS ...) ; processing (DEFGENERIC CURRENT-ELEMENT ...) ; processing (DEFGENERIC CURRENT-ELEMENT-P ...) ; processing (DEFGENERIC SETUP-INITIAL-CONTAINER ...) ; processing (DEFGENERIC ADVANCE ...) ; processing (DEFGENERIC ITERATE-FORWARD ...) ; processing (DEFGENERIC MAKE-INTERNAL-ITERATOR ...) ; processing (DEFGENERIC MOVE-FORWARD ...) ; processing (DEFGENERIC MOVE-FORWARD-TO-NEXT-ELEMENT ...) ; processing (DEFGENERIC MOVE-INTERNAL ...) ; processing (DEFGENERIC NEXT-ELEMENT ...) ; processing (DEFGENERIC OPEN-FILE-FOR-ITERATOR ...) ; processing (DEFGENERIC RESET ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/iterator-api-tmp2JNAKTBR.fasl ; compilation finished in 0:00:00.003 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/iterators.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CL-CONTAINERS) ; processing (DEFCONSTANT +ITERATOR-BEFORE-BEGINNING+ ...) ; processing (DEFCONSTANT +ITERATOR-AFTER-END+ ...) ; processing (DEFCONDITION BASIC-ITERATOR-CONDITION ...) ; processing (DEFCONDITION NO-CURRENT-ELEMENT-ERROR ...) ; processing (DEFCLASS* ABSTRACT-GENERATOR ...) ; processing (DEFMETHOD FINISH ...) ; processing (DEFCLASS* BASIC-ITERATOR ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD SETUP-INITIAL-CONTAINER ...) ; processing (DEFMETHOD PRINT-ITERATOR ...) ; processing (DEFMETHOD RESET ...) ; processing (DEFMETHOD MOVE-P ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFMETHOD PRINT-ITERATOR ...) ; processing (DEFCLASS* FORWARD-ITERATOR ...) ; processing (DEFMETHOD ITERATE-CONTAINER ...) ; processing (DEFMETHOD ITERATE-NODES ...) ; processing (DEFMETHOD EMPTY-P ...) ; processing (DEFMETHOD ELEMENT ...) ; processing (DEFMETHOD NEXT-ELEMENT ...) ; processing (DEFMETHOD CURRENT-ELEMENT-P ...) ; processing (DEFMETHOD ELEMENT ...) ; processing (DEFMETHOD MOVE ...) ; processing (DEFUN MOVE-FORWARD-P ...) ; processing (DEFMETHOD MOVE-FORWARD ...) ; processing (DEFMETHOD ITERATE-FORWARD ...) ; processing (DEFCLASS* TRANSFORMING-ITERATOR-MIXIN ...) ; processing (DEFMETHOD CURRENT-ELEMENT ...) ; processing (DEFMETHOD MOVE ...) ; processing (DEFCLASS* BASIC-FILTERED-ITERATOR-MIXIN ...) ; processing (DEFMETHOD MOVE ...) ; processing (DEFCLASS* FILTERED-ITERATOR-MIXIN ...) ; processing (DEFMETHOD ELEMENT-PASSES-P ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD MOVE-FORWARD-TO-NEXT-ELEMENT ...) ; processing (DEFCLASS* UNIQUE-VALUE-ITERATOR-MIXIN ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD ELEMENT-PASSES-P ...) ; processing (DEFMETHOD ELEMENT ...) ; processing (DEFCLASS* CIRCULAR-ITERATOR-MIXIN ...) ; processing (DEFMETHOD MOVE-P ...) ; processing (DEFCLASS* LIST-ITERATOR ...) ; processing (DEFMETHOD RESET ...) ; processing (DEFMETHOD MOVE ...) ; processing (DEFMETHOD CURRENT-ELEMENT ...) ; processing (DEFMETHOD MOVE-P ...) ; processing (DEFCLASS* ARRAY-ITERATOR ...) ; processing (DEFMETHOD RESET ...) ; processing (DEFMETHOD MOVE ...) ; processing (DEFMETHOD CURRENT-ELEMENT-P ...) ; processing (DEFMETHOD CURRENT-ELEMENT ...) ; processing (DEFMETHOD MOVE-P ...) ; processing (DEFCLASS* HASH-TABLE-ITERATOR ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD RESET ...) ; processing (DEFMETHOD MAKE-ITERATOR ...) ; processing (DEFMETHOD MAKE-ITERATOR ...) ; processing (DEFUN MAKE-GENERATOR ...) ; processing (DEFCLASS* BASIC-GENERATOR ...) ; processing (DEFCLASS* ARITHMETIC-SEQUENCE-GENERATOR ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD MOVE ...) ; processing (DEFMETHOD MOVE-P ...) ; processing (DEFMETHOD CURRENT-ELEMENT ...) ; processing (DEFCLASS* FINITE-ARITHMETIC-SEQUENCE-GENERATOR ...) ; processing (DEFMETHOD MOVE-P ...) ; processing (DEFUN MAP-CONTAINERS ...) ; processing (DEFUN COLLECT-CONTAINERS ...) ; processing (DEFMACRO WITH-ITERATOR ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/iterators-tmpMR8VKH1U.fasl ; compilation finished in 0:00:00.191 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/file-iterators.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CONTAINERS) ; processing (DEFCLASS* BASIC-STREAM-ITERATOR ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD FINISH ...) ; processing (DEFMETHOD OPEN-FILE-FOR-ITERATOR ...) ; processing (DEFMETHOD OPEN-FILE-FOR-ITERATOR ...) ; processing (DEFMETHOD OPEN-FILE-FOR-ITERATOR ...) ; processing (DEFCLASS* FILE-ITERATOR ...) ; processing (DEFMETHOD BASE-CLASS-FOR-ITERATEE ...) ; processing (DEFMETHOD MOVE ...) ; processing (DEFMETHOD ADVANCE ...) ; processing (DEFMETHOD CURRENT-ELEMENT ...) ; processing (DEFMETHOD CURRENT-ELEMENT-P ...) ; processing (DEFMETHOD MOVE-P ...) ; processing (DEFCLASS* FILE-LINE-ITERATOR ...) ; processing (DEFMETHOD MOVE ...) ; processing (DEFMETHOD ADVANCE ...) ; processing (DEFMETHOD CURRENT-ELEMENT ...) ; processing (DEFMETHOD CURRENT-ELEMENT-P ...) ; processing (DEFMETHOD MOVE-P ...) ; processing (DEFMETHOD CLASS-FOR-CONTENTS-AS ...) ; processing (DEFCLASS* FILE-FORM-ITERATOR ...) ; processing (DEFMETHOD MOVE ...) ; processing (DEFMETHOD ADVANCE ...) ; processing (DEFMETHOD CURRENT-ELEMENT ...) ; processing (DEFMETHOD CURRENT-ELEMENT-P ...) ; processing (DEFMETHOD MOVE-P ...) ; processing (DEFMETHOD CLASS-FOR-CONTENTS-AS ...) ; processing (DEFCLASS* DELIMITED-ITERATOR ...) ; processing (DEFCLASS* INTERNAL-ITERATOR-MIXIN ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD MAKE-INTERNAL-ITERATOR ...) ; processing (DEFGENERIC CHARACTERIZE-ELEMENT ...) ; processing (DEFMETHOD CHARACTERIZE-ELEMENT ...) ; processing (DEFMETHOD MOVE ...) ; processing (DEFMETHOD MOVE-INTERNAL ...) ; processing (DEFMETHOD ADVANCE ...) ; processing (DEFMETHOD COMBINE-ELEMENTS ...) ; processing (DEFMETHOD CURRENT-ELEMENT ...) ; processing (DEFMETHOD CURRENT-ELEMENT-P ...) ; processing (DEFMETHOD MOVE-P ...) ; processing (DEFCLASS* WORD-ITERATOR ...) ; processing (DEFCLASS* LINE-ITERATOR ...) ; processing (DEFMETHOD CLASS-FOR-CONTENTS-AS ...) ; processing (DEFMETHOD CLASS-FOR-CONTENTS-AS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/file-iterators-tmp4HP247ND.fasl ; compilation finished in 0:00:00.127 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/dynamic-classes.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CL-CONTAINERS) ; processing (DEFVAR *DEFINE-CLASS-FORM* ...) ; processing (DEFUN SIMPLE-DEFINE-CLASS ...) ; processing (DEFUN SIMPLE-DEFINE-CLASS-NAME ...) ; processing (DEFUN DEFINE-CLASS ...) ; processing (DEFUN MAP-SUBCLASSES ...) ; processing (DEFUN SUPERCLASSES ...) ; processing (DEFUN FIND-EXISTING-SUBCLASS ...) ; processing (DEFUN FIND-OR-CREATE-CLASS ...) ; processing (DEFUN REMOVE-REDUNDANT-CLASSES ...) ; processing (DEFUN CLASS-REDUNDANT-P ...) ; processing (DEFGENERIC INCLUDE-CLASS-DEPENDENCIES ...) ; processing (DEFGENERIC EXISTING-SUBCLASS ...) ; processing (DEFVAR *PARAMETER-DYNAMIC-CLASS-TABLE* ...) ; processing (DEFUN TYPE->PARAMETER-TABLE ...) ; processing (DEFUN (SETF TYPE->PARAMETER-TABLE) ...) ; processing (DEFUN PARAMETER->DYNAMIC-CLASS ...) ; processing (DEFUN (SETF PARAMETER->DYNAMIC-CLASS) ...) ; processing (DEFUN TABLE&PARAMETER->DYNAMIC-CLASS ...) ; processing (DEFUN ADD-PARAMETER->DYNAMIC-CLASS ...) ; processing (DEFUN ADD-DYNAMIC-CLASS-FOR-PARAMETERS ...) ; processing (DEFUN EMPTY-ADD-PARAMETER->DYNAMIC-CLASS ...) ; processing (DEFUN EMPTY-ALL-ADD-PARAMETER->DYNAMIC-CLASS ...) ; processing (DEFUN DYNAMIC-CLASS-INFORMATION ...) ; processing (DEFMETHOD INCLUDE-CLASS-DEPENDENCIES ...) ; processing (DEFMETHOD EXISTING-SUBCLASS ...) ; processing (DEFUN DETERMINE-DYNAMIC-CLASS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/dynamic-classes-tmpCBPA3J2K.fasl ; compilation finished in 0:00:00.054 ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/dynamic-class-defs.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:CL-CONTAINERS) ; processing (DEFVAR *CURRENT-ITERATEE* ...) ; processing (DEFMETHOD MAKE-CONTAINER ...) ; processing (ADD-PARAMETER->DYNAMIC-CLASS :ITERATOR ...) ; processing (ADD-PARAMETER->DYNAMIC-CLASS :ITERATOR ...) ; processing (ADD-PARAMETER->DYNAMIC-CLASS :ITERATOR ...) ; processing (ADD-PARAMETER->DYNAMIC-CLASS :ITERATOR ...) ; processing (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...) ; processing (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...) ; processing (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...) ; processing (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...) ; processing (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...) ; processing (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...) ; processing (DEFMETHOD EXISTING-SUBCLASS ...) ; processing (DEFMETHOD EXISTING-SUBCLASS ...) ; processing (DEFUN DETERMINE-ITERATOR-CLASS ...) ; processing (DEFUN DETERMINE-GENERATOR-CLASS ...) ; processing (DEFMETHOD INCLUDE-CLASS-DEPENDENCIES ...) ; processing (DEFMETHOD CLASS-FOR-CONTENTS-AS ...) ; processing (DEFMETHOD BASE-CLASS-FOR-ITERATEE ...) ; processing (DEFMETHOD BASE-CLASS-FOR-ITERATEE ...) ; processing (DEFMETHOD BASE-CLASS-FOR-ITERATEE ...) ; processing (DEFMETHOD BASE-CLASS-FOR-ITERATEE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/dynamic-class-defs-tmpUKEKWS3E.fasl ; compilation finished in 0:00:00.024 ; compiling file "/usr/share/common-lisp/source/anaphora/packages.lisp" (written 11 JAN 2021 12:20:58 PM): ; processing (DEFPACKAGE :ANAPHORA ...) ; processing (DEFPACKAGE :ANAPHORA-BASIC ...) ; processing (DEFPACKAGE :ANAPHORA-SYMBOL ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/anaphora/packages-tmpP1N1L2FE.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/anaphora/early.lisp" (written 11 JAN 2021 12:20:58 PM): ; processing (IN-PACKAGE :ANAPHORA) ; processing (DEFMACRO WITH-UNIQUE-NAMES ...) ; processing (DEFMACRO IGNORE-FIRST ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/anaphora/early-tmpJZ1AFCDQ.fasl ; compilation finished in 0:00:00.010 ; compiling file "/usr/share/common-lisp/source/anaphora/symbolic.lisp" (written 11 JAN 2021 12:20:58 PM): ; processing (IN-PACKAGE :ANAPHORA) ; processing (DEFMACRO INTERNAL-SYMBOL-MACROLET ...) ; processing (DEFINE-SETF-EXPANDER INTERNAL-SYMBOL-MACROLET ...) ; processing (WITH-UNIQUE-NAMES (S-INDICATOR CURRENT-S-INDICATOR) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/anaphora/symbolic-tmpE2RDUEQF.fasl ; compilation finished in 0:00:00.011 ; compiling file "/usr/share/common-lisp/source/anaphora/anaphora.lisp" (written 11 JAN 2021 12:20:58 PM): ; processing (IN-PACKAGE :ANAPHORA) ; processing (DEFMACRO ALET ...) ; processing (DEFMACRO SLET ...) ; processing (DEFMACRO AAND ...) ; processing (DEFMACRO SOR ...) ; processing (DEFMACRO AIF ...) ; processing (DEFMACRO SIF ...) ; processing (DEFMACRO ASIF ...) ; processing (DEFMACRO APROG1 ...) ; processing (DEFMACRO AWHEN ...) ; processing (DEFMACRO SWHEN ...) ; processing (DEFMACRO SUNLESS ...) ; processing (DEFMACRO ACASE ...) ; processing (DEFMACRO SCASE ...) ; processing (DEFMACRO AECASE ...) ; processing (DEFMACRO SECASE ...) ; processing (DEFMACRO ACCASE ...) ; processing (DEFMACRO SCCASE ...) ; processing (DEFMACRO ATYPECASE ...) ; processing (DEFMACRO STYPECASE ...) ; processing (DEFMACRO AETYPECASE ...) ; processing (DEFMACRO SETYPECASE ...) ; processing (DEFMACRO ACTYPECASE ...) ; processing (DEFMACRO SCTYPECASE ...) ; processing (DEFMACRO ACOND ...) ; processing (DEFMACRO SCOND ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/anaphora/anaphora-tmpB4PWHQTJ.fasl ; compilation finished in 0:00:00.082 ; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/package.lisp" (written 06 OCT 2010 03:06:46 PM): ; processing (IN-PACKAGE #:COMMON-LISP-USER) ; processing (DEFPACKAGE #:CL-MARKDOWN ...) ; processing (DEFPACKAGE #:CL-MARKDOWN-USER ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-markdown/dev/package-tmpX1YMGP2L.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/api.lisp" (written 06 OCT 2010 03:06:46 PM): ; processing (IN-PACKAGE #:CL-MARKDOWN) ; processing (DEFGENERIC RESET ...) ; processing (DEFGENERIC (SETF DOCUMENT-PROPERTY) ...) ; processing (DEFGENERIC RENDER-TO-STREAM ...) ; processing (DEFGENERIC MAIN-PARENT ...) ; processing (DEFGENERIC HANDLE-SPANS ...) ; processing (DEFGENERIC SCAN-ONE-SPAN ...) ; processing (DEFGENERIC PROCESS-SPAN-IN-SPAN-P ...) ; processing (DEFGENERIC UNCONVERT-ESCAPES ...) ; processing (DEFGENERIC RENDER ...) ; processing (DEFGENERIC IT-STARTS-WITH-BLOCK-LEVEL-HTML-P ...) ; processing (DEFGENERIC MARKUP-CLASS-MERGABLE-P ...) ; processing (DEFGENERIC MERGE-LINES-IN-CHUNKS ...) ; processing (DEFGENERIC CAN-MERGE-LINES-P ...) ; processing (DEFGENERIC HANDLE-PARAGRAPH-EVAL-INTERACTIONS ...) ; processing (DEFGENERIC ENCODE-HTML ...) ; processing (DEFGENERIC MARKUP-CLASS-FOR-HTML ...) ; processing (DEFGENERIC RENDER-SPAN-TO-HTML ...) ; processing (DEFGENERIC GENERATE-LINK-OUTPUT ...) ; processing (DEFGENERIC ADD-HTML-HEADER-P ...) ; processing (DEFGENERIC RENDER-PLAIN ...) ; processing (DEFGENERIC RENDER-SPAN-PLAIN ...) ; processing (DEFGENERIC PROCESS-SPAN-FOR ...) ; processing (DEFGENERIC GENERATE-LINK-OUTPUT-FOR-KIND ...) ; processing (DEFGENERIC PROCESS-SPAN ...) ; processing (DEFGENERIC PRINT-HTML-MARKUP ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-markdown/dev/api-tmp10W3LB9F.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/definitions.lisp" (written 06 OCT 2010 03:06:46 PM): ; processing (IN-PACKAGE #:CL-MARKDOWN) ; processing (DEFPARAMETER *SPACES-PER-TAB* ...) ; processing (DEFPARAMETER *PARSING-ENVIRONMENT* ...) ; processing (DEFPARAMETER *CHUNK-PARSING-ENVIRONMENTS* ...) ; processing (DEFPARAMETER *SPANNER-PARSING-ENVIRONMENTS* ...) ; processing (DEFPARAMETER *HORIZONTAL-RULE-COUNT-THRESHOLD* ...) ; processing (DEFPARAMETER *DEFAULT-STREAM* ...) ; processing (DEFPARAMETER *DEFAULT-FORMAT* ...) ; processing (DEFVAR *OUTPUT-STREAM* ...) ; processing (DEFVAR *CURRENT-INDENTATION-LEVEL* ...) ; processing (DEFPARAMETER *CURRENT-DOCUMENT* ...) ; processing (DEFPARAMETER *CURRENT-FORMAT* ...) ; processing (DEFPARAMETER *RENDER-ACTIVE-FUNCTIONS* ...) ; processing (DEFPARAMETER *PARSE-ACTIVE-FUNCTIONS* ...) ; processing (DEFPARAMETER *BLOCK-LEVEL-HTML-TAGS* ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-markdown/dev/definitions-tmpK2B1ODJ1.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/macros.lisp" (written 06 OCT 2010 03:06:46 PM): ; processing (IN-PACKAGE #:CL-MARKDOWN) ; processing (DEFMACRO DEFSIMPLE-EXTENSION ...) ; processing (DEFUN %VALIDATE-DEFEXTENSION-ARGUMENTS ...) ; processing (DEFUN %COLLECT-ARGUMENTS ...) ; processing (DEFUN %COLLECT-POSITIONALS ...) ; processing (DEFPARAMETER *EXTENSIONS* ...) ; processing (DEFMACRO DEFEXTENSION ...) ; processing (DEFUN %IMPORT/EXPORT-SYMBOL ...) ; processing (DEFMACRO AAND+ ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-markdown/dev/macros-tmp5C6SBQY7.fasl ; compilation finished in 0:00:00.048 ; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/class-defs.lisp" (written 06 OCT 2010 03:06:46 PM): ; processing (IN-PACKAGE #:CL-MARKDOWN) ; processing (DEFCLASS MARKDOWN-WARNING ...) ; processing (DEFCLASS* ABSTRACT-DOCUMENT ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFCLASS* DOCUMENT ...) ; processing (DEFCLASS* CHILD-DOCUMENT ...) ; processing (DEFCLASS* MULTI-DOCUMENT ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFCLASS* INCLUDED-DOCUMENT ...) ; processing (DEFGENERIC DOCUMENT-PROPERTY ...) ; processing (DEFMETHOD DOCUMENT-PROPERTY ...) ; processing (DEFMETHOD (SETF DOCUMENT-PROPERTY) ...) ; processing (DEFUN FIND-LINK ...) ; processing (DEFUN FORM-PROPERTY-NAME ...) ; processing (DEFCLASS* CHUNK ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFCLASS* CHUNK-PARSING-ENVIRONMENT ...) ; processing (DEFCLASS* PARSING-ENVIRONMENT ...) ; processing (DEFUN CURRENT-CHUNK-PARSER ...) ; processing (DEFCLASS* BASIC-LINK-INFO ...) ; processing (DEFCLASS* LINK-INFO ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFCLASS* EXTENDED-LINK-INFO ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-markdown/dev/class-defs-tmpQJDP3B3H.fasl ; compilation finished in 0:00:00.043 ; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/utilities.lisp" (written 06 OCT 2010 03:06:46 PM): ; processing (IN-PACKAGE #:CL-MARKDOWN) ; processing (DEFUN NEXT-BLOCK ...) ; processing (DEFMETHOD RENDER-TO-STREAM ...) ; processing (DEFUN ENSURE-STRING ...) ; processing (DEFMETHOD MAIN-PARENT ...) ; processing (DEFMETHOD MAIN-PARENT ...) ; processing (DEFUN ROOT-PARENT ...) ; processing (DEFUN COLLECT-LINKS ...) ; processing (DEFUN STARTS-WITH ...) ; processing (DEFUN MARKDOWN-WARNING ...) ; processing (EVAL-ALWAYS (DEFUN _MARK-RANGE ...) ...) ; processing (DEFPARAMETER +FIRST-NAME-CHARACTERS+ ...) ; processing (DEFPARAMETER +NAME-CHARACTERS+ ...) ; processing (DEFUN HTML-SAFE-NAME ...) ; processing (DEFUN STRING->LIST ...) ; processing (DEFUN PROCESS-BRACKETS ...) ; processing (DEFUN SHORT-SOURCE ...) ; processing (DEFUN COULD-BE-HTML-TAG-P ...) ; processing (DEFUN STREAM-STRING-FOR-HTML ...) ; processing (DEFUN ENCODE-STRING-FOR-HTML ...) ; processing (DEFUN ENCODE-PRE ...) ; processing (DEFUN ENCODE-STRING-FOR-TITLE ...) ; processing (DEFUN FIND-INCLUDE-FILE ...) ; processing (DEFUN PROCESS-CHILD-MARKDOWN ...) ; processing (DEFUN ASDF-SYSTEM-SOURCE-FILE ...) ; processing (DEFUN ASDF-SYSTEM-SOURCE-DIRECTORY ...) ; processing (DEFUN SYSTEM-RELATIVE-PATHNAME ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-markdown/dev/utilities-tmpT6PBJ345.fasl ; compilation finished in 0:00:00.080 ; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/regexes.lisp" (written 06 OCT 2010 03:06:46 PM): ; processing (IN-PACKAGE #:MARKDOWN) ; processing (DEFINE-PARSE-TREE-SYNONYM LINE-ENDS-WITH-TWO-SPACES ...) ; processing (DEFINE-PARSE-TREE-SYNONYM EMPHASIS-1 ...) ; processing (DEFINE-PARSE-TREE-SYNONYM EMPHASIS-2 ...) ; processing (DEFINE-PARSE-TREE-SYNONYM STRONG-1 ...) ; processing (DEFINE-PARSE-TREE-SYNONYM STRONG-2 ...) ; processing (DEFINE-PARSE-TREE-SYNONYM STRONG-EM-1 ...) ; processing (DEFINE-PARSE-TREE-SYNONYM STRONG-EM-2 ...) ; processing (DEFINE-PARSE-TREE-SYNONYM BACKTICK ...) ; processing (DEFINE-PARSE-TREE-SYNONYM AUTO-LINK ...) ; processing (DEFINE-PARSE-TREE-SYNONYM AUTO-MAIL ...) ; processing (DEFINE-PARSE-TREE-SYNONYM HTML ...) ; processing (DEFINE-PARSE-TREE-SYNONYM ENTITY ...) ; processing (DEFINE-PARSE-TREE-SYNONYM HOSTNAME-CHAR ...) ; processing (DEFINE-PARSE-TREE-SYNONYM HOSTNAME ...) ; processing (DEFINE-PARSE-TREE-SYNONYM PATHNAME-CHAR ...) ; processing (DEFINE-PARSE-TREE-SYNONYM URL-PATHNAME ...) ; processing (DEFINE-PARSE-TREE-SYNONYM URL ...) ; processing (DEFINE-PARSE-TREE-SYNONYM URL-NO-REGISTERS ...) ; processing (DEFINE-PARSE-TREE-SYNONYM BRACKETED ...) ; processing (DEFPARAMETER *ESCAPE-CHARACTERS* ...) ; processing (DEFINE-PARSE-TREE-SYNONYM VALID-ESCAPE ...) ; processing (DEFINE-PARSE-TREE-SYNONYM ESCAPED-CHARACTER ...) ; processing (DEFINE-PARSE-TREE-SYNONYM ESCAPE-KLUDGE ...) ; processing (DEFINE-PARSE-TREE-SYNONYM LINK+TITLE ...) ; processing (DEFINE-PARSE-TREE-SYNONYM INLINE-LINK ...) ; processing (DEFINE-PARSE-TREE-SYNONYM REFERENCE-LINK ...) ; processing (DEFINE-PARSE-TREE-SYNONYM LINK-LABEL ...) ; processing (DEFINE-PARSE-TREE-SYNONYM EXTENDED-LINK-LABEL ...) ; processing (DEFINE-PARSE-TREE-SYNONYM CODED-REFERENCE-LINK ...) ; processing (DEFINE-PARSE-TREE-SYNONYM BRACKETED ...) ; processing (DEFINE-PARSE-TREE-SYNONYM INLINE-IMAGE ...) ; processing (DEFINE-PARSE-TREE-SYNONYM INLINE-IMAGE ...) ; processing (DEFINE-PARSE-TREE-SYNONYM REFERENCE-IMAGE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-markdown/dev/regexes-tmpP7KOSV72.fasl ; compilation finished in 0:00:00.011 ; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/spans.lisp" (written 06 OCT 2010 03:06:46 PM): ; processing (IN-PACKAGE #:CL-MARKDOWN) ; processing (DEFVAR *CURRENT-SPAN* ...) ; processing (DEFSTRUCT (MARKDOWN-SCANNER #) ...) ; processing (SETF (ITEM-AT-1 *SPANNER-PARSING-ENVIRONMENTS* ...) ...) ; processing (SETF (ITEM-AT-1 *SPANNER-PARSING-ENVIRONMENTS* ...) ...) ; processing (DEFUN SCANNERS-FOR-CHUNK ...) ; processing (DEFMETHOD HANDLE-SPANS ...) ; processing (DEFMETHOD HANDLE-SPANS ...) ; processing (DEFUN SCAN-LINES-WITH-SCANNERS ...) ; processing (DEFMETHOD SCAN-ONE-SPAN ...) ; processing (DEFMETHOD SCAN-ONE-SPAN ...) ; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...) ; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...) ; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...) ; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...) ; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...) ; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...) ; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...) ; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...) ; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...) ; processing (DEFMETHOD SCAN-ONE-SPAN ...) ; processing (DEFUN COMBINE-STRINGS ...) ; processing (DEFUN CONVERT-ESCAPE-TEMPORARILY ...) ; processing (DEFMETHOD UNCONVERT-ESCAPES ...) ; processing (DEFMETHOD UNCONVERT-ESCAPES ...) ; processing (DEFMETHOD UNCONVERT-ESCAPES ...) ; processing (DEFMETHOD UNCONVERT-ESCAPES ...) ; processing (DEFMETHOD UNCONVERT-ESCAPES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-markdown/dev/spans-tmpFERHD10F.fasl ; compilation finished in 0:00:00.061 ; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/markdown.lisp" (written 06 OCT 2010 03:06:46 PM): ; processing (IN-PACKAGE #:CL-MARKDOWN) ; processing (DEFUN MARKDOWN ...) ; processing (DEFUN CONTAINING-DIRECTORY ...) ; processing (DEFMETHOD RENDER ...) ; processing (DEFMETHOD RENDER ...) ; processing (DEFMETHOD RESET ...) ; processing (DEFUN NULL-STRIPPER ...) ; processing (DEFUN ONE-TAB-STRIPPER ...) ; processing (DEFUN BLOCKQUOTE-STRIPPER ...) ; processing (DEFUN BLOCKQUOTE-COUNT ...) ; processing (DEFUN LINE-INDENTATION ...) ; processing (DEFUN LINE-CHANGES-INDENTATION-P ...) ; processing (DEFUN LINE-STARTS-WITH-BULLET-P ...) ; processing (DEFUN CHAR-IS-TAB-OR-SPACE-P ...) ; processing (DEFUN CHAR-IS-BULLET-P ...) ; processing (DEFUN LINE-STARTS-WITH-NUMBER-P ...) ; processing (DEFUN LINE-IS-EMPTY-P ...) ; processing (DEFUN LINE-IS-NOT-EMPTY-P ...) ; processing (DEFUN LINE-IS-BLOCKQUOTE-P ...) ; processing (DEFUN LINE-IS-CODE-P ...) ; processing (DEFUN LINE-COULD-BE-HEADER-MARKER-P ...) ; processing (DEFUN LINE-IS-LINK-LABEL-P ...) ; processing (DEFUN LINE-IS-EXTENDED-LINK-LABEL-P ...) ; processing (DEFUN LINE-OTHER-P ...) ; processing (DEFUN HORIZONTAL-RULE-CHAR-P ...) ; processing (DEFUN LINE-IS-HORIZONTAL-RULE-P ...) ; processing (SETF (ITEM-AT-1 *CHUNK-PARSING-ENVIRONMENTS* ...) ...) ; processing (SETF (ITEM-AT-1 *CHUNK-PARSING-ENVIRONMENTS* ...) ...) ; processing (DEFUN MAYBE-STRIP-LINE ...) ; processing (DEFUN CHUNK-SOURCE ...) ; processing (DEFUN HANDLE-HORIZONTAL-RULES ...) ; processing (DEFMETHOD IT-STARTS-WITH-BLOCK-LEVEL-HTML-P ...) ; processing (DEFMETHOD IT-STARTS-WITH-BLOCK-LEVEL-HTML-P ...) ; processing (DEFUN HANDLE-PARAGRAPHS ...) ; processing (DEFUN HANDLE-BULLET-PARAGRAPHS ...) ; processing (DEFUN HANDLE-ATX-HEADERS ...) ; processing (DEFUN MAKE-HEADER ...) ; processing (DEFUN ATX-HEADER-P ...) ; processing (DEFUN ATX-HEADER-MARKUP-CLASS ...) ; processing (DEFUN REMOVE-ATX-HEADER ...) ; processing (DEFUN CAN-MERGE-CHUNKS-P ...) ; processing (DEFMETHOD MARKUP-CLASS-MERGABLE-P ...) ; processing (DEFMETHOD MARKUP-CLASS-MERGABLE-P ...) ; processing (DEFUN MERGE-CHUNKS-IN-DOCUMENT ...) ; processing (DEFUN MERGE-CHUNKS ...) ; processing (DEFMETHOD MERGE-LINES-IN-CHUNKS ...) ; processing (DEFMETHOD MERGE-LINES-IN-CHUNKS ...) ; processing (DEFMETHOD MERGE-LINES-IN-CHUNKS ...) ; processing (DEFMETHOD CAN-MERGE-LINES-P ...) ; processing (DEFMETHOD CAN-MERGE-LINES-P ...) ; processing (DEFUN HANDLE-SETEXT-HEADERS ...) ; processing (DEFUN REMOVED-IGNORED-CHUNKS? ...) ; processing (DEFUN SETEXT-HEADER-MARKUP-CLASS ...) ; processing (DEFUN HANDLE-LINK-REFERENCE-TITLES ...) ; processing (DEFUN HANDLE-EXTENDED-LINK-REFERENCES ...) ; processing (DEFUN LINE-COULD-BE-LINK-REFERENCE-TITLE-P ...) ; processing (DEFUN HANDLE-BULLET-LISTS ...) ; processing (DEFUN REMOVE-BULLET ...) ; processing (DEFUN HANDLE-NUMBER-LISTS ...) ; processing (DEFUN REMOVE-NUMBER ...) ; processing (DEFUN HANDLE-BLOCKQUOTES ...) ; processing (DEFUN REMOVE-BLOCKQUOTE ...) ; processing (DEFUN HANDLE-CODE ...) ; processing (DEFUN REMOVE-INDENT ...) ; processing (DEFUN CANONIZE-DOCUMENT ...) ; processing (DEFUN CANONIZE-CHUNK-MARKUP-CLASS ...) ; processing (DEFUN CANONIZE-MARKUP-CLASS ...) ; processing (DEFUN CLEANUP ...) ; processing (DEFUN REMOVE-EMPTY-BITS ...) ; processing (DEFMETHOD HANDLE-PARAGRAPH-EVAL-INTERACTIONS ...) ; processing (DEFMETHOD HANDLE-PARAGRAPH-EVAL-INTERACTIONS ...) ; processing (DEFUN CHUNK-WANTS-PARAGRAPH-P ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-markdown/dev/markdown-tmpTVXHO5TD.fasl ; compilation finished in 0:00:00.141 ; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/html.lisp" (written 06 OCT 2010 03:06:46 PM): ; processing (IN-PACKAGE #:CL-MARKDOWN) ; processing (DEFSTRUCT (HTML-MARKUP # ...) ...) ; processing (DEFMETHOD PRINT-HTML-MARKUP ...) ; processing (DEFPARAMETER *MARKUP->HTML* ...) ; processing (DEFVAR *MAGIC-SPACE-P* ...) ; processing (DEFVAR *MAGIC-LINE-P* ...) ; processing (DEFPARAMETER *MAGIC-SPACE* ...) ; processing (DEFPARAMETER *MAGIC-LINE* ...) ; processing (DEFGENERIC RENDER-TO-HTML ...) ; processing (DEFMETHOD RENDER ...) ; processing (DEFUN HTML-BLOCK-MARKUP ...) ; processing (DEFUN HTML-INNER-BLOCK-MARKUP ...) ; processing (DEFMETHOD RENDER-TO-HTML ...) ; processing (DEFMETHOD ENCODE-HTML ...) ; processing (DEFMETHOD ENCODE-HTML ...) ; processing (DEFMETHOD MARKUP-CLASS-FOR-HTML ...) ; processing (DEFMETHOD RENDER-TO-HTML ...) ; processing (DEFMETHOD RENDER-TO-HTML ...) ; processing (DEFUN OUTPUT-HTML ...) ; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...) ; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...) ; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...) ; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...) ; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...) ; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...) ; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...) ; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...) ; processing (DEFMETHOD GENERATE-LINK-OUTPUT ...) ; processing (DEFMETHOD GENERATE-LINK-OUTPUT ...) ; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...) ; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...) ; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...) ; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...) ; processing (DEFUN OUTPUT-LINK ...) ; processing (DEFUN OUTPUT-IMAGE ...) ; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...) ; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...) ; processing (DEFUN STREAM-OUT-MARKUP ...) ; processing (DEFMETHOD RENDER-TO-HTML ...) ; processing (DEFMETHOD ADD-HTML-HEADER-P ...) ; processing (DEFMETHOD ADD-HTML-HEADER-P ...) ; processing (DEFUN INNER-BLOCK ...) ; processing (DEFVAR *HTML-META* ...) ; processing (DEFUN GENERATE-HTML-HEADER ...) ; processing (DEFUN GENERATE-DOCTYPE ...) ; processing (DEFUN INSERT-STYLE-SHEET ...) ; processing (DEFUN OUTPUT-ANCHOR ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-markdown/dev/html-tmp6XR5LAPW.fasl ; compilation finished in 0:00:00.117 ; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/plain.lisp" (written 06 OCT 2010 03:06:46 PM): ; processing (IN-PACKAGE #:CL-MARKDOWN) ; processing (DEFMETHOD RENDER ...) ; processing (DEFMETHOD RENDER-PLAIN ...) ; processing (DEFMETHOD RENDER-PLAIN ...) ; processing (DEFMETHOD RENDER-PLAIN ...) ; processing (DEFMETHOD RENDER-PLAIN ...) ; processing (DEFMETHOD RENDER-SPAN-PLAIN ...) ; processing (DEFMETHOD RENDER-SPAN-PLAIN ...) ; processing (DEFMETHOD RENDER-SPAN-PLAIN ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-markdown/dev/plain-tmpGEPT0T15.fasl ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/multiple-documents.lisp" (written 06 OCT 2010 03:06:46 PM): ; processing (IN-PACKAGE #:CL-MARKDOWN) ; processing (DEFUN MARKDOWN-MANY ...) ; processing (DEFUN MERGE-ARGUMENTS ...) ; processing (DEFUN TRANSFER-DOCUMENT-DATA ...) ; processing (DEFUN TRANSFER-DOCUMENT-METADATA ...) ; processing (DEFUN TRANSFER-SELECTED-PROPERTIES ...) ; processing (DEFUN TRANSFER-LINK-INFO ...) ; processing (DEFGENERIC TRANSFER-1-LINK-INFO ...) ; processing (DEFMETHOD TRANSFER-1-LINK-INFO ...) ; processing (DEFUN RELATIVE-URL-WRT-DESTINATION ...) ; processing (DEFUN RELATIVE-URL-P ...) ; processing (DEFMETHOD TRANSFER-1-LINK-INFO ...) ; processing (DEFGENERIC UGLY-CREATE-FROM-TEMPLATE ...) ; processing (DEFMETHOD UGLY-CREATE-FROM-TEMPLATE ...) ; processing (DEFGENERIC MERGE-ENTRIES ...) ; processing (DEFMETHOD MERGE-ENTRIES ...) ; processing (DEFMETHOD MERGE-ENTRIES ...) ; processing (DEFMETHOD MERGE-ENTRIES ...) ; processing (DEFMETHOD MERGE-ENTRIES ...) ; processing (DEFMETHOD MERGE-ENTRIES ...) ; processing (DEFMETHOD MERGE-ENTRIES ...) ; processing (DEFMETHOD MERGE-ENTRIES ...) ; processing (DEFMETHOD MERGE-ENTRIES ...) ; processing (DEFMETHOD MERGE-ENTRIES ...) ; processing (DEFUN MERGE-ELEMENTS-VIA-ITERATION ...) ; processing (DEFUN MERGE-USING-KEY-VALUE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-markdown/dev/multiple-documents-tmpMKX5S6TB.fasl ; compilation finished in 0:00:00.041 ; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/epilogue.lisp" (written 06 OCT 2010 03:06:46 PM): ; processing (IN-PACKAGE #:CL-MARKDOWN) ; processing (SETF *PARSING-ENVIRONMENT* ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-markdown/dev/epilogue-tmpT1R329DD.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/extension-mechanisms.lisp" (written 06 OCT 2010 03:06:46 PM): ; processing (IN-PACKAGE #:CL-MARKDOWN) ; processing (DEFUN ADD-EXTENSION ...) ; processing (DEFINE-PARSE-TREE-SYNONYM WIKI-LINK ...) ; processing (DEFINE-PARSE-TREE-SYNONYM EVAL ...) ; processing (DEFINE-PARSE-TREE-SYNONYM EVAL-IN-CODE ...) ; processing (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) ...) ; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...) ; processing (DEFMETHOD RENDER-SPAN-TO-HTML ...) ; processing (DEFUN RENDER-HANDLE-EVAL ...) ; processing (DEFUN CANONIZE-COMMAND ...) ; processing (DEFMETHOD PROCESS-SPAN ...) ; processing (DEFMETHOD PROCESS-SPAN ...) ; processing (DEFUN PROCESS-HANDLE-EVAL ...) ; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...) ; processing (DEFMETHOD PROCESS-SPAN-IN-SPAN-P ...) ; processing (DEFUN %PULL-ARGUMENTS-FROM-STRING ...) ; processing (DEFMETHOD GENERATE-LINK-OUTPUT-FOR-KIND ...) ; processing (DEFEXTENSION (GLOSSARY) ...) ; processing (DEFMETHOD GENERATE-LINK-OUTPUT-FOR-KIND ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-markdown/dev/extension-mechanisms-tmpYV9QWBE7.fasl ; compilation finished in 0:00:00.030 ; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/extensions.lisp" (written 06 OCT 2010 03:06:46 PM): ; processing (IN-PACKAGE #:CL-MARKDOWN) ; processing (DEFSIMPLE-EXTENSION TODAY ...) ; processing (DEFSIMPLE-EXTENSION NOW ...) ; processing (DEFEXTENSION (COMMENT :ARGUMENTS ...) ...) ; processing (DEFEXTENSION (REMARK :ARGUMENTS ...) ...) ; processing (DEFEXTENSION (ANCHOR :ARGUMENTS ...) ...) ; processing (DEFEXTENSION (PROPERTY :ARGUMENTS ...) ...) ; processing (DEFEXTENSION (IFDEF :ARGUMENTS ...) ...) ; processing (DEFEXTENSION (SET-PROPERTY :ARGUMENTS ...) ...) ; processing (DEFEXTENSION (TABLE-OF-CONTENTS :ARGUMENTS ...) ...) ; processing (DEFUN COLLECT-TOC-HEADINGS ...) ; processing (DEFSIMPLE-EXTENSION TOC-LINK ...) ; processing (DEFUN MAKE-REF ...) ; processing (DEFUN ADD-TOC-ANCHORS ...) ; processing (DEFUN SIMPLE-ANCHOR-P ...) ; processing (DEFUN HEADER-P ...) ; processing (DEFEXTENSION (ABBREV :ARGUMENTS ...) ...) ; processing (DEFEXTENSION (INCLUDE :ARGUMENTS ...) ...) ; processing (DEFEXTENSION (INCLUDE-IF :ARGUMENTS ...) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-markdown/dev/extensions-tmpY7Z87FVE.fasl ; compilation finished in 0:00:00.040 ; compiling file "/usr/share/common-lisp/source/cl-markdown/dev/footnotes.lisp" (written 06 OCT 2010 03:06:46 PM): ; processing (IN-PACKAGE #:CL-MARKDOWN) ; processing (DEFCLASS* FOOTNOTE-INFO ...) ; processing (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) ...) ; processing (DEFUN FOOTNOTE ...) ; processing (DEFUN FOOTNOTES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-markdown/dev/footnotes-tmpZD0W6AUM.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/trivial-utf-8/trivial-utf-8.lisp" (written 01 OCT 2011 03:17:57 PM): ; processing (DEFPACKAGE :TRIVIAL-UTF-8 ...) ; processing (IN-PACKAGE :TRIVIAL-UTF-8) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFUN UTF-8-BYTE-LENGTH ...) ; processing (DEFMACRO AS-UTF-8-BYTES ...) ; processing (DEFUN STRING-TO-UTF-8-BYTES ...) ; processing (DEFUN WRITE-UTF-8-BYTES ...) ; processing (DEFINE-CONDITION UTF-8-DECODING-ERROR ...) ; processing (DECLAIM (INLINE UTF-8-GROUP-SIZE)) ; processing (DEFUN UTF-8-GROUP-SIZE ...) ; processing (DEFUN UTF-8-STRING-LENGTH ...) ; processing (DEFUN GET-UTF-8-CHARACTER ...) ; processing (DEFUN UTF-8-BYTES-TO-STRING ...) ; file: /usr/share/common-lisp/source/trivial-utf-8/trivial-utf-8.lisp ; in: DEFUN UTF-8-BYTES-TO-STRING ; (COERCE TRIVIAL-UTF-8::BYTES-IN '(SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (AND VECTOR ; (NOT ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; . #1=((*))))), not a (SIMPLE-ARRAY * . #1#). ; processing (DEFUN READ-UTF-8-STRING ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/trivial-utf-8/trivial-utf-8-tmpRVZ12GJ7.fasl ; compilation finished in 0:00:00.059 ; compiling file "/usr/share/common-lisp/source/uuid/uuid.lisp" (written 29 JUL 2013 03:35:41 AM): ; processing (DEFPACKAGE :UUID ...) ; processing (IN-PACKAGE :UUID) ; processing (DEFVAR *CLOCK-SEQ* ...) ; processing (DEFVAR *NODE* ...) ; processing (DEFVAR *TICKS-PER-COUNT* ...) ; processing (DEFPARAMETER *UUID-RANDOM-STATE* ...) ; processing (DEFCLASS UUID ...) ; processing (DEFUN MAKE-UUID-FROM-STRING ...) ; processing (DEFPARAMETER +NAMESPACE-DNS+ ...) ; processing (DEFPARAMETER +NAMESPACE-URL+ ...) ; processing (DEFPARAMETER +NAMESPACE-OID+ ...) ; processing (DEFPARAMETER +NAMESPACE-X500+ ...) ; processing (DEFUN GET-NODE-ID ...) ; processing (LET (# #) ...) ; processing (DEFUN FORMAT-V3OR5-UUID ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN PRINT-BYTES ...) ; processing (DEFUN FORMAT-AS-URN ...) ; processing (DEFUN MAKE-NULL-UUID ...) ; processing (DEFUN MAKE-V1-UUID ...) ; processing (DEFUN MAKE-V3-UUID ...) ; processing (DEFUN MAKE-V4-UUID ...) ; processing (DEFUN MAKE-V5-UUID ...) ; processing (DEFUN UUID= ...) ; processing (DEFUN UUID-TO-BYTE-ARRAY ...) ; processing (DEFMACRO ARR-TO-BYTES ...) ; processing (DEFUN BYTE-ARRAY-TO-UUID ...) ; processing (DEFUN DIGEST-UUID ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/uuid/uuid-tmp4T72OGWB.fasl ; compilation finished in 0:00:00.056 ; compiling file "/usr/share/common-lisp/source/cl-utilities/package.lisp" (written 03 MAY 2006 01:55:58 AM): ; processing (DEFPACKAGE :CL-UTILITIES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-utilities/package-tmp30O6M23N.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/cl-utilities/split-sequence.lisp" (written 03 MAY 2006 01:55:58 AM): ; processing (IN-PACKAGE :CL-UTILITIES) ; processing (DEFUN SPLIT-SEQUENCE ...) ; processing (DEFUN SPLIT-SEQUENCE-IF ...) ; processing (DEFUN SPLIT-SEQUENCE-IF-NOT ...) ; processing (DEFUN PARTITION ...) ; processing (DEFUN PARTITION-IF ...) ; processing (DEFUN PARTITION-IF-NOT ...) ; processing (DEFINE-COMPILER-MACRO PARTITION ...) ; processing (DEFINE-COMPILER-MACRO PARTITION-IF ...) ; processing (DEFINE-COMPILER-MACRO PARTITION-IF-NOT ...) ; processing (PUSHNEW :SPLIT-SEQUENCE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-utilities/split-sequence-tmp523JK0GJ.fasl ; compilation finished in 0:00:00.039 ; compiling file "/usr/share/common-lisp/source/cl-utilities/with-unique-names.lisp" (written 03 MAY 2006 01:55:58 AM): ; processing (IN-PACKAGE :CL-UTILITIES) ; processing (DEFMACRO WITH-UNIQUE-NAMES ...) ; processing (DEFUN %WITH-UNIQUE-NAMES-BINDING-PARTS ...) ; processing (DEFINE-CONDITION LIST-BINDING-NOT-SUPPORTED ...) ; processing (DEFMACRO WITH-GENSYMS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-utilities/with-unique-names-tmp2T656F3Z.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/cl-utilities/once-only.lisp" (written 03 MAY 2006 01:55:58 AM): ; processing (IN-PACKAGE :CL-UTILITIES) ; processing (DEFUN %CHECK-ONCE-ONLY-NAMES ...) ; processing (DEFMACRO ONCE-ONLY ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-utilities/once-only-tmpU8E6U186.fasl ; compilation finished in 0:00:00.010 ; compiling file "/usr/share/common-lisp/source/cl-utilities/extremum.lisp" (written 03 MAY 2006 01:55:58 AM): ; processing (IN-PACKAGE :CL-UTILITIES) ; processing (DEFINE-CONDITION NO-EXTREMUM ...) ; processing (DEFUN COMPARATOR ...) ; file: /usr/share/common-lisp/source/cl-utilities/extremum.lisp ; in: DEFUN COMPARATOR ; (FUNCALL CL-UTILITIES::TEST (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::A) ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::B)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST is not known to be a function ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::A) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; KEY is not known to be a function ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::B) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; KEY is not known to be a function ; processing (DEFINE-COMPILER-MACRO COMPARATOR ...) ; processing (DEFUN ZERO-LENGTH-P ...) ; processing (DECLAIM (INLINE ZERO-LENGTH-P)) ; processing (DEFMACRO WITH-CHECK-LENGTH ...) ; processing (DEFUN EXTREMUM ...) ; file: /usr/share/common-lisp/source/cl-utilities/extremum.lisp ; in: DEFUN EXTREMUM ; (DEFUN CL-UTILITIES:EXTREMUM ; (SEQUENCE CL-UTILITIES::PREDICATE ; &KEY (CL-UTILITIES::KEY #'IDENTITY) (CL-UTILITIES::START 0) ; CL-UTILITIES::END) ; #<(SIMPLE-ARRAY CHARACTER ; (225)) Returns the element of SEQUENCE that would appear first if the ; sequence were ordered according to SORT using PREDICATE and KEY using ; an unstable sorting algorithm. See http://www.cliki.net/EXTREMUM fo... {1008424DBF}> ; (CL-UTILITIES::WITH-CHECK-LENGTH (SEQUENCE CL-UTILITIES::START ; CL-UTILITIES::END) ; (REDUCE ; (CL-UTILITIES::COMPARATOR CL-UTILITIES::PREDICATE CL-UTILITIES::KEY) ; SEQUENCE :START CL-UTILITIES::START :END CL-UTILITIES::END))) ; ==> ; (SB-IMPL::%DEFUN 'CL-UTILITIES:EXTREMUM ; (SB-INT:NAMED-LAMBDA CL-UTILITIES:EXTREMUM ; (SEQUENCE CL-UTILITIES::PREDICATE &KEY ; (CL-UTILITIES::KEY #'IDENTITY) (CL-UTILITIES::START 0) ; CL-UTILITIES::END) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (225)) Returns the element of SEQUENCE that would appear first if the ; sequence were ordered according to SORT using PREDICATE and KEY using ; an unstable sorting algorithm. See http://www.cliki.net/EXTREMUM fo... {1008424DBF}> ; (BLOCK CL-UTILITIES:EXTREMUM ; (CL-UTILITIES::WITH-CHECK-LENGTH (SEQUENCE ; CL-UTILITIES::START ; CL-UTILITIES::END) ; (REDUCE # SEQUENCE :START CL-UTILITIES::START :END ; CL-UTILITIES::END))))) ; ; caught STYLE-WARNING: ; Call to CL-UTILITIES::ZERO-LENGTH-P could not be inlined because its source ; code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be ; in effect to save function definitions for inlining. ; processing (DEFINE-COMPILER-MACRO EXTREMUM ...) ; processing (DEFUN EXTREMUM-FASTKEY ...) ; file: /usr/share/common-lisp/source/cl-utilities/extremum.lisp ; in: DEFUN EXTREMUM-FASTKEY ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::X) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; KEY is not known to be a function ; (FUNCALL CL-UTILITIES::PREDICATE CL-UTILITIES::X-KEY ; CL-UTILITIES::SMALLEST-KEY) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; PREDICATE is not known to be a function ; (CL-UTILITIES::WITH-CHECK-LENGTH (SEQUENCE CL-UTILITIES::START ; CL-UTILITIES::END) ; (LET* ((CL-UTILITIES::SMALLEST (ELT SEQUENCE 0)) ; (CL-UTILITIES::SMALLEST-KEY ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::SMALLEST)) ; (CL-UTILITIES::CURRENT-INDEX 0) ; (CL-UTILITIES::REAL-END (OR CL-UTILITIES::END #))) ; (DECLARE ; (TYPE (INTEGER 0) CL-UTILITIES::CURRENT-INDEX CL-UTILITIES::REAL-END ; CL-UTILITIES::START) ; (FIXNUM CL-UTILITIES::CURRENT-INDEX CL-UTILITIES::REAL-END ; CL-UTILITIES::START)) ; (MAP NIL ; #'(LAMBDA (CL-UTILITIES::X) ; (WHEN # #) ; (INCF CL-UTILITIES::CURRENT-INDEX)) ; SEQUENCE) ; CL-UTILITIES::SMALLEST)) ; --> IF OR LET IF >= IF >= OR LET IF ; ==> ; (LENGTH #:SEQUENCE1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (ELT SEQUENCE 0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::SMALLEST) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; KEY is not known to be a function ; (CL-UTILITIES::WITH-CHECK-LENGTH (SEQUENCE CL-UTILITIES::START ; CL-UTILITIES::END) ; (LET* ((CL-UTILITIES::SMALLEST (ELT SEQUENCE 0)) ; (CL-UTILITIES::SMALLEST-KEY ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::SMALLEST)) ; (CL-UTILITIES::CURRENT-INDEX 0) ; (CL-UTILITIES::REAL-END (OR CL-UTILITIES::END #))) ; (DECLARE ; (TYPE (INTEGER 0) CL-UTILITIES::CURRENT-INDEX CL-UTILITIES::REAL-END ; CL-UTILITIES::START) ; (FIXNUM CL-UTILITIES::CURRENT-INDEX CL-UTILITIES::REAL-END ; CL-UTILITIES::START)) ; (MAP NIL ; #'(LAMBDA (CL-UTILITIES::X) ; (WHEN # #) ; (INCF CL-UTILITIES::CURRENT-INDEX)) ; SEQUENCE) ; CL-UTILITIES::SMALLEST)) ; --> IF OR LET IF >= 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: forced to do GENERIC-> (cost 10) ; 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 GENERIC-= (cost 10) ; unable to do #1=inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do #1# (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; processing (DEFUN EXTREMA ...) ; processing (DEFINE-CONDITION N-MOST-EXTREME-NOT-ENOUGH-ELEMENTS ...) ; processing (DEFUN N-MOST-EXTREME ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-utilities/extremum-tmpUVEMO1OX.fasl ; compilation finished in 0:00:00.043 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/cl-utilities/read-delimited.lisp" (written 03 MAY 2006 01:55:58 AM): ; processing (IN-PACKAGE :CL-UTILITIES) ; processing (DEFUN READ-DELIMITED ...) ; processing (DEFINE-CONDITION READ-DELIMITED-BOUNDS-ERROR ...) ; processing (DEFUN %READ-DELIMITED-BOUNDS-CHECK ...) ; processing (DEFUN %READ-DELIMITED-BOUNDS-CHECK-ORDER ...) ; processing (DEFUN %READ-DELIMITED-BOUNDS-CHECK-START ...) ; processing (DEFUN %READ-DELIMITED-BOUNDS-CHECK-END ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-utilities/read-delimited-tmpPDN0DF20.fasl ; compilation finished in 0:00:00.015 ; compiling file "/usr/share/common-lisp/source/cl-utilities/expt-mod.lisp" (written 03 MAY 2006 01:55:58 AM): ; processing (IN-PACKAGE :CL-UTILITIES) ; processing (DEFUN EXPT-MOD ...) ; file: /usr/share/common-lisp/source/cl-utilities/expt-mod.lisp ; in: DEFUN EXPT-MOD ; (EXPT CL-UTILITIES::N CL-UTILITIES::EXPONENT) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a INTEGER. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a INTEGER. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T). ; (MOD (EXPT CL-UTILITIES::N CL-UTILITIES::EXPONENT) CL-UTILITIES::MODULUS) ; ; 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. ; ; note: forced to do GENERIC-< (cost 10) ; 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 GENERIC-< (cost 10) ; 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 GENERIC-> (cost 10) ; 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 GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT &REST ; T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; processing (DEFINE-COMPILER-MACRO EXPT-MOD ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-utilities/expt-mod-tmp1SCDPCYF.fasl ; compilation finished in 0:00:00.005 ; compiling file "/usr/share/common-lisp/source/cl-utilities/compose.lisp" (written 03 MAY 2006 01:55:58 AM): ; processing (IN-PACKAGE :CL-UTILITIES) ; processing (DEFUN COMPOSE ...) ; processing (DEFINE-COMPILER-MACRO COMPOSE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-utilities/compose-tmp31LDQ8IW.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/cl-utilities/collecting.lisp" (written 03 MAY 2006 01:55:58 AM): ; processing (IN-PACKAGE :CL-UTILITIES) ; processing (DEFUN COLLECT ...) ; processing (DEFMACRO COLLECTING ...) ; processing (DEFMACRO WITH-COLLECTORS ...) ; processing (DEFUN %WITH-COLLECTORS-CHECK-COLLECTORS ...) ; processing (DEFUN %WITH-COLLECTORS-GENSYMS-ALIST ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-utilities/collecting-tmpXQHFS7J0.fasl ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/cl-utilities/rotate-byte.lisp" (written 03 MAY 2006 01:55:58 AM): ; processing (IN-PACKAGE :CL-UTILITIES) ; processing (DEFUN ROTATE-BYTE ...) ; processing (DECLAIM (INLINE ROTATE-BYTE)) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-utilities/rotate-byte-tmpZU3XIPN7.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/cl-utilities/copy-array.lisp" (written 03 MAY 2006 01:55:58 AM): ; processing (IN-PACKAGE :CL-UTILITIES) ; processing (DEFUN COPY-ARRAY ...) ; processing (DEFUN %MAKE-ARRAY-WITH-SAME-PROPERTIES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-utilities/copy-array-tmpOLPZFU22.fasl ; compilation finished in 0:00:00.006 ; compiling file "/usr/share/common-lisp/source/quri/src/port.lisp" (written 27 JUL 2015 02:57:05 AM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE QURI.PORT ...) ; processing (IN-PACKAGE :QURI.PORT) ; processing (DEFVAR +DEFAULT-PORTS+ ...) ; processing (DEFUN SCHEME-DEFAULT-PORT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/quri/src/port-tmpE8NZG6A8.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/quri/src/uri.lisp" (written 27 JUL 2015 02:57:05 AM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE QURI.URI ...) ; processing (IN-PACKAGE :QURI.URI) ; processing (DEFSTRUCT (URI #) ...) ; processing (DEFUN MAKE-BASIC-URI ...) ; processing (DEFUN URI-AUTHORITY ...) ; processing (DEFSTRUCT (URN # ...) ...) ; processing (DEFUN MAKE-URN ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/quri/src/uri-tmpKRRUKJSC.fasl ; compilation finished in 0:00:00.045 ; compiling file "/usr/share/common-lisp/source/quri/src/encode.lisp" (written 27 JUL 2015 02:57:05 AM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE QURI.ENCODE ...) ; processing (IN-PACKAGE :QURI.ENCODE) ; processing (DECLAIM (TYPE # ...)) ; processing (DEFVAR +HEXDIGIT-CHAR+ ...) ; processing (DEFUN INTEGER-TO-HEXDIGIT ...) ; processing (DEFUN UNRESERVEDP ...) ; processing (DECLAIM (TYPE # ...)) ; processing (DEFVAR +BYTE-TO-STRING+ ...) ; processing (DEFUN URL-ENCODE ...) ; processing (DEFUN URL-ENCODE-PARAMS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/quri/src/encode-tmpU2ISN61U.fasl ; compilation finished in 0:00:00.026 ; compiling file "/usr/share/common-lisp/source/quri/src/error.lisp" (written 27 JUL 2015 02:57:05 AM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE QURI.ERROR ...) ; processing (IN-PACKAGE :QURI.ERROR) ; processing (DEFINE-CONDITION URI-ERROR ...) ; processing (DEFINE-CONDITION URI-MALFORMED-STRING ...) ; processing (DEFINE-CONDITION URI-INVALID-PORT ...) ; processing (DEFINE-CONDITION URL-DECODING-ERROR ...) ; processing (DEFINE-CONDITION URI-MALFORMED-URLENCODED-STRING ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/quri/src/error-tmpJVKJGHUO.fasl ; compilation finished in 0:00:00.006 ; compiling file "/usr/share/common-lisp/source/quri/src/util.lisp" (written 27 JUL 2015 02:57:05 AM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE QURI.UTIL ...) ; processing (IN-PACKAGE :QURI.UTIL) ; processing (DEFUN STANDARD-ALPHA-CHAR-P ...) ; processing (DEFUN STANDARD-ALPHA-BYTE-P ...) ; processing (DEFUN STANDARD-ALPHANUMERIC-P ...) ; processing (DEFUN STANDARD-ALPHANUMERIC-BYTE-P ...) ; processing (DEFINE-CONDITION PARSING-END-UNEXPECTEDLY ...) ; processing (DEFINE-CONDITION NO-NEXT-STATE ...) ; processing (DEFMACRO WITH-STRING-PARSING ...) ; processing (DEFMACRO WITH-BYTE-ARRAY-PARSING ...) ; processing (DEFMACRO WITH-ARRAY-PARSING ...) ; processing (DEFMACRO %WITH-ARRAY-PARSING ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/quri/src/util-tmpRFLT88I5.fasl ; compilation finished in 0:00:00.039 ; compiling file "/usr/share/common-lisp/source/quri/src/decode.lisp" (written 27 JUL 2015 02:57:05 AM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE QURI.DECODE ...) ; processing (IN-PACKAGE :QURI.DECODE) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN HEXDIGIT-TO-INTEGER ...) ; processing (DEFUN URL-DECODE ...) ; file: /usr/share/common-lisp/source/quri/src/decode.lisp ; in: DEFUN URL-DECODE ; (QURI.UTIL:WITH-ARRAY-PARSING (CHAR QURI.DECODE::P QURI.DECODE::DATA ; QURI.DECODE::START QURI.DECODE::END ; (AND (NOT (STRINGP QURI.DECODE::DATA)) ; #'CODE-CHAR)) ; (QURI.DECODE::PARSING ; (COND ((CHAR= CHAR #\%) (QURI.UTIL:GONEXT)) ; ((CHAR= CHAR #\+) (QURI.DECODE::WRITE-TO-BUFFER 32) ; (QURI.UTIL:REDO)) ; (T (QURI.DECODE::WRITE-TO-BUFFER #) (QURI.UTIL:REDO)))) ; (QURI.DECODE::PARSING-ENCODED-PART ; (SETQ QURI.DECODE::PARSING-ENCODED-PART (* 16 #)) (QURI.UTIL:GONEXT)) ; (QURI.DECODE::PARSING-ENCODED-PART-SECOND ; (QURI.DECODE::WRITE-TO-BUFFER ; (+ QURI.DECODE::PARSING-ENCODED-PART ; (QURI.DECODE::HEXDIGIT-TO-INTEGER CHAR))) ; (SETQ QURI.DECODE::PARSING-ENCODED-PART NIL) ; (QURI.UTIL:GOTO QURI.DECODE::PARSING)) ; (:EOF ; (WHEN QURI.DECODE::PARSING-ENCODED-PART ; (ERROR 'QURI.ERROR:URL-DECODING-ERROR)))) ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY LOCALLY SETQ THE IF ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY LOCALLY SETQ THE IF ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:GONEXT) ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:GOTO QURI.DECODE::PARSING) ; --> SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:REDO) ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (INCF QURI.DECODE::I) ; --> THE ; ==> ; (+ 1 QURI.DECODE::I) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (- QURI.DECODE::END QURI.DECODE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (QURI.UTIL:WITH-ARRAY-PARSING (CHAR QURI.DECODE::P QURI.DECODE::DATA ; QURI.DECODE::START QURI.DECODE::END ; (AND (NOT (STRINGP QURI.DECODE::DATA)) ; #'CODE-CHAR)) ; (QURI.DECODE::PARSING ; (COND ((CHAR= CHAR #\%) (QURI.UTIL:GONEXT)) ; ((CHAR= CHAR #\+) (QURI.DECODE::WRITE-TO-BUFFER 32) ; (QURI.UTIL:REDO)) ; (T (QURI.DECODE::WRITE-TO-BUFFER #) (QURI.UTIL:REDO)))) ; (QURI.DECODE::PARSING-ENCODED-PART ; (SETQ QURI.DECODE::PARSING-ENCODED-PART (* 16 #)) (QURI.UTIL:GONEXT)) ; (QURI.DECODE::PARSING-ENCODED-PART-SECOND ; (QURI.DECODE::WRITE-TO-BUFFER ; (+ QURI.DECODE::PARSING-ENCODED-PART ; (QURI.DECODE::HEXDIGIT-TO-INTEGER CHAR))) ; (SETQ QURI.DECODE::PARSING-ENCODED-PART NIL) ; (QURI.UTIL:GOTO QURI.DECODE::PARSING)) ; (:EOF ; (WHEN QURI.DECODE::PARSING-ENCODED-PART ; (ERROR 'QURI.ERROR:URL-DECODING-ERROR)))) ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY WHEN IF = ; ==> ; 1 ; ; note: forced to do %EQL/INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; processing (DEFUN URL-DECODE-PARAMS ...) ; file: /usr/share/common-lisp/source/quri/src/decode.lisp ; in: DEFUN URL-DECODE-PARAMS ; (QURI.UTIL:WITH-ARRAY-PARSING (CHAR QURI.DECODE::P QURI.DECODE::DATA ; QURI.DECODE::START QURI.DECODE::END ; (AND (NOT (STRINGP QURI.DECODE::DATA)) ; #'CODE-CHAR)) ; (QURI.DECODE::START (SETQ QURI.DECODE::START-MARK QURI.DECODE::P) ; (IF QURI.DECODE::LENIENT ; (COND (# # #) (# #)) ; (WHEN (OR # #) (ERROR 'QURI.ERROR:URI-MALFORMED-URLENCODED-STRING))) ; (QURI.UTIL:GONEXT)) ; (QURI.DECODE::PARSING-FIELD ; (COND ((CHAR= CHAR #\=) (SETQ #) (QURI.UTIL:GONEXT)) ; ((CHAR= CHAR QURI.DECODE::DELIMITER) ; (QURI.DECODE::COLLECT-FIELD QURI.DECODE::P) ; (QURI.UTIL:GOTO QURI.DECODE::START))) ; (QURI.UTIL:REDO)) ; (QURI.DECODE::PARSING-VALUE ; (COND ((CHAR= CHAR #\=) (UNLESS QURI.DECODE::LENIENT #)) ; ((CHAR= CHAR QURI.DECODE::DELIMITER) ; (QURI.DECODE::COLLECT-PAIR QURI.DECODE::P) ; (QURI.UTIL:GOTO QURI.DECODE::START))) ; (QURI.UTIL:REDO)) ; (:EOF ; (COND (QURI.DECODE::=-MARK (QURI.DECODE::COLLECT-PAIR QURI.DECODE::P)) ; (QURI.DECODE::START-MARK ; (QURI.DECODE::COLLECT-FIELD QURI.DECODE::P))))) ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY LOCALLY SETQ THE IF ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY LOCALLY SETQ THE IF ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:GOTO QURI.DECODE::PARSING-VALUE) ; --> SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:REDO) ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:GONEXT) ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:GOTO QURI.DECODE::START) ; --> SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:REDO) ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:GOTO QURI.DECODE::START) ; --> SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:REDO) ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:WITH-ARRAY-PARSING (CHAR QURI.DECODE::P QURI.DECODE::DATA ; QURI.DECODE::START QURI.DECODE::END ; (AND (NOT (STRINGP QURI.DECODE::DATA)) ; #'CODE-CHAR)) ; (QURI.DECODE::START (SETQ QURI.DECODE::START-MARK QURI.DECODE::P) ; (IF QURI.DECODE::LENIENT ; (COND (# # #) (# #)) ; (WHEN (OR # #) (ERROR 'QURI.ERROR:URI-MALFORMED-URLENCODED-STRING))) ; (QURI.UTIL:GONEXT)) ; (QURI.DECODE::PARSING-FIELD ; (COND ((CHAR= CHAR #\=) (SETQ #) (QURI.UTIL:GONEXT)) ; ((CHAR= CHAR QURI.DECODE::DELIMITER) ; (QURI.DECODE::COLLECT-FIELD QURI.DECODE::P) ; (QURI.UTIL:GOTO QURI.DECODE::START))) ; (QURI.UTIL:REDO)) ; (QURI.DECODE::PARSING-VALUE ; (COND ((CHAR= CHAR #\=) (UNLESS QURI.DECODE::LENIENT #)) ; ((CHAR= CHAR QURI.DECODE::DELIMITER) ; (QURI.DECODE::COLLECT-PAIR QURI.DECODE::P) ; (QURI.UTIL:GOTO QURI.DECODE::START))) ; (QURI.UTIL:REDO)) ; (:EOF ; (COND (QURI.DECODE::=-MARK (QURI.DECODE::COLLECT-PAIR QURI.DECODE::P)) ; (QURI.DECODE::START-MARK ; (QURI.DECODE::COLLECT-FIELD QURI.DECODE::P))))) ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY WHEN IF = ; ==> ; 1 ; ; note: forced to do %EQL/INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/quri/src/decode-tmp9OPB60VM.fasl ; compilation finished in 0:00:00.051 ; compiling file "/usr/share/common-lisp/source/quri/src/uri/ftp.lisp" (written 27 JUL 2015 02:57:05 AM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE QURI.URI.FTP ...) ; processing (IN-PACKAGE :QURI.URI.FTP) ; processing (DEFSTRUCT (URI-FTP # ...) ...) ; processing (DEFUN MAKE-URI-FTP ...) ; processing (DEFUN PARSE-FTP-TYPECODE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/quri/src/uri/ftp-tmpSVDN4TBO.fasl ; compilation finished in 0:00:00.022 ; compiling file "/usr/share/common-lisp/source/quri/src/uri/http.lisp" (written 27 JUL 2015 02:57:05 AM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE QURI.URI.HTTP ...) ; processing (IN-PACKAGE :QURI.URI.HTTP) ; processing (DEFSTRUCT (URI-HTTP #)) ; processing (DEFSTRUCT (URI-HTTPS #)) ; processing (DEFUN URI-QUERY-PARAMS ...) ; processing (DEFUN (SETF URI-QUERY-PARAMS) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/quri/src/uri/http-tmpF5QPE831.fasl ; compilation finished in 0:00:00.033 ; compiling file "/usr/share/common-lisp/source/quri/src/uri/ldap.lisp" (written 27 JUL 2015 02:57:05 AM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE QURI.URI.LDAP ...) ; processing (IN-PACKAGE :QURI.URI.LDAP) ; processing (DEFSTRUCT (URI-LDAP #)) ; processing (DEFSTRUCT (URI-LDAPS #)) ; processing (DEFUN URI-LDAP-DN ...) ; processing (DEFUN (SETF URI-LDAP-DN) ...) ; processing (DEFUN NTH-URI-LDAP-LISTS ...) ; processing (DEFUN (SETF NTH-URI-LDAP-LISTS) ...) ; processing (DEFUN URI-LDAP-ATTRIBUTES ...) ; processing (DEFUN (SETF URI-LDAP-ATTRIBUTES) ...) ; processing (DEFUN URI-LDAP-SCOPE ...) ; processing (DEFUN (SETF URI-LDAP-SCOPE) ...) ; processing (DEFUN URI-LDAP-FILTER ...) ; processing (DEFUN (SETF URI-LDAP-FILTER) ...) ; processing (DEFUN URI-LDAP-EXTENSIONS ...) ; processing (DEFUN (SETF URI-LDAP-EXTENSIONS) ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/quri/src/uri/ldap-tmpLAAFHLHW.fasl ; compilation finished in 0:00:00.041 ; compiling file "/usr/share/common-lisp/source/quri/src/uri/file.lisp" (written 27 JUL 2015 02:57:05 AM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE QURI.URI.FILE ...) ; processing (IN-PACKAGE :QURI.URI.FILE) ; processing (DEFSTRUCT (URI-FILE #)) ; processing (DECLAIM (FTYPE # ...)) ; processing (DEFUN URI-FILE-PATHNAME ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/quri/src/uri/file-tmpBYA9SD1Y.fasl ; compilation finished in 0:00:00.018 ; compiling file "/usr/share/common-lisp/source/quri/src/etld.lisp" (written 27 JUL 2015 02:57:05 AM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE QURI.ETLD ...) ; processing (IN-PACKAGE :QURI.ETLD) ; processing (DEFVAR *DEFAULT-ETLD-NAMES* ...) ; processing (DEFVAR *NORMAL-TLDS* ...) ; processing (DEFVAR *WILDCARD-TLDS* ...) ; processing (DEFVAR *SPECIAL-TLDS* ...) ; processing (DEFUN LOAD-ETLD-DATA ...) ; processing (LOAD-ETLD-DATA) ; processing (DEFUN NEXT-SUBDOMAIN ...) ; processing (DEFUN MAKE-SUBDOMAIN-ITER ...) ; processing (DEFUN PARSE-DOMAIN ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/quri/src/etld-tmpFLAO1CYQ.fasl ; compilation finished in 0:00:00.011 ; compiling file "/usr/share/common-lisp/source/quri/src/domain.lisp" (written 27 JUL 2015 02:57:05 AM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE QURI.DOMAIN ...) ; processing (IN-PACKAGE :QURI.DOMAIN) ; processing (DEFUN URI-TLD ...) ; processing (DEFUN URI-DOMAIN ...) ; processing (DEFUN IPV4-ADDR-P ...) ; processing (DEFUN TRIM-BRACKETS ...) ; processing (DEFUN IPV6-ADDR-P ...) ; processing (DEFUN IP-ADDR-P ...) ; processing (DEFUN IP-ADDR= ...) ; processing (DEFUN COOKIE-DOMAIN-P ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/quri/src/domain-tmpSKUEHB49.fasl ; compilation finished in 0:00:00.045 ; compiling file "/usr/share/common-lisp/source/quri/src/parser.lisp" (written 27 JUL 2015 02:57:05 AM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE QURI.PARSER ...) ; processing (IN-PACKAGE :QURI.PARSER) ; processing (DEFTYPE SIMPLE-BYTE-VECTOR ...) ; processing (DECLAIM (TYPE # ...)) ; processing (DEFINE-CONSTANT +URI-CHAR+ ...) ; processing (DEFUN PARSE-URI ...) ; processing (DEFINE-COMPILER-MACRO PARSE-URI ...) ; processing (DEFUN PARSE-URI-STRING ...) ; processing (DEFUN PARSE-URI-BYTE-VECTOR ...) ; processing (DEFMACRO DEFUN-WITH-ARRAY-PARSING ...) ; processing (DEFUN SCHEME-CHAR-P ...) ; processing (DEFUN SCHEME-BYTE-P ...) ; processing (DEFUN-WITH-ARRAY-PARSING PARSE-SCHEME ...) ; processing (DEFUN-WITH-ARRAY-PARSING PARSE-AUTHORITY ...) ; processing (DEFUN PATH-CHAR-P ...) ; processing (DEFUN PATH-BYTE-P ...) ; processing (DEFUN QUERY-CHAR-P ...) ; processing (DEFUN QUERY-BYTE-P ...) ; processing (DEFMACRO PARSE-UNTIL-STRING ...) ; processing (DEFMACRO PARSE-UNTIL-BYTE-VECTOR ...) ; processing (DEFUN PARSE-PATH ...) ; processing (DEFUN PARSE-PATH-STRING ...) ; processing (DEFUN PARSE-PATH-BYTE-VECTOR ...) ; processing (DEFUN PARSE-QUERY ...) ; processing (DEFINE-COMPILER-MACRO PARSE-QUERY ...) ; processing (DEFUN PARSE-QUERY-STRING ...) ; processing (DEFUN PARSE-QUERY-BYTE-VECTOR ...) ; processing (DEFUN PARSE-FRAGMENT ...) ; processing (DEFINE-COMPILER-MACRO PARSE-FRAGMENT ...) ; processing (DEFUN PARSE-FRAGMENT-STRING ...) ; processing (DEFUN PARSE-FRAGMENT-BYTE-VECTOR ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/quri/src/parser-tmpDHXMA9ET.fasl ; compilation finished in 0:00:00.312 ; compiling file "/usr/share/common-lisp/source/quri/src/quri.lisp" (written 27 JUL 2015 02:57:05 AM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE QURI ...) ; processing (IN-PACKAGE :QURI) ; processing (DEFUN SCHEME-CONSTRUCTOR ...) ; processing (DEFUN URI ...) ; processing (DEFUN COPY-URI ...) ; processing (DEFUN MAKE-URI ...) ; processing (DEFUN RENDER-URI ...) ; processing (DEFUN URI= ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN MERGE-URI-PATHS ...) ; processing (DEFUN MERGE-URIS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/quri/src/quri-tmpXPODQDBQ.fasl ; compilation finished in 0:00:00.037 ; compiling file "/usr/share/common-lisp/source/cl-mustache/packages.lisp" (written 31 AUG 2015 06:50:42 AM): ; processing (IN-PACKAGE #:CL-USER) ; processing (DEFPACKAGE #:MUSTACHE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-mustache/packages-tmpON3EBOWQ.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/cl-mustache/mustache.lisp" (written 31 AUG 2015 06:50:42 AM): ; processing (IN-PACKAGE :MUSTACHE) ; processing (DEFTYPE OFFSET ...) ; processing (DEFTYPE SPACE-CHAR ...) ; processing (DEFTYPE NEWLINE-CHAR ...) ; processing (DEFTYPE TEXT-CHAR ...) ; processing (DEFUN SPACE-CHAR-P ...) ; processing (DEFUN NEWLINE-CHAR-P ...) ; processing (DEFUN TEXT-CHAR-P ...) ; processing (DEFCLASS TOKEN ...) ; processing (DEFCLASS BEGINNING-OF-LINE ...) ; processing (DEFCLASS TEXT ...) ; processing (DEFCLASS WHITESPACE ...) ; processing (DEFCLASS NEWLINE ...) ; processing (DEFVAR CRLF ...) ; processing (DEFCLASS CRLF-NEWLINE ...) ; processing (DEFCLASS TAG ...) ; processing (DEFCLASS CAN-STANDALONE-TAG ...) ; processing (DEFCLASS NON-STANDALONE-TAG ...) ; processing (DEFCLASS NORMAL-TAG ...) ; processing (DEFCLASS AMPERSAND-TAG ...) ; processing (DEFCLASS DELIMITER-TAG ...) ; processing (DEFCLASS COMMENT-TAG ...) ; processing (DEFCLASS PARTIAL-TAG ...) ; processing (DEFCLASS SECTION-START-TAG ...) ; processing (DEFCLASS SECTION-END-TAG ...) ; processing (DEFCLASS SECTION-TAG ...) ; processing (DEFPARAMETER *DEFAULT-OPEN-DELIMITER* ...) ; processing (DEFPARAMETER *DEFAULT-CLOSE-DELIMITER* ...) ; processing (DEFPARAMETER *DEFAULT-TRIPLE-OPEN-DELIMITER* ...) ; processing (DEFPARAMETER *DEFAULT-TRIPLE-CLOSE-DELIMITER* ...) ; processing (DEFVAR *OPEN-DELIMITER* ...) ; processing (DEFVAR *CLOSE-DELIMITER* ...) ; processing (DEFVAR *TRIPLE-OPEN-DELIMITER* ...) ; processing (DEFVAR *TRIPLE-CLOSE-DELIMITER* ...) ; processing (DEFUN CHANGE-DELIMITER ...) ; processing (DEFVAR *MUSTACHE-TAG-TABLE* ...) ; processing (DEFUN SET-MUSTACHE-CHARACTER ...) ; processing (DEFUN GET-MUSTACHE-CHARACTER ...) ; processing (DEFUN MAKE-TAG ...) ; processing (DEFMACRO DEFINE-MUSTACHE-CHARACTER ...) ; processing (DEFINE-MUSTACHE-CHARACTER #\& ...) ; processing (DEFINE-MUSTACHE-CHARACTER #\# ...) ; processing (DEFINE-MUSTACHE-CHARACTER #\^ ...) ; processing (DEFINE-MUSTACHE-CHARACTER #\/ ...) ; processing (DEFINE-MUSTACHE-CHARACTER #\! ...) ; processing (DEFINE-MUSTACHE-CHARACTER #\= ...) ; processing (DEFINE-MUSTACHE-CHARACTER #\> ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFVAR BEGINNING-OF-LINE ...) ; processing (DEFVAR NEWLINE ...) ; processing (DEFVAR CRLF-NEWLINE ...) ; processing (DEFUN STRING-STARTS-WITH-P ...) ; processing (DEFUN READ-TEXT ...) ; processing (DEFUN READ-NEWLINE ...) ; processing (DEFUN READ-TAG ...) ; processing (DEFUN READ-TOKEN ...) ; processing (DEFUN SCAN ...) ; processing (DEFTYPE TEXT-TOKEN ...) ; processing (DEFUN COLLECT-LINE ...) ; processing (DEFUN TOKENS-STANDALONE-P ...) ; processing (DEFUN FIND-STANDALONE-TAG ...) ; processing (DEFUN TRIM-STANDALONE ...) ; processing (DEFUN MAKE-SECTION-TAG ...) ; processing (DEFUN GROUP-SECTIONS ...) ; processing (DEFUN FOLD-TEXT ...) ; processing (DEFUN PARSE ...) ; processing (DEFVAR *CONTEXT* ...) ; processing (DEFCLASS CONTEXT ...) ; processing (DEFUN PARSE-KEY ...) ; processing (DEFUN KEY ...) ; processing (DEFTYPE ALIST ...) ; processing (DEFUN SAVE-HASH-TABLE ...) ; processing (DEFUN MAKE-CONTEXT-CHAIN ...) ; processing (DEFUN ENSURE-CONTEXT ...) ; processing (DEFGENERIC CONTEXT-GET ...) ; processing (DEFMETHOD CONTEXT-GET ...) ; processing (DEFMETHOD CONTEXT-GET ...) ; processing (DEFMETHOD CONTEXT-GET ...) ; processing (DEFMETHOD CONTEXT-GET ...) ; processing (DEFMETHOD CONTEXT-GET ...) ; processing (DEFVAR *LOAD-PATH* ...) ; processing (DEFVAR *DEFAULT-PATHNAME-TYPE* ...) ; processing (DEFUN FILENAME ...) ; processing (DEFUN LOCATE-FILE ...) ; processing (DEFUN READ-PARTIAL ...) ; processing (DEFUN ESCAPE ...) ; processing (DEFVAR *REAL-STANDARD-OUTPUT* ...) ; processing (DEFVAR *OUTPUT-STREAM* ...) ; processing (DEFUN %OUTPUT ...) ; processing (DEFGENERIC PRINT-DATA ...) ; processing (DEFMETHOD PRINT-DATA ...) ; processing (DEFMETHOD PRINT-DATA ...) ; processing (DEFMETHOD PRINT-DATA ...) ; processing (DEFMETHOD PRINT-DATA ...) ; processing (DEFUN CALL-LAMBDA ...) ; processing (DEFGENERIC RENDER-TOKEN ...) ; processing (DEFMETHOD RENDER-TOKEN ...) ; processing (DEFMETHOD RENDER-TOKEN ...) ; processing (DEFMETHOD RENDER-TOKEN ...) ; processing (DEFMETHOD RENDER-TOKEN ...) ; processing (DEFMETHOD RENDER-TOKEN ...) ; processing (DEFUN RENDER-TOKENS ...) ; processing (DEFUN RENDER-BODY ...) ; processing (DEFUN VERSION ...) ; processing (DEFUN MAKE-CONTEXT ...) ; processing (DEFGENERIC COMPILE-TEMPLATE ...) ; processing (DEFMETHOD COMPILE-TEMPLATE ...) ; processing (DEFMETHOD COMPILE-TEMPLATE ...) ; processing (DEFGENERIC RENDER ...) ; processing (DEFMETHOD RENDER ...) ; processing (DEFMETHOD RENDER ...) ; processing (DEFUN RENDER* ...) ; processing (DEFMACRO DEFINE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-mustache/mustache-tmp5DE7FWXL.fasl ; compilation finished in 0:00:00.153 ; compiling file "/usr/share/common-lisp/source/cl-mustache/compat-api-v1.lisp" (written 31 AUG 2015 06:50:42 AM): ; processing (IN-PACKAGE :MUSTACHE) ; processing (DEFVAR *MUSTACHE-OUTPUT* ...) ; processing (DEFINE-CONDITION DEPRECATION-WARNING ...) ; processing (DEFMACRO MAKE-OBSOLETE ...) ; processing (MAKE-OBSOLETE MUSTACHE-TYPE ...) ; processing (MAKE-OBSOLETE MUSTACHE-VERSION ...) ; processing (MAKE-OBSOLETE MUSTACHE-CONTEXT ...) ; processing (MAKE-OBSOLETE MUSTACHE-COMPILE ...) ; processing (MAKE-OBSOLETE MUSTACHE-RENDER ...) ; processing (MAKE-OBSOLETE MUSTACHE-RENDER-TO-STRING ...) ; processing (DEFUN MUSTACHE-RENDER-TO-STREAM ...) ; processing (DEFMACRO DEFMUSTACHE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-mustache/compat-api-v1-tmpNR0FXTOU.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/yason/package.lisp" (written 26 JAN 2016 10:37:20 AM): ; processing (DEFPACKAGE :YASON ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/yason/package-tmpIS216RW.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/yason/encode.lisp" (written 26 JAN 2016 10:37:20 AM): ; processing (IN-PACKAGE :YASON) ; processing (DEFVAR *JSON-OUTPUT*) ; processing (DEFPARAMETER *DEFAULT-INDENT* ...) ; processing (DEFPARAMETER *DEFAULT-INDENT-WIDTH* ...) ; processing (DEFGENERIC ENCODE ...) ; processing (DEFPARAMETER *CHAR-REPLACEMENTS* ...) ; processing (DEFMETHOD ENCODE ...) ; processing (DEFMETHOD ENCODE ...) ; processing (DEFMETHOD ENCODE ...) ; processing (DEFMETHOD ENCODE ...) ; processing (DEFMACRO WITH-AGGREGATE/OBJECT ...) ; processing (DEFUN ENCODE-KEY/VALUE ...) ; processing (DEFMETHOD ENCODE ...) ; processing (DEFMETHOD ENCODE ...) ; processing (DEFMETHOD ENCODE ...) ; processing (DEFUN ENCODE-ASSOC-KEY/VALUE ...) ; processing (DEFUN ENCODE-ALIST ...) ; processing (DEFUN ENCODE-PLIST ...) ; processing (DEFMETHOD ENCODE ...) ; processing (DEFMETHOD ENCODE ...) ; processing (DEFMETHOD ENCODE ...) ; processing (DEFMETHOD ENCODE ...) ; processing (DEFMETHOD ENCODE ...) ; processing (DEFCLASS JSON-OUTPUT-STREAM ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFGENERIC MAKE-JSON-OUTPUT-STREAM ...) ; processing (DEFMETHOD MAKE-JSON-OUTPUT-STREAM ...) ; processing (DEFMETHOD SB-GRAY:STREAM-WRITE-CHAR ...) ; processing (DEFGENERIC WRITE-INDENTATION ...) ; processing (DEFGENERIC WRITE-DELIMITER ...) ; processing (DEFGENERIC CHANGE-INDENTATION ...) ; processing (DEFUN NEXT-AGGREGATE-ELEMENT ...) ; processing (DEFMACRO WITH-OUTPUT ...) ; processing (DEFMACRO WITH-OUTPUT-TO-STRING* ...) ; processing (DEFINE-CONDITION NO-JSON-OUTPUT-CONTEXT ...) ; processing (DEFMACRO WITH-AGGREGATE/STREAM ...) ; processing (DEFMACRO WITH-ARRAY ...) ; processing (DEFMACRO WITH-OBJECT ...) ; processing (DEFUN ENCODE-ARRAY-ELEMENT ...) ; processing (DEFUN ENCODE-ARRAY-ELEMENTS ...) ; processing (DEFUN ENCODE-OBJECT-ELEMENT ...) ; processing (DEFUN ENCODE-OBJECT-ELEMENTS ...) ; processing (DEFUN ENCODE-OBJECT-SLOTS ...) ; processing (DEFINE-COMPILER-MACRO ENCODE-OBJECT-SLOTS ...) ; processing (DEFMACRO WITH-OBJECT-ELEMENT ...) ; processing (DEFGENERIC ENCODE-SLOTS ...) ; processing (DEFGENERIC ENCODE-OBJECT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/yason/encode-tmp11752V0C.fasl ; compilation finished in 0:00:00.074 ; compiling file "/usr/share/common-lisp/source/yason/parse.lisp" (written 26 JAN 2016 10:37:20 AM): ; processing (IN-PACKAGE :YASON) ; processing (DEFCONSTANT +DEFAULT-STRING-LENGTH+ ...) ; processing (DEFVAR *PARSE-OBJECT-KEY-FN* ...) ; processing (DEFVAR *PARSE-JSON-ARRAYS-AS-VECTORS* ...) ; processing (DEFVAR *PARSE-JSON-BOOLEANS-AS-SYMBOLS* ...) ; processing (DEFVAR *PARSE-JSON-NULL-AS-KEYWORD* ...) ; processing (DEFVAR *PARSE-OBJECT-AS* ...) ; processing (DEFVAR *PARSE-OBJECT-AS-ALIST* ...) ; processing (DEFUN MAKE-ADJUSTABLE-STRING ...) ; processing (DEFUN PARSE-NUMBER ...) ; processing (DEFUN PARSE-UNICODE-ESCAPE ...) ; processing (DEFUN PARSE-STRING ...) ; processing (DEFUN WHITESPACE-P ...) ; processing (DEFUN SKIP-WHITESPACE ...) ; processing (DEFUN PEEK-CHAR-SKIPPING-WHITESPACE ...) ; processing (DEFUN PARSE-CONSTANT ...) ; processing (DEFINE-CONDITION CANNOT-CONVERT-KEY ...) ; processing (DEFUN CREATE-CONTAINER ...) ; processing (DEFUN ADD-ATTRIBUTE ...) ; processing (DEFINE-CONDITION EXPECTED-COLON ...) ; processing (DEFUN PARSE-OBJECT ...) ; processing (DEFCONSTANT +INITIAL-ARRAY-SIZE+ ...) ; processing (DEFUN %PARSE-ARRAY ...) ; processing (DEFUN PARSE-ARRAY ...) ; processing (DEFGENERIC PARSE% ...) ; processing (DEFUN PARSE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/yason/parse-tmpONM4L97G.fasl ; compilation finished in 0:00:00.037 ; compiling file "/usr/share/common-lisp/source/closure-common/package.lisp" (written 06 OCT 2010 05:59:12 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/closure-common/package-tmpR4BLTE1D.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/closure-common/definline.lisp" (written 06 OCT 2010 05:59:12 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/closure-common/definline-tmpONQ4LJWF.fasl ; compilation finished in 0:00:00.002 ; compiling file "/usr/share/common-lisp/source/closure-common/characters.lisp" (written 06 OCT 2010 05:59:12 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/closure-common/characters-tmpFPHBYJPO.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/closure-common/syntax.lisp" (written 06 OCT 2010 05:59:12 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/closure-common/syntax-tmpXKL3NHA4.fasl ; compilation finished in 0:00:00.010 ; compiling file "/usr/share/common-lisp/source/closure-common/encodings.lisp" (written 06 OCT 2010 05:59:12 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/closure-common/encodings-tmp3KKXCXYY.fasl ; compilation finished in 0:00:00.089 ; compiling file "/usr/share/common-lisp/source/closure-common/encodings-data.lisp" (written 06 OCT 2010 05:59:12 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/closure-common/encodings-data-tmpVACGDARV.fasl ; compilation finished in 0:00:00.013 ; compiling file "/usr/share/common-lisp/source/closure-common/xstream.lisp" (written 06 OCT 2010 05:59:12 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/closure-common/xstream-tmpYII9B406.fasl ; compilation finished in 0:00:00.080 ; compiling file "/usr/share/common-lisp/source/closure-common/ystream.lisp" (written 06 OCT 2010 05:59:12 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/closure-common/ystream-tmpA2CNLB7.fasl ; compilation finished in 0:00:00.162 ; compiling file "/usr/share/common-lisp/source/closure-common/hax.lisp" (written 06 OCT 2010 05:59:12 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/closure-common/hax-tmpG5J7KPU1.fasl ; compilation finished in 0:00:00.019 ; compiling file "/usr/share/common-lisp/source/cxml/xml/package.lisp" (written 08 JUN 2011 04:58:03 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/xml/package-tmp981UY8DC.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/cxml/xml/util.lisp" (written 08 JUN 2011 04:58:03 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/xml/util-tmpZ1XIHDCA.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/cxml/xml/sax-handler.lisp" (written 08 JUN 2011 04:58:03 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/xml/sax-handler-tmpSXW96VDS.fasl ; compilation finished in 0:00:00.170 ; compiling file "/usr/share/common-lisp/source/cxml/xml/xml-name-rune-p.lisp" (written 08 JUN 2011 04:58:03 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/xml/xml-name-rune-p-tmpJOZ4RWJ2.fasl ; compilation finished in 0:00:00.029 ; compiling file "/usr/share/common-lisp/source/cxml/xml/split-sequence.lisp" (written 08 JUN 2011 04:58:03 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/xml/split-sequence-tmpBECHKCQ0.fasl ; compilation finished in 0:00:00.010 ; compiling file "/usr/share/common-lisp/source/cxml/xml/xml-parse.lisp" (written 08 JUN 2011 04:58:03 PM): ; file: /usr/share/common-lisp/source/cxml/xml/xml-parse.lisp ; in: DEFSTRUCT ATTDEF ; (DEFSTRUCT CXML::ATTDEF ; CXML::ELEMENT ; CXML::NAME ; TYPE ; CXML::DEFAULT ; (CXML::EXTERNAL-P CXML::*EXTERNAL-SUBSET-P*)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; #)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CXML::ATTDEF-NAME, CXML::ATTDEF-TYPE, ; CXML::ATTDEF-DEFAULT and CXML::ATTDEF-EXTERNAL-P could not be inlined because ; the structure definition for CXML::ATTDEF was not yet seen. To avoid this ; warning, DEFSTRUCT should precede references to the affected functions, or they ; must be declared locally notinline at each call site. ; in: DEFSTRUCT ELMDEF ; (DEFSTRUCT CXML::ELMDEF ; CXML::NAME ; CXML::CONTENT ; CXML::ATTRIBUTES ; CXML::COMPILED-CSPEC ; (CXML::EXTERNAL-P CXML::*EXTERNAL-SUBSET-P*)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; #)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CXML::ELMDEF-ATTRIBUTES, ; CXML::ELMDEF-COMPILED-CSPEC and CXML::ELMDEF-EXTERNAL-P could not be inlined ; because the structure definition for CXML::ELMDEF was not yet seen. To avoid ; this warning, DEFSTRUCT should precede references to the affected functions, or ; they must be declared locally notinline at each call site. ; in: DEFSTRUCT DTD ; (DEFSTRUCT CXML::DTD ; (CXML::ELEMENTS (CXML::%MAKE-ROD-HASH-TABLE)) ; (CXML::GENTITIES (CXML::%MAKE-ROD-HASH-TABLE)) ; (CXML::PENTITIES (CXML::%MAKE-ROD-HASH-TABLE)) ; (CXML::NOTATIONS (CXML::%MAKE-ROD-HASH-TABLE))) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; #)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CXML::DTD-GENTITIES and CXML::DTD-PENTITIES could ; not be inlined because the structure definition for CXML::DTD was not yet seen. ; To avoid this warning, DEFSTRUCT should precede references to the affected ; functions, or they must be declared locally notinline at each call site. ; in: DEFSTRUCT ZSTREAM ; (DEFSTRUCT CXML::ZSTREAM ; CXML::TOKEN-CATEGORY ; CXML::TOKEN-SEMANTIC ; CXML::INPUT-STACK) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; #)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CXML::ZSTREAM-P and CXML::ZSTREAM-INPUT-STACK ; could not be inlined because the structure definition for CXML::ZSTREAM was not ; yet seen. To avoid this warning, DEFSTRUCT should precede references to the ; affected functions, or they must be declared locally notinline at each call ; site. ; in: DEFSTRUCT XML-HEADER ; (DEFSTRUCT CXML::XML-HEADER ; CXML::VERSION ; CXML::ENCODING ; (CXML::STANDALONE-P NIL)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; #)) ; ; caught STYLE-WARNING: ; Previously compiled calls to CXML::XML-HEADER-ENCODING and ; CXML::XML-HEADER-STANDALONE-P could not be inlined because the structure ; definition for CXML::XML-HEADER was not yet seen. To avoid this warning, ; DEFSTRUCT should precede references to the affected functions, or they must be ; declared locally notinline at each call site. ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/xml/xml-parse-tmpOYQY6WIA.fasl ; compilation finished in 0:00:00.746 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/cxml/xml/unparse.lisp" (written 08 JUN 2011 04:58:03 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/xml/unparse-tmp50O9T7IY.fasl ; compilation finished in 0:00:00.108 ; compiling file "/usr/share/common-lisp/source/cxml/xml/xmls-compat.lisp" (written 08 JUN 2011 04:58:03 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/xml/xmls-compat-tmpGZL21UBE.fasl ; compilation finished in 0:00:00.029 ; compiling file "/usr/share/common-lisp/source/cxml/xml/recoder.lisp" (written 08 JUN 2011 04:58:03 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/xml/recoder-tmpAKRW6QK6.fasl ; compilation finished in 0:00:00.036 ; compiling file "/usr/share/common-lisp/source/cxml/xml/xmlns-normalizer.lisp" (written 08 JUN 2011 04:58:03 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/xml/xmlns-normalizer-tmp8J071LEX.fasl ; compilation finished in 0:00:00.015 ; compiling file "/usr/share/common-lisp/source/cxml/xml/space-normalizer.lisp" (written 08 JUN 2011 04:58:03 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/xml/space-normalizer-tmp9EISPCFY.fasl ; compilation finished in 0:00:00.018 ; compiling file "/usr/share/common-lisp/source/cxml/xml/catalog.lisp" (written 08 JUN 2011 04:58:03 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/xml/catalog-tmpRZ31FVZM.fasl ; compilation finished in 0:00:00.133 ; compiling file "/usr/share/common-lisp/source/cxml/xml/sax-proxy.lisp" (written 08 JUN 2011 04:58:03 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/xml/sax-proxy-tmpT7RFXS2O.fasl ; compilation finished in 0:00:00.043 ; compiling file "/usr/share/common-lisp/source/cxml/xml/atdoc-configuration.lisp" (written 08 JUN 2011 04:58:03 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/xml/atdoc-configuration-tmpALSWN3ZO.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/cxml/dom/package.lisp" (written 08 JUN 2011 04:58:03 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/dom/package-tmp8525G5XJ.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/cxml/dom/dom-impl.lisp" (written 08 JUN 2011 04:58:03 PM): ; file: /usr/share/common-lisp/source/cxml/dom/dom-impl.lisp ; in: DEFSTRUCT ROD-STREAM ; (DEFSTRUCT RUNE-DOM::ROD-STREAM (RUNE-DOM::BUF NIL) (POSITION 0)) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; #)) ; ; caught STYLE-WARNING: ; Previously compiled call to RUNE-DOM::ROD-STREAM-BUF could not be inlined ; because the structure definition for RUNE-DOM::ROD-STREAM was not yet seen. To ; avoid this warning, DEFSTRUCT should precede references to the affected ; functions, or they must be declared locally notinline at each call site. ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/dom/dom-impl-tmpNBWMKLPF.fasl ; compilation finished in 0:00:00.303 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/cxml/dom/dom-builder.lisp" (written 08 JUN 2011 04:58:03 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/dom/dom-builder-tmpZ7NED271.fasl ; compilation finished in 0:00:00.046 ; compiling file "/usr/share/common-lisp/source/cxml/dom/dom-sax.lisp" (written 08 JUN 2011 04:58:03 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/dom/dom-sax-tmpVAWG08RM.fasl ; compilation finished in 0:00:00.011 ; compiling file "/usr/share/common-lisp/source/cxml/klacks/package.lisp" (written 08 JUN 2011 04:58:03 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/klacks/package-tmp29JNO94I.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/cxml/klacks/klacks.lisp" (written 08 JUN 2011 04:58:03 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/klacks/klacks-tmp9HJS3WPK.fasl ; compilation finished in 0:00:00.033 ; compiling file "/usr/share/common-lisp/source/cxml/klacks/klacks-impl.lisp" (written 08 JUN 2011 04:58:03 PM): ; file: /usr/share/common-lisp/source/cxml/klacks/klacks-impl.lisp ; in: DEFUN MAKE-SOURCE ; (DEFUN CXML:MAKE-SOURCE ; (CXML::INPUT ; &REST CXML::ARGS ; &KEY CXML::VALIDATE CXML::DTD CXML::ROOT CXML::ENTITY-RESOLVER ; CXML::DISALLOW-INTERNAL-SUBSET (CXML::BUFFERING T) PATHNAME) ; (DECLARE ; (IGNORE CXML::VALIDATE CXML::DTD CXML::ROOT CXML::ENTITY-RESOLVER ; CXML::DISALLOW-INTERNAL-SUBSET)) ; (ETYPECASE CXML::INPUT ; (RUNES:XSTREAM ; (WHEN (AND # #) ; (WARN "make-source called with !buffering, but xstream is buffering")) ; (LET (#) ; (LET # ; # ; #))) ; (STREAM ; (LET (#) ; (SETF #) ; (APPLY #'CXML:MAKE-SOURCE RUNES:XSTREAM CXML::ARGS))) ; (PATHNAME ; (LET* (#) ; (SETF #) ; (LET # ; # ; CXML::SOURCE))) ; (RUNES:ROD ; (LET (#) ; (SETF #) ; (APPLY #'CXML:MAKE-SOURCE RUNES:XSTREAM CXML::ARGS))) ; (ARRAY (CXML:MAKE-SOURCE (RUNES:MAKE-OCTET-INPUT-STREAM CXML::INPUT))))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CXML:MAKE-SOURCE ; (CXML::INPUT &REST CXML::ARGS &KEY CXML::VALIDATE CXML::DTD CXML::ROOT ; CXML::ENTITY-RESOLVER CXML::DISALLOW-INTERNAL-SUBSET ; (CXML::BUFFERING T) PATHNAME) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (DECLARE ; (IGNORE CXML::VALIDATE CXML::DTD CXML::ROOT CXML::ENTITY-RESOLVER ; CXML::DISALLOW-INTERNAL-SUBSET)) ; (BLOCK CXML:MAKE-SOURCE ; (ETYPECASE CXML::INPUT ; (RUNES:XSTREAM ; (WHEN # #) ; (LET # ; #)) ; (STREAM ; (LET # ; # ; #)) ; (PATHNAME ; (LET* # ; # ; #)) ; (RUNES:ROD ; (LET # ; # ; #)) ; (ARRAY (CXML:MAKE-SOURCE #))))) ; ; caught STYLE-WARNING: ; The variable PATHNAME is defined but never used. ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/klacks/klacks-impl-tmp6OWTJDXT.fasl ; compilation finished in 0:00:00.138 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/cxml/klacks/tap-source.lisp" (written 08 JUN 2011 04:58:03 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/klacks/tap-source-tmpERQILLDF.fasl ; compilation finished in 0:00:00.102 ; compiling file "/usr/share/common-lisp/source/cxml/test/domtest.lisp" (written 08 JUN 2011 04:58:03 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/test/domtest-tmpYZQK9040.fasl ; compilation finished in 0:00:00.136 ; compiling file "/usr/share/common-lisp/source/cxml/test/xmlconf.lisp" (written 08 JUN 2011 04:58:03 PM): ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cxml/test/xmlconf-tmpMV6W92GO.fasl ; compilation finished in 0:00:00.044 ; compiling file "/usr/share/common-lisp/source/zs3/package.lisp" (written 24 DEC 2017 11:53:51 PM): ; processing (DEFPACKAGE #:ZS3 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/zs3/package-tmp886ACX8P.fasl ; compilation finished in 0:00:00.001 ; compiling file "/usr/share/common-lisp/source/zs3/utils.lisp" (written 24 DEC 2017 11:53:51 PM): ; processing (IN-PACKAGE #:ZS3) ; processing (DEFVAR *MONTHS* ...) ; processing (DEFVAR *DAYS* ...) ; processing (DEFTYPE OCTET ...) ; processing (DEFTYPE OCTET-VECTOR ...) ; processing (DEFTYPE EMPTY-VECTOR ...) ; processing (DEFUN HTTP-DATE-STRING ...) ; processing (DEFUN ISO8601-DATE-STRING ...) ; processing (DEFUN ISO8601-BASIC-TIMESTAMP-STRING ...) ; processing (DEFUN ISO8601-BASIC-DATE-STRING ...) ; processing (DEFUN STRING-OCTETS ...) ; processing (DEFUN STRING64 ...) ; processing (DEFUN URL-DECODE ...) ; processing (DEFUN URL-ENCODE ...) ; processing (DEFUN ALIST-TO-URL-ENCODED-STRING ...) ; processing (DEFUN SAVE ...) ; processing (DEFUN PARSE-AMAZON-TIMESTAMP ...) ; processing (DEFUN STRINGIFY ...) ; processing (DEFUN PARAMETERS-ALIST ...) ; processing (DEFUN LAST-ENTRY ...) ; processing (DEFUN FILE-SIZE ...) ; processing (DEFVAR +UNIX-TIME-DIFFERENCE+ ...) ; processing (DEFUN UNIX-TIME ...) ; processing (DEFUN OCTET-VECTOR ...) ; processing (DEFUN KEYWORDIFY ...) ; processing (DEFUN MAKE-OCTET-VECTOR ...) ; processing (DEFUN NOW+ ...) ; processing (DEFUN NOW- ...) ; processing (DEFUN COPY-N-OCTETS ...) ; processing (DEFUN STARTS-WITH ...) ; processing (DEFUN ENDS-WITH ...) ; processing (DEFPARAMETER *FILE-BUFFER-SIZE* ...) ; processing (DEFUN MAKE-FILE-BUFFER ...) ; processing (DEFUN READ-EXACTLY-N-OCTETS ...) ; processing (DEFUN READ-COMPLETE-FILE-BUFFER ...) ; processing (DEFUN MERGE-FILE-BUFFERS ...) ; processing (DEFUN SKIP-STREAM-OCTETS ...) ; processing (DEFUN DRAINED-STREAM-VECTOR ...) ; processing (DEFUN PARTIAL-STREAM-VECTOR ...) ; processing (DEFUN STREAM-SUBSET-VECTOR ...) ; processing (DEFUN FILE-SUBSET-VECTOR ...) ; processing (DEFUN ALIST-PLIST ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/zs3/utils-tmp34OPD42E.fasl ; compilation finished in 0:00:00.051 ; compiling file "/usr/share/common-lisp/source/zs3/crypto.lisp" (written 24 DEC 2017 11:53:51 PM): ; processing (IN-PACKAGE #:ZS3) ; processing (DEFPARAMETER *EMPTY-STRING-SHA256* ...) ; processing (DEFPARAMETER *NEWLINE-VECTOR* ...) ; processing (DEFCLASS DIGESTER ...) ; processing (DEFUN MAKE-DIGESTER ...) ; processing (DEFGENERIC ADD-STRING ...) ; processing (DEFGENERIC ADD-NEWLINE ...) ; processing (DEFGENERIC ADD-LINE ...) ; processing (DEFGENERIC DIGEST ...) ; processing (DEFGENERIC DIGEST64 ...) ; processing (DEFUN FILE-MD5 ...) ; processing (DEFUN FILE-MD5/B64 ...) ; processing (DEFUN FILE-MD5/HEX ...) ; processing (DEFUN FILE-SHA256 ...) ; processing (DEFUN FILE-SHA256/HEX ...) ; processing (DEFUN VECTOR-SHA256 ...) ; processing (DEFUN VECTOR-SHA256/HEX ...) ; processing (DEFUN STRINGS-SHA256/HEX ...) ; processing (DEFUN STRINGS-HMAC-SHA256/HEX ...) ; processing (DEFUN VECTOR-MD5/B64 ...) ; processing (DEFUN FILE-ETAG ...) ; processing (DEFUN SIGN-STRING ...) ; processing (DEFUN HMAC-SHA256 ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/zs3/crypto-tmpG6RL7DFQ.fasl ; compilation finished in 0:00:00.018 ; compiling file "/usr/share/common-lisp/source/zs3/xml-binding.lisp" (written 24 DEC 2017 11:53:51 PM): ; processing (IN-PACKAGE #:ZS3) ; processing (DEFUN SKIP-DOCUMENT-START ...) ; processing (DEFUN SKIP-CHARACTERS ...) ; processing (DEFUN COLLECT-CHARACTERS ...) ; processing (DEFUN COLLECT-REST-ALIST ...) ; processing (DEFINE-CONDITION XML-BINDING-ERROR ...) ; processing (DEFVAR *BINDER-DEFINITIONS* ...) ; processing (DEFCLASS BINDER ...) ; processing (DEFMACRO DEFBINDER ...) ; processing (DEFUN FIND-BINDER ...) ; processing (DEFUN XML-BIND ...) ; processing (DEFUN TRY-TO-XML-BIND ...) ; processing (DEFVAR *CURRENT-ELEMENT-NAME*) ; processing (DEFUN CREATE-ELEMENT-START-MATCHER ...) ; processing (DEFUN CREATE-ELEMENT-END-MATCHER ...) ; processing (DEFUN CREATE-BINDINGS-EXTENDER ...) ; processing (DEFUN CREATE-SKIPPER ...) ; processing (DEFUN CREATE-BINDINGS-RETURNER ...) ; processing (DEFMACRO CATCHING-XML-ERRORS ...) ; processing (DEFUN CREATE-SEQUENCE-BINDER ...) ; processing (DEFUN CREATE-ALIST-BINDER ...) ; processing (DEFUN CREATE-OPTIONAL-BINDER ...) ; processing (DEFUN CREATE-ALTERNATE-BINDER ...) ; processing (DEFUN CREATE-SUB-BINDER-BINDER ...) ; processing (DEFUN CREATE-SPECIAL-PROCESSOR ...) ; processing (DEFUN CREATE-BINDER ...) ; processing (DEFUN XML-SOURCE ...) ; processing (DEFUN MAKE-BINDER ...) ; processing (DEFUN XML-DOCUMENT-ELEMENT ...) ; processing (DEFUN BVALUE ...) ; processing (DEFUN BFUN ...) ; processing (DEFMACRO ALIST-BIND ...) ; processing (DEFGENERIC MERGE-BINDINGS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/zs3/xml-binding-tmp523HMA4J.fasl ; compilation finished in 0:00:00.042 ; compiling file "/usr/share/common-lisp/source/zs3/xml-output.lisp" (written 24 DEC 2017 11:53:51 PM): ; processing (IN-PACKAGE #:ZS3) ; processing (DEFMACRO WITH-XML-OUTPUT ...) ; processing (DEFUN SIMPLE-ELEMENT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/zs3/xml-output-tmp7QUN41F9.fasl ; compilation finished in 0:00:00.002 ; compiling file "/usr/share/common-lisp/source/zs3/credentials.lisp" (written 24 DEC 2017 11:53:51 PM): ; processing (IN-PACKAGE #:ZS3) ; processing (DEFVAR *CREDENTIALS* ...) ; processing (DEFINE-CONDITION UNSUPPORTED-CREDENTIALS ...) ; processing (DEFGENERIC ACCESS-KEY ...) ; processing (DEFGENERIC SECRET-KEY ...) ; processing (DEFGENERIC SECURITY-TOKEN ...) ; processing (DEFCLASS LAZY-CREDENTIALS-MIXIN ...) ; processing (DEFMETHOD SLOT-UNBOUND ...) ; processing (DEFMETHOD SLOT-UNBOUND ...) ; processing (DEFMETHOD SLOT-UNBOUND ...) ; processing (DEFCLASS FILE-CREDENTIALS ...) ; processing (DEFGENERIC INITIALIZE-LAZY-CREDENTIALS ...) ; processing (DEFUN FILE-CREDENTIALS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/zs3/credentials-tmp6435NPRK.fasl ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/zs3/post.lisp" (written 24 DEC 2017 11:53:51 PM): ; processing (IN-PACKAGE #:ZS3) ; processing (DEFCLASS POST-POLICY ...) ; processing (DEFGENERIC POLICY-SERIALIZE ...) ; processing (DEFMETHOD POLICY-SERIALIZE ...) ; processing (DEFMETHOD POLICY-SERIALIZE ...) ; processing (DEFUN POLICY-STRING64 ...) ; processing (DEFUN POLICY-SIGNATURE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/zs3/post-tmpHHG39W7F.fasl ; compilation finished in 0:00:00.010 ; compiling file "/usr/share/common-lisp/source/zs3/redirects.lisp" (written 24 DEC 2017 11:53:51 PM): ; processing (IN-PACKAGE #:ZS3) ; processing (DEFVAR *PERMANENT-REDIRECTS* ...) ; processing (DEFUN REDIRECT-KEY ...) ; processing (DEFUN REDIRECTION-DATA ...) ; processing (DEFUN REDIRECTED-ENDPOINT ...) ; processing (DEFUN REDIRECTED-REGION ...) ; processing (DEFUN (SETF REDIRECTION-DATA) ...) ; processing (DEFUN CLEAR-REDIRECTS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/zs3/redirects-tmpIV07R04M.fasl ; compilation finished in 0:00:00.015 ; compiling file "/usr/share/common-lisp/source/zs3/request.lisp" (written 24 DEC 2017 11:53:51 PM): ; processing (IN-PACKAGE #:ZS3) ; processing (DEFVAR *S3-ENDPOINT* ...) ; processing (DEFVAR *S3-REGION* ...) ; processing (DEFVAR *USE-SSL* ...) ; processing (DEFVAR *USE-CONTENT-MD5* ...) ; processing (DEFVAR *SIGNED-PAYLOAD* ...) ; processing (DEFVAR *USE-KEEP-ALIVE* ...) ; processing (DEFVAR *KEEP-ALIVE-STREAM* ...) ; processing (DEFMACRO WITH-KEEP-ALIVE ...) ; processing (DEFCLASS REQUEST ...) ; processing (DEFMETHOD SLOT-UNBOUND ...) ; processing (DEFMETHOD SLOT-UNBOUND ...) ; processing (DEFMETHOD SLOT-UNBOUND ...) ; processing (DEFGENERIC AMZ-HEADER-VALUE ...) ; processing (DEFGENERIC ENSURE-AMZ-HEADER ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFGENERIC HOST ...) ; processing (DEFGENERIC HTTP-METHOD ...) ; processing (DEFUN PURI-CANONICALIZED-PATH ...) ; processing (DEFGENERIC SIGNED-PATH ...) ; processing (DEFGENERIC REQUEST-PATH ...) ; processing (DEFGENERIC ALL-AMAZON-HEADERS ...) ; processing (DEFGENERIC DATE-STRING ...) ; processing (DEFUN HEADERS-FOR-SIGNING ...) ; file: /usr/share/common-lisp/source/zs3/request.lisp ; in: DEFUN HEADERS-FOR-SIGNING ; (ZS3:PARAMETERS-ALIST "host" (ZS3::HOST ZS3::REQUEST) "content-type" ; (ZS3::CONTENT-TYPE ZS3::REQUEST)) ; ; caught STYLE-WARNING: ; The first argument of type (SIMPLE-ARRAY CHARACTER (4)) cannot be used as a keyword. ; ; caught STYLE-WARNING: ; The third argument of type (SIMPLE-ARRAY CHARACTER (12)) cannot be used as a keyword. ; processing (DEFUN CANONICAL-HEADERS ...) ; processing (DEFUN SIGNED-HEADERS ...) ; processing (DEFUN PARAMETERS-FOR-SIGNING ...) ; processing (DEFUN CANONICAL-PARAMETERS ...) ; processing (DEFUN CANONICAL-PARAMETERS-STRING ...) ; processing (DEFUN PATH-TO-SIGN ...) ; processing (DEFUN CANONICALIZED-REQUEST-LINES ...) ; processing (DEFUN STRING-TO-SIGN-LINES ...) ; processing (DEFUN MAKE-SIGNING-KEY ...) ; processing (DEFUN PAYLOAD-SHA256 ...) ; processing (DEFUN REQUEST-SIGNATURE ...) ; processing (DEFMETHOD AUTHORIZATION-HEADER-VALUE ...) ; processing (DEFGENERIC DRAKMA-HEADERS ...) ; processing (DEFGENERIC URL ...) ; processing (DEFUN SEND-FILE-CONTENT ...) ; processing (DEFGENERIC SEND ...) ; processing (DEFMETHOD ACCESS-KEY ...) ; processing (DEFMETHOD SECRET-KEY ...) ; processing (DEFMETHOD SECURITY-TOKEN ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/zs3/request-tmp2ANY66A8.fasl ; compilation finished in 0:00:00.073 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/zs3/response.lisp" (written 24 DEC 2017 11:53:51 PM): ; processing (IN-PACKAGE #:ZS3) ; processing (DEFVAR *RESPONSE-ELEMENT-CLASSES* ...) ; processing (DEFUN SET-ELEMENT-CLASS ...) ; processing (DEFCLASS RESPONSE ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFGENERIC XML-STRING ...) ; processing (DEFGENERIC RESPONSE-SPECIALIZED-CLASS ...) ; processing (DEFGENERIC SPECIALIZED-INITIALIZE ...) ; processing (DEFGENERIC CONTENT-LENGTH ...) ; processing (DEFGENERIC SPECIALIZE-RESPONSE ...) ; processing (DEFUN CLOSE-KEEP-ALIVE ...) ; processing (DEFUN REQUEST-RESPONSE ...) ; processing (DEFVAR *BACKOFF* ...) ; processing (DEFUN SUBMIT-REQUEST ...) ; file: /usr/share/common-lisp/source/zs3/response.lisp ; in: DEFUN SUBMIT-REQUEST ; (HANDLER-CASE ; (LET ((ZS3::RESPONSE ; (ZS3::REQUEST-RESPONSE ZS3::REQUEST :KEEP-STREAM ZS3::KEEP-STREAM ; :BODY-STREAM ZS3::BODY-STREAM :HANDLER ZS3::HANDLER))) ; (ZS3::MAYBE-SIGNAL-ERROR ZS3::RESPONSE) ; (SETF (ZS3::REQUEST ZS3::RESPONSE) ZS3::REQUEST) ; (RETURN ZS3::RESPONSE)) ; (ZS3::TEMPORARY-REDIRECT (CONDITION) ; (SETF (ZS3::ENDPOINT ZS3::REQUEST) ; (ZS3::REQUEST-ERROR-ENDPOINT CONDITION))) ; (ZS3::AUTHORIZATION-HEADER-MALFORMED (CONDITION) ; (LET ((ZS3::REGION #)) ; (SETF # #) ; (SETF # ZS3::REGION))) ; (ZS3::PERMANENT-REDIRECT (CONDITION) ; (LET ((ZS3::NEW-ENDPOINT #) (ZS3::NEW-REGION #)) ; (SETF # #) ; (SETF # ZS3::NEW-ENDPOINT) ; (WHEN ZS3::NEW-REGION (SETF #)))) ; (ZS3:INTERNAL-ERROR (ZS3::E) (ZS3::CLOSE-KEEP-ALIVE) ; (WHEN (MINUSP (DECF ZS3::TRIES)) (ERROR ZS3::E)) (SLEEP ZS3::DELAY) ; (INCF ZS3::DELAY ZS3::DELAY)) ; (ERROR (ZS3::E) (ZS3::CLOSE-KEEP-ALIVE) (ERROR ZS3::E))) ; --> BLOCK RETURN-FROM #:FUN3 BLOCK RETURN-FROM #:FUN5 BLOCK RETURN-FROM ; --> #:FUN7 BLOCK RETURN-FROM #:FUN9 BLOCK RETURN-FROM #:FUN11 BLOCK ; --> SB-KERNEL::%HANDLER-BIND LET SB-INT:DX-FLET FLET SB-INT:DX-LET LET CONS ; ==> ; 1 ; ; note: can't open-code test of unknown type TEMPORARY-REDIRECT ; ; note: can't open-code test of unknown type AUTHORIZATION-HEADER-MALFORMED ; ; note: can't open-code test of unknown type PERMANENT-REDIRECT ; ; note: can't open-code test of unknown type INTERNAL-ERROR ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/zs3/response-tmpX4XJNZSN.fasl ; compilation finished in 0:00:00.033 WARNING: redefining ZS3::CONTENT-LENGTH in DEFGENERIC ; compiling file "/usr/share/common-lisp/source/zs3/objects.lisp" (written 24 DEC 2017 11:53:51 PM): ; processing (IN-PACKAGE #:ZS3) ; processing (DEFCLASS PERSON ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFCLASS BUCKET ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFMETHOD NAME ...) ; processing (DEFCLASS KEY ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/zs3/objects-tmp349SZV56.fasl ; compilation finished in 0:00:00.009 ; compiling file "/usr/share/common-lisp/source/zs3/bucket-listing.lisp" (written 24 DEC 2017 11:53:51 PM): ; processing (IN-PACKAGE #:ZS3) ; processing (DEFBINDER ALL-BUCKETS ...) ; processing (DEFCLASS ALL-BUCKETS ...) ; processing (SET-ELEMENT-CLASS "ListAllMyBucketsResult" ...) ; processing (DEFMETHOD SPECIALIZED-INITIALIZE ...) ; processing (DEFBINDER LIST-BUCKET-RESULT ...) ; processing (DEFCLASS BUCKET-LISTING ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (SET-ELEMENT-CLASS "ListBucketResult" ...) ; processing (DEFUN KEY-BINDING-KEY ...) ; processing (DEFMETHOD SPECIALIZED-INITIALIZE ...) ; processing (DEFGENERIC SUCCESSIVE-MARKER ...) ; processing (DEFGENERIC SUCCESSIVE-REQUEST ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/zs3/bucket-listing-tmpIFTUZKCX.fasl ; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/zs3/errors.lisp" (written 24 DEC 2017 11:53:51 PM): ; processing (IN-PACKAGE #:ZS3) ; processing (DEFBINDER ERROR ...) ; processing (DEFCLASS AMAZON-ERROR ...) ; processing (SET-ELEMENT-CLASS "Error" ...) ; processing (DEFGENERIC ERROR-DATA-VALUE ...) ; processing (DEFMETHOD SPECIALIZED-INITIALIZE ...) ; processing (DEFMETHOD SPECIALIZED-INITIALIZE ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN REPORT-REQUEST-ERROR ...) ; processing (DEFINE-CONDITION REQUEST-ERROR ...) ; processing (DEFPARAMETER *SPECIFIC-ERRORS* ...) ; processing (DEFUN SPECIFIC-ERROR ...) ; processing (DEFGENERIC SIGNAL-SPECIFIC-ERROR ...) ; processing (DEFGENERIC MAYBE-SIGNAL-ERROR ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFMACRO DEFINE-SPECIFIC-ERROR ...) ; processing (DEFINE-SPECIFIC-ERROR (INTERNAL-ERROR "InternalError") ...) ; processing (DEFINE-SPECIFIC-ERROR (SLOW-DOWN "SlowDown") ...) ; processing (DEFINE-SPECIFIC-ERROR (NO-SUCH-BUCKET "NoSuchBucket") ...) ; processing (DEFINE-SPECIFIC-ERROR (NO-SUCH-KEY "NoSuchKey") ...) ; processing (DEFINE-SPECIFIC-ERROR (ACCESS-DENIED "AccessDenied") ...) ; processing (DEFINE-SPECIFIC-ERROR (MALFORMED-XML "MalformedXML") ...) ; processing (DEFINE-CONDITION REDIRECT-ERROR ...) ; processing (DEFINE-SPECIFIC-ERROR (PERMANENT-REDIRECT "PermanentRedirect") ...) ; processing (DEFINE-SPECIFIC-ERROR (TEMPORARY-REDIRECT "TemporaryRedirect") ...) ; processing (DEFINE-SPECIFIC-ERROR (SIGNATURE-MISMATCH "SignatureDoesNotMatch") ...) ; processing (DEFINE-SPECIFIC-ERROR (PRECONDITION-FAILED "PreconditionFailed") ...) ; processing (DEFINE-SPECIFIC-ERROR (AUTHORIZATION-HEADER-MALFORMED "AuthorizationHeaderMalformed") ...) ; processing (DEFINE-CONDITION LINKED ...) ; processing (DEFINE-CONDITION BUCKET-RESTRICTIONS ...) ; processing (DEFINE-SPECIFIC-ERROR (INVALID-BUCKET-NAME "InvalidBucketName") ...) ; processing (DEFINE-SPECIFIC-ERROR (BUCKET-EXISTS "BucketAlreadyExists") ...) ; processing (DEFINE-SPECIFIC-ERROR (TOO-MANY-BUCKETS "TooManyBuckets") ...) ; processing (DEFINE-SPECIFIC-ERROR (AMBIGUOUS-GRANT "AmbiguousGrantByEmailAddress") ...) ; processing (DEFINE-SPECIFIC-ERROR (BUCKET-NOT-EMPTY "BucketNotEmpty") ...) ; processing (DEFINE-SPECIFIC-ERROR (INVALID-LOGGING-TARGET "InvalidTargetBucketForLogging") ...) ; processing (DEFINE-SPECIFIC-ERROR (KEY-TOO-LONG "KeyTooLong") ...) ; processing (DEFINE-SPECIFIC-ERROR (REQUEST-TIME-SKEWED "RequestTimeTooSkewed") ...) ; processing (DEFINE-SPECIFIC-ERROR (OPERATION-ABORTED "OperationAborted") ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/zs3/errors-tmpJ3BP3DY8.fasl ; compilation finished in 0:00:00.061 ; compiling file "/usr/share/common-lisp/source/zs3/acl.lisp" (written 24 DEC 2017 11:53:51 PM): ; processing (IN-PACKAGE #:ZS3) ; processing (DEFCLASS ACCESS-CONTROL-LIST ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFCLASS GRANT ...) ; processing (DEFCLASS ACL-PERSON ...) ; processing (DEFMETHOD SLOT-UNBOUND ...) ; processing (DEFCLASS ACL-EMAIL ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFCLASS ACL-GROUP ...) ; processing (DEFMETHOD SLOT-UNBOUND ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFGENERIC GRANTEE-FOR-PRINT ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFPARAMETER *PERMISSIONS* ...) ; processing (DEFUN PERMISSION-NAME ...) ; processing (DEFUN PERMISSION-KEYWORD ...) ; processing (DEFPARAMETER *ALL-USERS* ...) ; processing (DEFPARAMETER *AWS-USERS* ...) ; processing (DEFPARAMETER *LOG-DELIVERY* ...) ; processing (DEFGENERIC ACL-SERIALIZE ...) ; processing (DEFMETHOD ACL-SERIALIZE ...) ; processing (DEFVAR *XSI* ...) ; processing (DEFGENERIC XSI-TYPE ...) ; processing (DEFMETHOD ACL-SERIALIZE ...) ; processing (DEFMETHOD ACL-SERIALIZE ...) ; processing (DEFMETHOD ACL-SERIALIZE ...) ; processing (DEFMETHOD ACL-SERIALIZE ...) ; processing (DEFBINDER ACCESS-CONTROL-POLICY ...) ; processing (DEFCLASS ACL-RESPONSE ...) ; processing (SET-ELEMENT-CLASS "AccessControlPolicy" ...) ; processing (DEFGENERIC ACL-EQV ...) ; processing (DEFUN ENSURE-ACL-GROUP ...) ; processing (DEFUN ALIST-GRANT ...) ; processing (DEFMETHOD SPECIALIZED-INITIALIZE ...) ; processing (DEFUN GRANT ...) ; processing (DEFUN ACL-EMAIL ...) ; processing (DEFUN ACL-PERSON ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/zs3/acl-tmp9NC1M3HR.fasl ; compilation finished in 0:00:00.050 ; compiling file "/usr/share/common-lisp/source/zs3/logging.lisp" (written 24 DEC 2017 11:53:51 PM): ; processing (IN-PACKAGE #:ZS3) ; processing (DEFCLASS LOGGING-SETUP ...) ; processing (DEFCLASS LOGGING ...) ; processing (DEFBINDER BUCKET-LOGGING-STATUS ...) ; processing (DEFUN BINDINGS-LOGGING-SETUP ...) ; processing (DEFGENERIC LOG-SERIALIZE ...) ; processing (SET-ELEMENT-CLASS "BucketLoggingStatus" ...) ; processing (DEFMETHOD SPECIALIZED-INITIALIZE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/zs3/logging-tmpCQV7SEDP.fasl ; compilation finished in 0:00:00.011 ; compiling file "/usr/share/common-lisp/source/zs3/location.lisp" (written 24 DEC 2017 11:53:51 PM): ; processing (IN-PACKAGE #:ZS3) ; processing (DEFBINDER LOCATION-CONSTRAINT ...) ; processing (DEFCLASS LOCATION-CONSTRAINT ...) ; processing (SET-ELEMENT-CLASS "LocationConstraint" ...) ; processing (DEFMETHOD SPECIALIZED-INITIALIZE ...) ; processing (DEFUN LOCATION-CONSTRAINT-XML ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/zs3/location-tmpOD15IJQ.fasl ; compilation finished in 0:00:00.005 ; compiling file "/usr/share/common-lisp/source/zs3/interface.lisp" (written 24 DEC 2017 11:53:51 PM): ; processing (IN-PACKAGE #:ZS3) ; processing (DEFPARAMETER *CANNED-ACCESS-POLICIES* ...) ; processing (DEFUN CANNED-ACCESS-POLICY ...) ; processing (DEFUN ACCESS-POLICY-HEADER ...) ; processing (DEFUN HEAD ...) ; processing (DEFUN ALL-BUCKETS ...) ; processing (DEFUN BUCKET-LOCATION ...) ; processing (DEFUN BUCKET-REGION ...) ; processing (DEFUN REGION-ENDPOINT ...) ; processing (DEFUN QUERY-BUCKET ...) ; processing (DEFUN CONTINUE-BUCKET-QUERY ...) ; processing (DEFUN ALL-KEYS ...) ; processing (DEFUN BUCKET-EXISTS-P ...) ; processing (DEFUN CREATE-BUCKET ...) ; processing (DEFUN DELETE-BUCKET ...) ; processing (DEFUN CHECK-REQUEST-SUCCESS ...) ; processing (DEFUN MAKE-FILE-WRITER-HANDLER ...) ; processing (DEFUN VECTOR-WRITER-HANDLER ...) ; processing (DEFUN STREAM-IDENTITY-HANDLER ...) ; processing (DEFUN MAKE-STRING-WRITER-HANDLER ...) ; processing (DEFUN GET-OBJECT ...) ; processing (DEFUN GET-VECTOR ...) ; processing (DEFUN GET-STRING ...) ; processing (DEFUN GET-FILE ...) ; processing (DEFUN FORMAT-TAGGING-HEADER ...) ; processing (DEFUN PUT-OBJECT ...) ; processing (DEFUN PUT-VECTOR ...) ; processing (DEFUN PUT-STRING ...) ; processing (DEFUN PUT-FILE ...) ; processing (DEFUN PUT-STREAM ...) ; processing (DEFUN DELETE-OBJECT ...) ; processing (DEFUN BULK-DELETE-DOCUMENT ...) ; processing (DEFBINDER DELETE-OBJECTS-RESULT ...) ; processing (DEFUN DELETE-OBJECTS ...) ; processing (DEFUN DELETE-ALL-OBJECTS ...) ; processing (DEFUN COPY-OBJECT ...) ; processing (DEFUN OBJECT-METADATA ...) ; processing (DEFUN SET-STORAGE-CLASS ...) ; processing (DEFPARAMETER *PUBLIC-READ-GRANT* ...) ; processing (DEFUN GET-ACL ...) ; processing (DEFUN PUT-ACL ...) ; processing (DEFUN MAKE-PUBLIC ...) ; processing (DEFUN MAKE-PRIVATE ...) ; processing (DEFPARAMETER *LOG-DELIVERY-GRANTS* ...) ; processing (DEFUN ENABLE-LOGGING-TO ...) ; processing (DEFUN DISABLE-LOGGING-TO ...) ; processing (DEFUN ENABLE-LOGGING ...) ; processing (DEFPARAMETER *EMPTY-LOGGING-SETUP* ...) ; processing (DEFUN DISABLE-LOGGING ...) ; processing (DEFUN LOGGING-SETUP ...) ; processing (DEFCLASS URL-BASED-REQUEST ...) ; processing (DEFMETHOD DATE-STRING ...) ; processing (DEFUN RESOURCE-URL ...) ; processing (DEFUN AUTHORIZED-URL ...) ; file: /usr/share/common-lisp/source/zs3/interface.lisp ; in: DEFUN AUTHORIZED-URL ; (ZS3:PARAMETERS-ALIST "X-Amz-Algorithm" "AWS4-HMAC-SHA256" "X-Amz-Credential" ; (FORMAT NIL "~A/~A/~A/s3/aws4_request" ; (ZS3:ACCESS-KEY ZS3:*CREDENTIALS*) ; (ZS3::ISO8601-BASIC-DATE-STRING ; (ZS3::DATE ZS3::REQUEST)) ; (ZS3::REGION ZS3::REQUEST)) ; "X-Amz-Date" ; (ZS3::ISO8601-BASIC-TIMESTAMP-STRING ; (ZS3::DATE ZS3::REQUEST)) ; "X-Amz-Expires" (- ZS3::EXPIRES (GET-UNIVERSAL-TIME)) ; "X-Amz-SignedHeaders" ; (FORMAT NIL "~{~A~^;~}" ; (ZS3::SIGNED-HEADERS ZS3::REQUEST))) ; ; caught STYLE-WARNING: ; The first argument of type (SIMPLE-ARRAY CHARACTER (15)) cannot be used as a keyword. ; ; caught STYLE-WARNING: ; The third argument of type (SIMPLE-ARRAY CHARACTER (16)) cannot be used as a keyword. ; ; caught STYLE-WARNING: ; The fifth argument of type (SIMPLE-ARRAY CHARACTER (10)) cannot be used as a keyword. ; ; caught STYLE-WARNING: ; The seventh argument of type (SIMPLE-ARRAY CHARACTER (13)) cannot be used as a keyword. ; ; caught STYLE-WARNING: ; The ninth argument of type (SIMPLE-ARRAY CHARACTER (19)) cannot be used as a keyword. ; processing (DEFPARAMETER *ME-CACHE* ...) ; processing (DEFUN ME ...) ; processing (DEFUN MAKE-POST-POLICY ...) ; processing (DEFBINDER GET-TAGGING-RESULT ...) ; processing (DEFUN GET-TAGGING ...) ; processing (DEFUN PUT-TAGGING ...) ; processing (DEFUN DELETE-TAGGING ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/zs3/interface-tmpGB8XX1TU.fasl ; compilation finished in 0:00:00.243 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/zs3/cloudfront.lisp" (written 24 DEC 2017 11:53:51 PM): ; processing (IN-PACKAGE #:ZS3) ; processing (DEFVAR *CANONICAL-BUCKET-NAME-SUFFIX* ...) ; processing (DEFPARAMETER *CALLER-REFERENCE-COUNTER* ...) ; processing (DEFPARAMETER *CLOUDFRONT-BASE-URL* ...) ; processing (DEFPARAMETER *DISTRIBUTION-SPECIFIC-ERRORS* ...) ; processing (DEFBINDER DISTRIBUTION-ERROR-RESPONSE ...) ; processing (DEFINE-CONDITION DISTRIBUTION-ERROR ...) ; processing (DEFMACRO DEFINE-SPECIFIC-DISTRIBUTION-ERROR ...) ; processing (DEFINE-SPECIFIC-DISTRIBUTION-ERROR "InvalidIfMatchVersion" ...) ; processing (DEFINE-SPECIFIC-DISTRIBUTION-ERROR "PreconditionFailed" ...) ; processing (DEFINE-SPECIFIC-DISTRIBUTION-ERROR "DistributionNotDisabled" ...) ; processing (DEFINE-SPECIFIC-DISTRIBUTION-ERROR "CNAMEAlreadyExists" ...) ; processing (DEFINE-SPECIFIC-DISTRIBUTION-ERROR "TooManyDistributions" ...) ; processing (DEFUN MAYBE-SIGNAL-DISTRIBUTION-ERROR ...) ; processing (DEFUN CANONICAL-DISTRIBUTION-BUCKET-NAME ...) ; processing (DEFUN GENERATE-CALLER-REFERENCE ...) ; processing (DEFCLASS DISTRIBUTION ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFUN DISTRIBUTION-DOCUMENT ...) ; processing (DEFUN DISTRIBUTION-REQUEST-HEADERS ...) ; processing (DEFUN DISTRIBUTION-REQUEST ...) ; processing (DEFBINDER DISTRIBUTION-CONFIG ...) ; processing (DEFBINDER DISTRIBUTION ...) ; processing (DEFUN BINDINGS-DISTRIBUTION ...) ; processing (DEFUN PUT-CONFIG ...) ; processing (DEFUN LATEST-VERSION ...) ; processing (DEFUN MERGE-INTO ...) ; processing (DEFGENERIC REFRESH ...) ; processing (DEFUN CALL-WITH-LATEST ...) ; processing (DEFUN MODIFY-AND-SAVE ...) ; processing (DEFMACRO WITH-SAVED-MODIFICATIONS ...) ; processing (DEFBINDER DISTRIBUTION-LIST ...) ; processing (DEFUN ALL-DISTRIBUTIONS ...) ; processing (DEFUN CREATE-DISTRIBUTION ...) ; processing (DEFUN %DELETE-DISTRIBUTION ...) ; processing (DEFGENERIC DELETE-DISTRIBUTION ...) ; processing (DEFGENERIC ENABLE ...) ; processing (DEFGENERIC DISABLE ...) ; processing (DEFGENERIC ENSURE-CNAME ...) ; processing (DEFGENERIC REMOVE-CNAME ...) ; processing (DEFGENERIC SET-COMMENT ...) ; processing (DEFUN DISTRIBUTIONS-FOR-BUCKET ...) ; processing (DEFCLASS INVALIDATION ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFBINDER INVALIDATION-BATCH ...) ; processing (DEFBINDER INVALIDATION ...) ; processing (DEFMETHOD MERGE-BINDINGS ...) ; processing (DEFGENERIC DISTRIBUTION-ID ...) ; processing (DEFUN INVALIDATION-REQUEST ...) ; processing (DEFUN INVALIDATION-BATCH-DOCUMENT ...) ; processing (DEFUN INVALIDATE-PATHS ...) ; processing (DEFMETHOD REFRESH ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/zs3/cloudfront-tmpMU5GUFP8.fasl ; compilation finished in 0:00:00.076 ; compiling file "/usr/share/common-lisp/source/zs3/lifecycle.lisp" (written 24 DEC 2017 11:53:51 PM): ; processing (IN-PACKAGE #:ZS3) ; processing (DEFBINDER LIFECYCLE-CONFIGURATION ...) ; processing (DEFCLASS LIFECYCLE-RULE ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFMETHOD DISABLE ...) ; processing (DEFMETHOD ENABLE ...) ; processing (DEFUN LIFECYCLE-RULE ...) ; processing (DEFUN LIFECYCLE-DOCUMENT ...) ; processing (DEFUN BINDINGS-LIFECYCLE-RULES ...) ; processing (DEFINE-SPECIFIC-ERROR (NO-SUCH-LIFECYCLE-CONFIGURATION "NoSuchLifecycleConfiguration") ...) ; processing (DEFUN BUCKET-LIFECYCLE ...) ; processing (DEFUN DELETE-BUCKET-LIFECYCLE ...) ; processing (DEFUN (SETF BUCKET-LIFECYCLE) ...) ; processing (DEFUN RESTORE-REQUEST-DOCUMENT ...) ; processing (DEFUN RESTORE-OBJECT ...) ; processing (DEFUN OBJECT-RESTORATION-STATUS ...) ; processing (DEFINE-SPECIFIC-ERROR (RESTORE-ALREADY-IN-PROGRESS "RestoreAlreadyInProgress") ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/zs3/lifecycle-tmpBP201KII.fasl ; compilation finished in 0:00:00.038 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/params.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (DEFPACKAGE #:PGLOADER.PARAMS ...) ; processing (IN-PACKAGE :PGLOADER.PARAMS) ; processing (DEFPARAMETER *RELEASE* ...) ; processing (DEFPARAMETER *MAJOR-VERSION* ...) ; processing (DEFPARAMETER *MINOR-VERSION* ...) ; processing (DEFUN GIT-HASH ...) ; processing (DEFPARAMETER *VERSION-STRING* ...) ; processing (DEFVAR *SELF-UPGRADE-IMMUTABLE-SYSTEMS* ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFPARAMETER *DRY-RUN* ...) ; processing (DEFPARAMETER *ON-ERROR-STOP* ...) ; processing (DEFINE-CONDITION ON-ERROR-STOP ...) ; processing (DEFPARAMETER *FD-PATH-ROOT* ...) ; processing (DEFPARAMETER *ROOT-DIR* ...) ; processing (DEFPARAMETER *LOG-FILENAME* ...) ; processing (DEFPARAMETER *SUMMARY-PATHNAME* ...) ; processing (DEFPARAMETER *CLIENT-MIN-MESSAGES* ...) ; processing (DEFPARAMETER *LOG-MIN-MESSAGES* ...) ; processing (DEFPARAMETER *REPORT-STREAM* ...) ; processing (DEFVAR *PGSQL-RESERVED-KEYWORDS* ...) ; processing (DEFPARAMETER *IDENTIFIER-CASE* ...) ; processing (DEFPARAMETER *PRESERVE-INDEX-NAMES* ...) ; processing (DEFPARAMETER *COPY-BATCH-ROWS* ...) ; processing (DEFPARAMETER *COPY-BATCH-SIZE* ...) ; processing (DEFPARAMETER *PREFETCH-ROWS* ...) ; processing (DEFPARAMETER *ROWS-PER-RANGE* ...) ; processing (DEFPARAMETER *PG-SETTINGS* ...) ; processing (DEFPARAMETER *MYSQL-SETTINGS* ...) ; processing (DEFPARAMETER *MSSQL-SETTINGS* ...) ; processing (DEFPARAMETER *DEFAULT-TMPDIR* ...) ; processing (DEFUN INIT-PARAMS-FROM-ENVIRONMENT ...) ; processing (DEFVAR *CONTEXT* ...) ; processing (DEFPARAMETER +OS-CODE-SUCCESS+ ...) ; processing (DEFPARAMETER +OS-CODE-ERROR+ ...) ; processing (DEFPARAMETER +OS-CODE-ERROR-USAGE+ ...) ; processing (DEFPARAMETER +OS-CODE-ERROR-BAD-SOURCE+ ...) ; processing (DEFPARAMETER +OS-CODE-ERROR-REGRESS+ ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/params-tmp6LJFJXCQ.fasl ; compilation finished in 0:00:00.007 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/package.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFPACKAGE #:PGLOADER.TRANSFORMS ...) ; processing (DEFPACKAGE #:PGLOADER.LOGS ...) ; processing (DEFPACKAGE #:PGLOADER.QUOTING ...) ; processing (DEFPACKAGE #:PGLOADER.CATALOG ...) ; processing (DEFPACKAGE #:PGLOADER.STATE ...) ; processing (DEFPACKAGE #:PGLOADER.MONITOR ...) ; processing (DEFPACKAGE #:PGLOADER.QUERIES ...) ; processing (DEFPACKAGE #:PGLOADER.CITUS ...) ; processing (DEFPACKAGE #:PGLOADER.UTILS ...) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...) ; processing (DEFPACKAGE #:PGLOADER.ARCHIVE ...) ; processing (DEFPACKAGE #:PGLOADER.PARSE-DATE ...) ; processing (DEFPACKAGE #:PGLOADER.CONNECTION ...) ; processing (DEFPACKAGE #:PGLOADER.PGSQL ...) ; processing (DEFPACKAGE #:PGLOADER.SOURCES ...) ; processing (DEFPACKAGE #:PGLOADER.PGCOPY ...) ; processing (DEFPACKAGE #:PGLOADER.LOAD ...) ; processing (DEFPACKAGE #:PGLOADER.INI ...) ; processing (DEFPACKAGE #:PGLOADER.SQL ...) ; processing (DEFPACKAGE #:PGLOADER.SOURCE.CSV ...) ; processing (DEFPACKAGE #:PGLOADER.SOURCE.FIXED ...) ; processing (DEFPACKAGE #:PGLOADER.SOURCE.COPY ...) ; processing (DEFPACKAGE #:PGLOADER.SOURCE.IXF ...) ; processing (DEFPACKAGE #:PGLOADER.SOURCE.DB3 ...) ; processing (DEFPACKAGE #:PGLOADER.SOURCE.MYSQL ...) ; processing (DEFPACKAGE #:PGLOADER.SOURCE.PGSQL ...) ; processing (DEFPACKAGE #:PGLOADER.SOURCE.SQLITE ...) ; processing (DEFPACKAGE #:PGLOADER.SOURCE.MSSQL ...) ; processing (DEFPACKAGE #:PGLOADER.SOURCE.MSSQL.INDEX-FILTER ...) ; processing (DEFPACKAGE #:PGLOADER.SYSLOG ...) ; processing (DEFPACKAGE #:PGLOADER.PARSER ...) ; processing (DEFPACKAGE #:PGLOADER ...) ; processing (IN-PACKAGE #:PGLOADER) ; processing (LOOP FOR ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/package-tmpCXNAFKK5.fasl ; compilation finished in 0:00:00.013 WARNING: PGLOADER.UTILS also exports the following symbols: (PGLOADER.CATALOG:ADD-COLUMN PGLOADER.STATE:REPORT-PGTABLE-STATS PGLOADER.CATALOG:SQLTYPE-LIST PGLOADER.CATALOG:CITUS-FORMAT-SQL-SELECT PGLOADER.CATALOG:MAKE-CITUS-DISTRIBUTED-RULE PGLOADER.STATE:PGSTATE-TABLES PGLOADER.CATALOG:ADD-INDEX PGLOADER.CATALOG:FKEY-DELETE-RULE PGLOADER.STATE:REPORT-HEADER PGLOADER.CATALOG:COUNT-FKEYS PGLOADER.STATE:STATE-POSTLOAD PGLOADER.QUERIES:SQL-URL-FOR-VARIANT PGLOADER.CATALOG:FKEY-MATCH-RULE PGLOADER.CATALOG:SCHEMA-VIEW-LIST PGLOADER.CATALOG:FIND-INDEX PGLOADER.STATE:PGTABLE-REJECT-DATA PGLOADER.CITUS:CITUS-DISTRIBUTE-SCHEMA PGLOADER.CATALOG:PROCEDURE PGLOADER.STATE:REPORT-TABLE-NAME PGLOADER.CATALOG:SCHEMA PGLOADER.CATALOG:SCHEMA-SOURCE-NAME PGLOADER.CATALOG:COLUMN-NULLABLE PGLOADER.CATALOG:COLUMN-TYPE-MOD PGLOADER.CITUS:CITUS-REFERENCE-RULE-P PGLOADER.STATE:CREATE-STATE PGLOADER.CATALOG:FKEY-FOREIGN-COLUMNS PGLOADER.CATALOG:FKEY-DEFERRABLE PGLOADER.CATALOG:MATVIEW-NAME PGLOADER.QUERIES:SQL PGLOADER.STATE:PGSTATE-READ PGLOADER.CATALOG:TABLE-FKEY-LIST PGLOADER.CATALOG:MAKE-FKEY PGLOADER.CATALOG:EXTENSION-NAME PGLOADER.CATALOG:FIELD-NAME PGLOADER.MONITOR:WITH-STATS-COLLECTION PGLOADER.CATALOG:INDEX-CONNAME PGLOADER.MONITOR:PROCESS-BAD-ROW PGLOADER.CATALOG:SQLTYPE-NAME PGLOADER.CATALOG:TABLE PGLOADER.CATALOG:MAYBE-ADD-TABLE PGLOADER.CATALOG:COLUMN-TRANSFORM-DEFAULT PGLOADER.CATALOG:TABLE-CITUS-RULE PGLOADER.CATALOG:INDEX-COLUMNS PGLOADER.CATALOG:FIND-FKEY PGLOADER.CATALOG:INDEX-SCHEMA PGLOADER.CATALOG:CITUS-REFERENCE-RULE-RULE PGLOADER.CATALOG:SCHEMA-TABLE-LIST PGLOADER.MONITOR:START-MONITOR PGLOADER.CATALOG:MAKE-REGEX-MATCH-RULE PGLOADER.CATALOG:CITUS-DISTRIBUTED-RULE-USING PGLOADER.MONITOR:SEND-EVENT PGLOADER.CATALOG:CATALOG-TYPES-WITHOUT-BTREE PGLOADER.CATALOG:FORMAT-CREATE-SQL PGLOADER.CITUS:CITUS-REFERENCE-RULE-TABLE PGLOADER.CATALOG:SQLTYPE PGLOADER.STATE:PGSTATE-SETF PGLOADER.CATALOG:COLUMN-DEFAULT PGLOADER.CATALOG:MAKE-PROCEDURE PGLOADER.STATE:PGSTATE-INCF PGLOADER.CATALOG:ADD-FKEY PGLOADER.STATE:REPORT-PGSTATE-STATS PGLOADER.CATALOG:MATCH-RULE-SCHEMA PGLOADER.STATE:PGTABLE-SECS PGLOADER.MONITOR:FLUSH-SUMMARY PGLOADER.CATALOG:MAKE-SQLTYPE PGLOADER.CATALOG:MAKE-STRING-MATCH-RULE PGLOADER.CATALOG:INDEX-NAME PGLOADER.CATALOG:SCHEMA-EXTENSION-LIST PGLOADER.CATALOG:CITUS-BACKFILL-TABLE-P PGLOADER.CATALOG:FKEY-COLUMNS PGLOADER.CATALOG:MATCH-RULE-ACTION PGLOADER.CATALOG:CATALOG-DISTRIBUTION-RULES PGLOADER.CATALOG:SCHEMA-IN-SEARCH-PATH PGLOADER.CATALOG:FKEY-UPDATE-RULE PGLOADER.MONITOR:NEW-LABEL PGLOADER.CATALOG:STRING-MATCH-RULE-TARGET PGLOADER.CATALOG:MAYBE-ADD-INDEX PGLOADER.CATALOG:PROCEDURE-NAME PGLOADER.CATALOG:INDEX-CONDEF PGLOADER.STATE:REPORT-FOOTER PGLOADER.CATALOG:PUSH-TO-END PGLOADER.CATALOG:PROCEDURE-RETURNS PGLOADER.CATALOG:PROCEDURE-BODY PGLOADER.CATALOG:MATCH-RULE-RULE PGLOADER.STATE:PGSTATE-DECF PGLOADER.CATALOG:ALTER-TABLE PGLOADER.CATALOG:TABLE-ROW-COUNT-ESTIMATE PGLOADER.CATALOG:TRIGGER-TABLE PGLOADER.STATE:PGSTATE-ROWS PGLOADER.CATALOG:INDEX-SQL PGLOADER.CATALOG:MATVIEW PGLOADER.CATALOG:CREATE-TABLE PGLOADER.CATALOG:TABLE-NAME PGLOADER.CATALOG:MAKE-MATVIEW PGLOADER.CATALOG:TABLE-OID PGLOADER.CATALOG:MAYBE-ADD-FKEY PGLOADER.CATALOG:MAKE-TABLE PGLOADER.CATALOG:WITH-SCHEMA PGLOADER.STATE:PGSTATE-TABNAMES PGLOADER.CATALOG:TABLE-INDEX-LIST PGLOADER.STATE:STATE-SECS PGLOADER.MONITOR:ELAPSED-TIME-SINCE PGLOADER.CATALOG:FIND-VIEW PGLOADER.CATALOG:INDEX PGLOADER.CATALOG:MAKE-CITUS-REFERENCE-RULE PGLOADER.CATALOG:CITUS-DISTRIBUTED-RULE-TABLE PGLOADER.CATALOG:INDEX-TABLE PGLOADER.CATALOG:TRIGGER-ACTION PGLOADER.CATALOG:MAYBE-ADD-EXTENSION PGLOADER.CATALOG:TABLE-TRIGGER-LIST PGLOADER.CATALOG:FKEY-FOREIGN-TABLE PGLOADER.CATALOG:REGEX-MATCH-RULE-TARGET PGLOADER.CATALOG:ADD-TABLE PGLOADER.CATALOG:ADD-VIEW PGLOADER.CATALOG:FKEY-NAME PGLOADER.STATE:PGTABLE-START PGLOADER.STATE:PGTABLE-STOP PGLOADER.CATALOG:FORMAT-DEFAULT-VALUE PGLOADER.STATE:PGSTATE-ERRS PGLOADER.CATALOG:FKEY-CONDEF PGLOADER.MONITOR:*MONITORING-KERNEL* PGLOADER.CITUS:CITUS-RULE-IS-MISSING-FROM-LIST PGLOADER.CATALOG:COLUMN-TRANSFORM PGLOADER.CATALOG:CATALOG PGLOADER.CATALOG:CAST PGLOADER.CATALOG:INDEX-FK-DEPS PGLOADER.CATALOG:MATCHES PGLOADER.STATE:PGTABLE-BYTES PGLOADER.CATALOG:COLUMN-TYPE-NAME PGLOADER.MONITOR:MONITOR-ERROR PGLOADER.CATALOG:CITUS-REFERENCE-RULE PGLOADER.CATALOG:TABLE-TABLESPACE PGLOADER.CATALOG:ADD-FIELD PGLOADER.CATALOG:FORMAT-DROP-SQL PGLOADER.CATALOG:COLUMN-NAME PGLOADER.MONITOR:TIMING PGLOADER.CATALOG:MAYBE-ADD-SCHEMA PGLOADER.CATALOG:COUNT-TABLES PGLOADER.CATALOG:INDEX-TYPE PGLOADER.CATALOG:COLUMN-COMMENT PGLOADER.STATE:PGTABLE-ROWS PGLOADER.CITUS:CITUS-DISTRIBUTED-RULE-P PGLOADER.CATALOG:MATCH-RULE PGLOADER.QUERIES:*QUERIES* PGLOADER.CATALOG:TABLE-SCHEMA PGLOADER.QUOTING:QUOTED-P PGLOADER.CATALOG:FKEY PGLOADER.STATE:PGSTATE-NEW-LABEL PGLOADER.STATE:PGSTATE-SECS PGLOADER.CATALOG:MAKE-INDEX PGLOADER.CATALOG:INDEX-PRIMARY PGLOADER.MONITOR:STOP-MONITOR PGLOADER.CATALOG:INDEX-OID PGLOADER.CATALOG:SQLTYPE-SOURCE-DEF PGLOADER.CATALOG:REGEX-MATCH-RULE PGLOADER.QUOTING:ENSURE-UNQUOTED PGLOADER.CITUS:CITUS-RULE-TABLE-NOT-FOUND PGLOADER.CATALOG:ADD-SCHEMA PGLOADER.CATALOG:EXTENSION-SCHEMA PGLOADER.STATE:STATE-DATA PGLOADER.MONITOR:UPDATE-STATS PGLOADER.CATALOG:TRIGGER PGLOADER.CATALOG:FKEY-TABLE PGLOADER.CATALOG:FKEY-INITIALLY-DEFERRED PGLOADER.CATALOG:SQLTYPE-TYPE PGLOADER.CATALOG:INDEX-FILTER PGLOADER.CATALOG:TABLE-LIST PGLOADER.CATALOG:FKEY-OID PGLOADER.CATALOG:TABLE-COLUMN-LIST PGLOADER.CATALOG:SCHEMA-SQLTYPE-LIST PGLOADER.CATALOG:TRIGGER-PROCEDURE PGLOADER.STATE:MAKE-PGSTATE PGLOADER.CATALOG:MAYBE-ADD-VIEW PGLOADER.CATALOG:MATCH-RULE-ARGS PGLOADER.MONITOR:WITH-MONITOR PGLOADER.CATALOG:MAKE-COLUMN PGLOADER.CATALOG:CITUS-DISTRIBUTED-RULE PGLOADER.CATALOG:SQLTYPE-EXTENSION PGLOADER.CATALOG:FORMAT-TABLE-NAME PGLOADER.CATALOG:STRING-MATCH-RULE PGLOADER.CATALOG:TABLE-STORAGE-PARAMETER-LIST PGLOADER.MONITOR:LOG-MESSAGE PGLOADER.CATALOG:EXTENSION-LIST PGLOADER.STATE:GET-STATE-SECTION PGLOADER.CATALOG:TRIGGER-P PGLOADER.CATALOG:SCHEMA-CATALOG PGLOADER.CATALOG:TABLE-SOURCE-NAME PGLOADER.CATALOG:MATVIEW-DEFINITION PGLOADER.CATALOG:SCHEMA-NAME PGLOADER.CATALOG:MAX-INDEXES-PER-TABLE PGLOADER.CATALOG:ADD-SQLTYPE PGLOADER.STATE:REPORT-RESULTS PGLOADER.STATE:REPORT-SUMMARY PGLOADER.CATALOG:ALTER-SCHEMA PGLOADER.QUOTING:ENSURE-QUOTED PGLOADER.STATE:PGSTATE-GET-LABEL PGLOADER.CATALOG:MAKE-CATALOG PGLOADER.QUOTING:BUILD-IDENTIFIER PGLOADER.CATALOG:TABLE-COMMENT PGLOADER.STATE:PGTABLE-INITIALIZE-REJECT-FILES PGLOADER.STATE:STATE-PRELOAD PGLOADER.CATALOG:TABLE-FIELD-LIST PGLOADER.CATALOG:CATALOG-SCHEMA-LIST PGLOADER.CATALOG:FIND-EXTENSION PGLOADER.STATE:MAKE-STATE PGLOADER.STATE:REPORT-FULL-SUMMARY PGLOADER.CATALOG:ADD-EXTENSION PGLOADER.CATALOG:MAKE-SCHEMA PGLOADER.CATALOG:MAKE-TRIGGER PGLOADER.CATALOG:CITUS-DISTRIBUTED-RULE-FROM PGLOADER.CATALOG:SQLTYPE-SCHEMA PGLOADER.CATALOG:COUNT-VIEWS PGLOADER.CATALOG:FIND-TABLE PGLOADER.CATALOG:PROCEDURE-LANGUAGE PGLOADER.CATALOG:MAKE-MATCH-RULE PGLOADER.CATALOG:SQLTYPE-EXTRA PGLOADER.CATALOG:CATALOG-NAME PGLOADER.CATALOG:COUNT-INDEXES PGLOADER.CATALOG:PROCEDURE-SCHEMA PGLOADER.CATALOG:INDEX-UNIQUE PGLOADER.MONITOR:*MONITORING-QUEUE* PGLOADER.CATALOG:TRIGGER-NAME PGLOADER.CATALOG:VIEW-LIST PGLOADER.CATALOG:FIND-SCHEMA PGLOADER.QUOTING:APPLY-IDENTIFIER-CASE PGLOADER.CATALOG:MATVIEW-SOURCE-NAME PGLOADER.STATE:PGTABLE-REJECT-LOGS PGLOADER.CATALOG:EXTENSION PGLOADER.CATALOG:COLUMN-EXTRA PGLOADER.CATALOG:COLUMN PGLOADER.CATALOG:MATVIEW-SCHEMA) See also: The ANSI Standard, Macro DEFPACKAGE The SBCL Manual, Variable *ON-PACKAGE-VARIANCE* ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/monkey/bind.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:METABANG.BIND) ; processing (DEFUN VAR-IGNORABLE-P ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/monkey/bind-tmpAG4HDK79.fasl ; compilation finished in 0:00:00.002 WARNING: redefining METABANG.BIND::VAR-IGNORABLE-P in DEFUN ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/monkey/mssql.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :MSSQL) ; processing (DEFCENUM %SYB-VALUE-TYPE ...) ; processing (DEFUN UNSIGNED-TO-SIGNED ...) ; processing (DEFUN SYSDB-DATA-TO-LISP ...) ; processing (DEFUN MAP-QUERY-RESULTS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/monkey/mssql-tmpTX55LUC3.fasl ; compilation finished in 0:00:00.028 WARNING: redefining MSSQL::SYSDB-DATA-TO-LISP in DEFUN ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/charsets.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.UTILS) ; processing (DEFPARAMETER *CCL-DESCRIBE-CHARACTER-ENCODINGS* ...) ; processing (DEFUN PARSE-CCL-ENCODINGS-DESC-FIRST-LINE ...) ; processing (DEFUN PARSE-CCL-ENCODINGS-DESC ...) ; processing (DEFUN LIST-ENCODINGS-AND-ALIASES ...) ; processing (DEFUN SHOW-ENCODINGS ...) ; processing (DEFUN MAKE-EXTERNAL-FORMAT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/charsets-tmpOFPBS7B8.fasl ; compilation finished in 0:00:00.014 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/logs.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.LOGS) ; processing (DEFCATEGORY :PANIC) ; processing (DEFCATEGORY :FATAL ...) ; processing (DEFCATEGORY :LOG ...) ; processing (DEFCATEGORY :ERROR ...) ; processing (DEFCATEGORY :WARNING ...) ; processing (DEFCATEGORY :NOTICE ...) ; processing (DEFCATEGORY :SQL ...) ; processing (DEFCATEGORY :INFO ...) ; processing (DEFCATEGORY :DEBUG ...) ; processing (DEFCATEGORY :DATA ...) ; processing (DEFVAR *LOG-MESSENGERS* ...) ; processing (DEFUN START-LOGGER ...) ; processing (DEFUN STOP-LOGGER ...) ; processing (DEFCONSTANT +NSEC+ ...) ; processing (DEFUN FRACTION-TO-NSECS ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/logs-tmpN94P6QHO.fasl ; compilation finished in 0:00:00.010 WARNING: redefining PRINT-OBJECT (# #) in DEFMETHOD ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/utils.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.UTILS) ; processing (DEFUN UNQUOTE ...) ; processing (DEFUN EXPAND-USER-HOMEDIR-PATHNAME ...) ; processing (DEFUN PRETTY-PRINT-BYTES ...) ; processing (DEFUN SPLIT-RANGE ...) ; processing (DEFUN DISTRIBUTE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/utils-tmp7PI54QD2.fasl ; compilation finished in 0:00:00.023 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/state.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.STATE) ; processing (DEFSTRUCT PGTABLE ...) ; processing (DEFSTRUCT PGSTATE ...) ; processing (DEFSTRUCT STATE ...) ; processing (DEFUN CREATE-STATE ...) ; processing (DEFUN GET-STATE-SECTION ...) ; processing (DEFUN RELATIVE-PATHNAME ...) ; processing (DEFUN REJECT-DATA-FILE ...) ; processing (DEFUN REJECT-LOG-FILE ...) ; processing (DEFMETHOD PGTABLE-INITIALIZE-REJECT-FILES ...) ; file: /build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/state.lisp ; in: DEFMETHOD PGTABLE-INITIALIZE-REJECT-FILES (PGTABLE T) ; (WITH-OPEN-FILE ; (PGLOADER.STATE::DATA PGLOADER.STATE::DATA-PATHNAME :DIRECTION :OUTPUT ; :IF-EXISTS :RENAME :IF-DOES-NOT-EXIST NIL) ; (DECLARE (IGNORE PGLOADER.STATE::DATA))) ; --> UNWIND-PROTECT FLET #:CLEANUP-FUN-6 BLOCK WHEN IF ; ==> ; PGLOADER.STATE::DATA ; ; caught STYLE-WARNING: ; reading an ignored variable: DATA ; --> UNWIND-PROTECT FLET #:CLEANUP-FUN-6 BLOCK WHEN IF CLOSE ; ==> ; PGLOADER.STATE::DATA ; ; caught STYLE-WARNING: ; reading an ignored variable: DATA ; (WITH-OPEN-FILE ; (PGLOADER.STATE::LOGS PGLOADER.STATE::LOGS-PATHNAME :DIRECTION :OUTPUT ; :IF-EXISTS :RENAME :IF-DOES-NOT-EXIST NIL) ; (DECLARE (IGNORE PGLOADER.STATE::LOGS))) ; --> UNWIND-PROTECT FLET #:CLEANUP-FUN-10 BLOCK WHEN IF ; ==> ; PGLOADER.STATE::LOGS ; ; caught STYLE-WARNING: ; reading an ignored variable: LOGS ; --> UNWIND-PROTECT FLET #:CLEANUP-FUN-10 BLOCK WHEN IF CLOSE ; ==> ; PGLOADER.STATE::LOGS ; ; caught STYLE-WARNING: ; reading an ignored variable: LOGS ; processing (DEFUN PGSTATE-GET-LABEL ...) ; processing (DEFUN PGSTATE-NEW-LABEL ...) ; file: /build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/state.lisp ; in: DEFUN PGSTATE-NEW-LABEL ; 'PGLOADER.CATALOG:TABLE ; ; note: can't open-code test of unknown type TABLE ; processing (DEFUN PGSTATE-SETF ...) ; processing (DEFUN PGSTATE-INCF ...) ; processing (DEFUN PGSTATE-DECF ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/state-tmp2KPVYDA8.fasl ; compilation finished in 0:00:00.105 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/transforms.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.TRANSFORMS) ; processing (DEFPACKAGE #:PGLOADER.USER-SYMBOLS ...) ; processing (DEFUN INTERN-SYMBOL ...) ; processing (DEFUN PARSE-COLUMN-TYPEMOD ...) ; processing (DEFUN TYPEMOD-EXPR-MATCHES-P ...) ; processing (DEFUN TYPEMOD-EXPR-TO-FUNCTION ...) ; processing (DECLAIM (INLINE INTERN-SYMBOL ...)) ; processing (DEFUN ZERO-DATES-TO-NULL ...) ; processing (DEFUN DATE-WITH-NO-SEPARATOR ...) ; processing (DEFUN TIME-WITH-NO-SEPARATOR ...) ; processing (DEFUN TINYINT-TO-BOOLEAN ...) ; processing (DEFUN BITS-TO-BOOLEAN ...) ; processing (DEFUN BITS-TO-HEX-BITSTRING ...) ; processing (DEFUN INT-TO-IP ...) ; processing (DEFUN IP-RANGE ...) ; processing (DEFUN CONVERT-MYSQL-POINT ...) ; processing (DEFUN CONVERT-MYSQL-LINESTRING ...) ; processing (DEFUN INTEGER-TO-STRING ...) ; processing (DEFUN FLOAT-TO-STRING ...) ; processing (DEFUN SET-TO-ENUM-ARRAY ...) ; processing (DEFUN EMPTY-STRING-TO-NULL ...) ; processing (DEFUN RIGHT-TRIM ...) ; processing (DEFUN REMOVE-NULL-CHARACTERS ...) ; processing (DEFUN BYTE-VECTOR-TO-BYTEA ...) ; processing (DEFUN ENSURE-PARSE-INTEGER ...) ; processing (DEFUN SQLITE-TIMESTAMP-TO-TIMESTAMP ...) ; processing (DEFMACRO ARR-TO-BYTES-REV ...) ; processing (DEFUN SQL-SERVER-UNIQUEIDENTIFIER-TO-UUID ...) ; processing (DEFUN UNIX-TIMESTAMP-TO-TIMESTAMPTZ ...) ; processing (DEFUN SQL-SERVER-BIT-TO-BOOLEAN ...) ; processing (DEFUN BYTE-VECTOR-TO-HEXSTRING ...) ; processing (DEFUN VARBINARY-TO-STRING ...) ; processing (DEFUN BASE64-DECODE ...) ; processing (DEFUN HEX-TO-DEC ...) ; processing (DEFUN LOGICAL-TO-BOOLEAN ...) ; processing (DEFUN DB3-TRIM-STRING ...) ; processing (DEFUN DB3-NUMERIC-TO-PGSQL-NUMERIC ...) ; processing (DEFUN DB3-NUMERIC-TO-PGSQL-INTEGER ...) ; processing (DEFUN DB3-DATE-TO-PGSQL-DATE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/transforms-tmp96FLK53O.fasl ; compilation finished in 0:00:00.151 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/read-sql-files.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.SQL) ; processing (DEFSTRUCT PARSER ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFMETHOD PUSH-NEW-TAG ...) ; processing (DEFMETHOD EXTEND-CURRENT-TAG ...) ; processing (DEFMETHOD FORMAT-CURRENT-TAG ...) ; processing (DEFMETHOD MAYBE-CLOSE-TAGS ...) ; processing (DEFMETHOD POP-CURRENT-TAG ...) ; processing (DEFMETHOD RESET-STATE ...) ; processing (DEFUN PARSE-QUERY ...) ; processing (DEFUN READ-LINES ...) ; processing (DEFUN READ-QUERIES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/read-sql-files-tmpVXGJXF6B.fasl ; compilation finished in 0:00:00.077 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/queries.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.QUERIES) ; processing (DEFPARAMETER *SRC* ...) ; processing (DEFUN LOAD-STATIC-FILE ...) ; processing (DEFUN PATHNAME-TO-URL ...) ; processing (DEFUN LOAD-STATIC-DIRECTORY ...) ; processing (DEFUN WALK-SOURCES-AND-BUILD-FS ...) ; processing (DEFPARAMETER *FS* ...) ; processing (DEFUN SQL ...) ; processing (DEFUN SQL-URL-FOR-VARIANT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/queries-tmp6TIYUV96.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/quoting.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.QUOTING) ; processing (DEFUN APPLY-IDENTIFIER-CASE ...) ; processing (DEFUN QUOTED-P ...) ; processing (DEFUN ENSURE-UNQUOTED ...) ; processing (DEFUN ENSURE-QUOTED ...) ; processing (DEFUN BUILD-IDENTIFIER ...) ; processing (DEFUN CAMELCASE-TO-COLNAME ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/quoting-tmpSE0QLD5B.fasl ; compilation finished in 0:00:00.015 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/catalog.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.CATALOG) ; processing (DEFMACRO PUSH-TO-END ...) ; processing (DEFGENERIC FORMAT-CREATE-SQL ...) ; processing (DEFGENERIC FORMAT-DROP-SQL ...) ; processing (DEFGENERIC FORMAT-DEFAULT-VALUE ...) ; processing (DEFSTRUCT CATALOG ...) ; processing (DEFSTRUCT SCHEMA ...) ; processing (DEFSTRUCT TABLE ...) ; file: /build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/catalog.lisp ; in: DEFSTRUCT TABLE ; (DEFSTRUCT PGLOADER.CATALOG:TABLE ; PGLOADER.CATALOG::SOURCE-NAME ; PGLOADER.CATALOG::NAME ; PGLOADER.CATALOG:SCHEMA ; PGLOADER.CATALOG::OID ; PGLOADER.CATALOG::COMMENT ; PGLOADER.CATALOG::STORAGE-PARAMETER-LIST ; PGLOADER.CATALOG::TABLESPACE ; (PGLOADER.CATALOG::ROW-COUNT-ESTIMATE 0 :TYPE FIXNUM) ; PGLOADER.CATALOG::FIELD-LIST ; PGLOADER.CATALOG::COLUMN-LIST ; ...) ; --> EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; #)) ; ; caught STYLE-WARNING: ; Previously compiled call to PGLOADER.CATALOG:TABLE-NAME could not be inlined ; because the structure definition for PGLOADER.CATALOG:TABLE was not yet seen. ; To avoid this warning, DEFSTRUCT should precede references to the affected ; functions, or they must be declared locally notinline at each call site. ; processing (DEFSTRUCT MATVIEW ...) ; processing (DEFSTRUCT EXTENSION ...) ; processing (DEFSTRUCT SQLTYPE ...) ; processing (DEFSTRUCT COLUMN ...) ; processing (DEFSTRUCT FKEY ...) ; processing (DEFSTRUCT INDEX ...) ; processing (DEFSTRUCT TRIGGER ...) ; processing (DEFSTRUCT PROCEDURE ...) ; processing (DEFGENERIC ADD-SCHEMA ...) ; processing (DEFGENERIC ADD-EXTENSION ...) ; processing (DEFGENERIC ADD-TABLE ...) ; processing (DEFGENERIC ADD-VIEW ...) ; processing (DEFGENERIC ADD-SQLTYPE ...) ; processing (DEFGENERIC ADD-COLUMN ...) ; processing (DEFGENERIC ADD-INDEX ...) ; processing (DEFGENERIC ADD-FKEY ...) ; processing (DEFGENERIC ADD-COMMENT ...) ; processing (DEFGENERIC EXTENSION-LIST ...) ; processing (DEFGENERIC TABLE-LIST ...) ; processing (DEFGENERIC VIEW-LIST ...) ; processing (DEFGENERIC FIND-SCHEMA ...) ; processing (DEFGENERIC FIND-EXTENSION ...) ; processing (DEFGENERIC FIND-TABLE ...) ; processing (DEFGENERIC FIND-VIEW ...) ; processing (DEFGENERIC FIND-INDEX ...) ; processing (DEFGENERIC FIND-FKEY ...) ; processing (DEFGENERIC MAYBE-ADD-SCHEMA ...) ; processing (DEFGENERIC MAYBE-ADD-EXTENSION ...) ; processing (DEFGENERIC MAYBE-ADD-TABLE ...) ; processing (DEFGENERIC MAYBE-ADD-VIEW ...) ; processing (DEFGENERIC MAYBE-ADD-INDEX ...) ; processing (DEFGENERIC MAYBE-ADD-FKEY ...) ; processing (DEFGENERIC COUNT-TABLES ...) ; processing (DEFGENERIC COUNT-VIEWS ...) ; processing (DEFGENERIC COUNT-INDEXES ...) ; processing (DEFGENERIC COUNT-FKEYS ...) ; processing (DEFGENERIC MAX-INDEXES-PER-TABLE ...) ; processing (DEFGENERIC CAST ...) ; processing (DEFGENERIC FIELD-NAME ...) ; processing (DEFMETHOD EXTENSION-LIST ...) ; processing (DEFMETHOD EXTENSION-LIST ...) ; processing (DEFMETHOD SQLTYPE-LIST ...) ; processing (DEFMETHOD SQLTYPE-LIST ...) ; processing (DEFMETHOD SQLTYPE-LIST ...) ; processing (DEFMETHOD SQLTYPE-LIST ...) ; processing (DEFMETHOD TABLE-LIST ...) ; processing (DEFMETHOD TABLE-LIST ...) ; processing (DEFMETHOD VIEW-LIST ...) ; processing (DEFMETHOD VIEW-LIST ...) ; processing (DEFUN CREATE-TABLE ...) ; processing (DEFMETHOD ADD-SCHEMA ...) ; processing (DEFMETHOD ADD-EXTENSION ...) ; processing (DEFMETHOD ADD-SQLTYPE ...) ; processing (DEFMETHOD ADD-TABLE ...) ; processing (DEFMETHOD ADD-VIEW ...) ; processing (DEFMETHOD FIND-SCHEMA ...) ; processing (DEFMETHOD FIND-EXTENSION ...) ; processing (DEFMETHOD FIND-TABLE ...) ; processing (DEFMETHOD FIND-VIEW ...) ; processing (DEFMETHOD MAYBE-ADD-SCHEMA ...) ; processing (DEFMETHOD MAYBE-ADD-EXTENSION ...) ; processing (DEFMETHOD MAYBE-ADD-TABLE ...) ; processing (DEFMETHOD MAYBE-ADD-VIEW ...) ; processing (DEFMETHOD ADD-FIELD ...) ; processing (DEFMETHOD ADD-COLUMN ...) ; processing (DEFMETHOD ADD-COLUMN ...) ; processing (DEFMETHOD CAST ...) ; processing (DEFMETHOD CAST ...) ; processing (DEFMETHOD CAST ...) ; processing (DEFMETHOD FIELD-NAME ...) ; processing (DEFMETHOD ADD-INDEX ...) ; processing (DEFMETHOD FIND-INDEX ...) ; processing (DEFMETHOD MAYBE-ADD-INDEX ...) ; processing (DEFMETHOD ADD-FKEY ...) ; processing (DEFMETHOD FIND-FKEY ...) ; processing (DEFMETHOD MAYBE-ADD-FKEY ...) ; processing (DEFMETHOD COUNT-TABLES ...) ; processing (DEFMETHOD COUNT-TABLES ...) ; processing (DEFMETHOD COUNT-VIEWS ...) ; processing (DEFMETHOD COUNT-VIEWS ...) ; processing (DEFMETHOD COUNT-INDEXES ...) ; processing (DEFMETHOD COUNT-INDEXES ...) ; processing (DEFMETHOD COUNT-INDEXES ...) ; processing (DEFMETHOD COUNT-FKEYS ...) ; processing (DEFMETHOD COUNT-FKEYS ...) ; processing (DEFMETHOD COUNT-FKEYS ...) ; processing (DEFMETHOD MAX-INDEXES-PER-TABLE ...) ; processing "Count how many indexes maximum per table are listed in SCHEMA." ; processing (DEFMETHOD MAX-INDEXES-PER-TABLE ...) ; processing (DEFGENERIC FORMAT-TABLE-NAME ...) ; processing (DEFMETHOD FORMAT-TABLE-NAME ...) ; processing (DEFMACRO WITH-SCHEMA ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/catalog-tmp65JBUOWY.fasl ; compilation finished in 0:00:00.326 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/alter-table.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.CATALOG) ; processing (DEFSTRUCT STRING-MATCH-RULE ...) ; processing (DEFSTRUCT REGEX-MATCH-RULE ...) ; processing (DEFGENERIC MATCHES ...) ; processing (DEFSTRUCT MATCH-RULE ...) ; processing (DEFGENERIC ALTER-TABLE ...) ; processing (DEFMETHOD ALTER-TABLE ...) ; processing (DEFMETHOD ALTER-TABLE ...) ; processing (DEFMETHOD ALTER-TABLE ...) ; processing (DEFUN ALTER-TABLE-SET-SCHEMA ...) ; processing (DEFUN ALTER-TABLE-RENAME ...) ; processing (DEFUN ALTER-TABLE-SET-STORAGE-PARAMETERS ...) ; processing (DEFUN ALTER-TABLE-SET-TABLESPACE ...) ; processing (DEFGENERIC RULE-MATCHES ...) ; processing (DEFMETHOD RULE-MATCHES ...) ; processing (DEFMETHOD RULE-MATCHES ...) ; processing (DEFGENERIC ALTER-SCHEMA ...) ; processing (DEFMETHOD ALTER-SCHEMA ...) ; processing (DEFMETHOD ALTER-SCHEMA ...) ; processing (DEFUN ALTER-SCHEMA-RENAME ...) ; processing (DEFUN RESET-SQL-DEFINITIONS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/alter-table-tmpE8RY5GCJ.fasl ; compilation finished in 0:00:00.039 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/citus.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.CITUS) ; processing (DEFSTRUCT CITUS-REFERENCE-RULE ...) ; processing (DEFSTRUCT CITUS-DISTRIBUTED-RULE ...) ; processing (DEFUN CITUS-DISTRIBUTE-SCHEMA ...) ; processing (DEFINE-CONDITION CITUS-RULE-TABLE-NOT-FOUND ...) ; processing (DEFUN CITUS-FIND-TABLE ...) ; processing (DEFGENERIC CITUS-RULE-TABLE ...) ; processing (DEFGENERIC CITUS-SET-TABLE ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFGENERIC COMPUTE-FOREIGN-RULES ...) ; processing (DEFMETHOD COMPUTE-FOREIGN-RULES ...) ; processing (DEFMETHOD COMPUTE-FOREIGN-RULES ...) ; processing (DEFUN MAKE-DISTRIBUTED-TABLE-FROM-FKEY ...) ; processing (DEFINE-CONDITION CITUS-RULE-IS-MISSING-FROM-LIST ...) ; processing (DEFGENERIC APPLY-CITUS-RULE ...) ; processing (DEFMETHOD APPLY-CITUS-RULE ...) ; processing (DEFMETHOD APPLY-CITUS-RULE ...) ; processing (DEFUN ADD-COLUMN-TO-PKEY ...) ; processing (DEFUN FORMAT-CITUS-JOIN-CLAUSE ...) ; processing (DEFUN CITUS-FORMAT-SQL-SELECT ...) ; processing (DEFUN CITUS-BACKFILL-TABLE-P ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/citus-tmpK6B9YU0C.fasl ; compilation finished in 0:00:00.062 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/reject.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.MONITOR) ; processing (DEFUN %PROCESS-BAD-ROW ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/reject-tmp6RAYVCZW.fasl ; compilation finished in 0:00:00.003 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/pretty-print-state.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.STATE) ; processing (DEFSTRUCT PRINT-FORMAT) ; processing (DEFSTRUCT (PRINT-FORMAT-HUMAN-READABLE # ...) ...) ; processing (DEFSTRUCT (PRINT-FORMAT-TEXT #)) ; processing (DEFSTRUCT (PRINT-FORMAT-VERBOSE #)) ; processing (DEFSTRUCT (PRINT-FORMAT-TAB #)) ; processing (DEFSTRUCT (PRINT-FORMAT-CSV #)) ; processing (DEFSTRUCT (PRINT-FORMAT-COPY #)) ; processing (DEFSTRUCT (PRINT-FORMAT-JSON #)) ; processing (DEFGENERIC PRETTY-PRINT ...) ; processing (DEFMETHOD PRETTY-PRINT ...) ; processing (DEFMETHOD PRETTY-PRINT ...) ; processing (DEFMETHOD PRETTY-PRINT ...) ; processing (DEFMETHOD PRETTY-PRINT ...) ; processing (DEFMETHOD PRETTY-PRINT ...) ; processing (DEFMETHOD PRETTY-PRINT ...) ; processing (DEFMETHOD PRETTY-PRINT ...) ; processing (DEFMETHOD PRETTY-PRINT ...) ; processing (DEFMETHOD PRETTY-PRINT ...) ; processing (DEFMETHOD PRETTY-PRINT ...) ; processing (DEFMETHOD PRETTY-PRINT ...) ; processing (DEFUN FORMAT-INTERVAL-GUESS ...) ; processing (DEFMACRO DEFINE-YASON-ENCODER ...) ; processing (DEFINE-YASON-ENCODER #) ; processing (DEFINE-YASON-ENCODER #) ; processing (DEFMETHOD YASON:ENCODE ...) ; processing (DEFMETHOD YASON:ENCODE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/pretty-print-state-tmpA61ZVGEL.fasl ; compilation finished in 0:00:00.115 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/report.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.STATE) ; processing (DEFUN FORMAT-INTERVAL ...) ; processing (DEFUN PARSE-SUMMARY-TYPE ...) ; processing (DEFUN MAX-LENGTH-TABLE-NAME ...) ; processing (DEFUN REPORT-FULL-SUMMARY ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/report-tmp4RW61Z3D.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/monitor.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.MONITOR) ; processing (DEFVAR *MONITORING-KERNEL* ...) ; processing (DEFVAR *MONITORING-QUEUE* ...) ; processing (DEFVAR *MONITORING-CHANNEL* ...) ; processing (DEFVAR *SECTIONS* ...) ; processing (DEFSTRUCT START ...) ; processing (DEFSTRUCT STOP ...) ; processing (DEFSTRUCT REPORT-SUMMARY ...) ; processing (DEFSTRUCT LOG-MESSAGE ...) ; processing (DEFSTRUCT NEW-LABEL ...) ; processing (DEFSTRUCT UPDATE-STATS ...) ; processing (DEFSTRUCT BAD-ROW ...) ; processing (DEFINE-CONDITION MONITOR-ERROR ...) ; processing (DEFMACRO LOG-MESSAGE ...) ; processing (DEFUN SEND-LOG-MESSAGE ...) ; processing (DEFUN NEW-LABEL ...) ; processing (DEFUN UPDATE-STATS ...) ; processing (DEFUN PROCESS-BAD-ROW ...) ; processing (DEFUN FLUSH-SUMMARY ...) ; processing (DEFMACRO WITH-STATS-COLLECTION ...) ; processing (DEFUN SEND-EVENT ...) ; processing (DEFUN START-MONITOR ...) ; processing (DEFUN STOP-MONITOR ...) ; processing (DEFUN CALL-WITH-MONITOR ...) ; processing (DEFMACRO WITH-MONITOR ...) ; processing (DEFUN MONITOR ...) ; processing (DEFUN PROCESS-UPDATE-STATS-START-EVENT ...) ; processing (DEFUN PROCESS-UPDATE-STATS-STOP-EVENT ...) ; processing (DEFUN MAYBE-LOG-PROGRESS-MESSAGE ...) ; processing (DEFUN REPORT-CURRENT-SUMMARY ...) ; processing (DEFUN ELAPSED-TIME-SINCE ...) ; processing (DEFMACRO TIMING ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/monitor-tmpLUSCH4I7.fasl ; compilation finished in 0:00:00.096 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/threads.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.UTILS) ; processing (DEFUN MAKE-KERNEL ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/threads-tmp7IXFX52H.fasl ; compilation finished in 0:00:00.004 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/archive.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.ARCHIVE) ; processing (DEFPARAMETER *SUPPORTED-ARCHIVE-TYPES* ...) ; processing (DEFPARAMETER *HTTP-BUFFER-SIZE* ...) ; processing (DEFUN ARCHIVEP ...) ; processing (DEFUN HTTP-FETCH-FILE ...) ; processing (DEFUN ARCHIVE-TYPE ...) ; processing (DEFUN UNZIP ...) ; processing (DEFUN GUNZIP ...) ; processing (DEFUN UNTAR ...) ; processing (DEFUN EXPAND-ARCHIVE ...) ; processing (DEFUN GET-MATCHING-FILENAMES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/archive-tmp2R82LQR0.fasl ; compilation finished in 0:00:00.030 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/connection.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.CONNECTION) ; processing (DEFCLASS CONNECTION ...) ; processing (DEFINE-CONDITION CONNECTION-ERROR ...) ; processing (DEFGENERIC OPEN-CONNECTION ...) ; processing (DEFGENERIC CLOSE-CONNECTION ...) ; processing (DEFGENERIC CHECK-CONNECTION ...) ; processing (DEFGENERIC CLONE-CONNECTION ...) ; processing (DEFCLASS FD-CONNECTION ...) ; processing (DEFMETHOD CLONE-CONNECTION ...) ; processing (DEFINE-CONDITION FD-CONNECTION-ERROR ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFGENERIC FETCH-FILE ...) ; processing (DEFGENERIC EXPAND ...) ; processing (DEFMETHOD EXPAND ...) ; processing (DEFMETHOD FETCH-FILE ...) ; processing (DEFCLASS DB-CONNECTION ...) ; processing (DEFMETHOD CLONE-CONNECTION ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFINE-CONDITION DB-CONNECTION-ERROR ...) ; processing (DEFGENERIC QUERY ...) ; processing (DEFMACRO WITH-CONNECTION ...) ; processing (DEFMETHOD CHECK-CONNECTION ...) ; processing (DEFMETHOD CHECK-CONNECTION ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/utils/connection-tmpN3B5JWXT.fasl ; compilation finished in 0:00:00.036 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/pgsql/connection.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PGSQL) ; processing (DEFPARAMETER *PGCONN-VARIANT* ...) ; processing (DEFCLASS PGSQL-CONNECTION ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD CLONE-CONNECTION ...) ; processing (DEFMETHOD SSL-ENABLE-P ...) ; processing (DEFUN NEW-PGSQL-CONNECTION ...) ; processing (DEFVAR *PGSQL-CLIENT-CERTIFICATE* ...) ; processing (DEFVAR *PGSQL-CLIENT-KEY* ...) ; processing (DEFTYPE POSTGRESQL-RETRYABLE ...) ; processing (DEFTYPE POSTGRESQL-UNAVAILABLE ...) ; processing (CL-POSTGRES-ERROR::DEFERROR "53300" ...) ; processing (CL-POSTGRES-ERROR::DEFERROR "53400" ...) ; processing (DEFVAR *RETRY-CONNECT-TIMES* ...) ; processing (DEFVAR *RETRY-CONNECT-DELAY* ...) ; processing (DEFMETHOD OPEN-CONNECTION ...) ; processing (DEFMETHOD CLOSE-CONNECTION ...) ; processing (DEFMETHOD QUERY ...) ; processing (DEFMETHOD QUERY ...) ; processing (DEFMACRO HANDLING-PGSQL-NOTICES ...) ; processing (DEFMACRO WITH-PGSQL-TRANSACTION ...) ; processing (DEFMACRO WITH-PGSQL-CONNECTION ...) ; processing (DEFUN GET-UNIX-SOCKET-DIR ...) ; processing (DEFUN SET-SESSION-GUCS ...) ; processing (DEFUN SANITIZE-USER-GUCS ...) ; processing (DEFUN PGSQL-CONNECT-AND-EXECUTE-WITH-TIMING ...) ; processing (DEFUN PGSQL-EXECUTE-WITH-TIMING ...) ; processing (DEFUN PGSQL-EXECUTE ...) ; processing (DEFUN SET-POSTGRESQL-VERSION ...) ; processing (DEFUN PARSE-POSTGRESQL-VERSION-NUMBER ...) ; processing (DEFUN PARSE-POSTGRESQL-VERSION-VARIANT ...) ; processing (DEFUN PARSE-POSTGRESQL-VERSION-STRING ...) ; processing (DEFVAR *TEST/VERSIONS* ...) ; processing (DEFUN TEST/PARSE-POSTGRESQL-VERSION-STRING ...) ; processing (DEFUN LIST-TYPENAMES-WITHOUT-BTREE-SUPPORT ...) ; processing (DEFVAR *REDSHIFT-RESERVED-KEYWORDS* ...) ; processing (DEFUN LIST-RESERVED-KEYWORDS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/pgsql/connection-tmp5K3D12M0.fasl ; compilation finished in 0:00:00.077 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/pgsql/pgsql-ddl.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PGSQL) ; processing (DEFMETHOD FORMAT-CREATE-SQL ...) ; processing (DEFMETHOD FORMAT-DROP-SQL ...) ; processing (DEFMETHOD FORMAT-CREATE-SQL ...) ; processing (DEFMETHOD FORMAT-DROP-SQL ...) ; processing (DEFMETHOD FORMAT-CREATE-SQL ...) ; processing (DEFMETHOD FORMAT-DROP-SQL ...) ; processing (DEFMETHOD FORMAT-CREATE-SQL ...) ; processing (DEFMETHOD FORMAT-DROP-SQL ...) ; processing (DEFUN GET-COLUMN-TYPE-NAME-FROM-SQLTYPE ...) ; processing (DEFMETHOD FORMAT-CREATE-SQL ...) ; processing (DEFVAR *PGSQL-DEFAULT-VALUES* ...) ; processing (DEFMETHOD FORMAT-DEFAULT-VALUE ...) ; processing (DEFMETHOD FORMAT-CREATE-SQL ...) ; processing (DEFMETHOD FORMAT-DROP-SQL ...) ; processing (DEFUN INDEX-ACCESS-METHOD ...) ; file: /build/pgloader-JXcgv0/pgloader-3.6.3/src/pgsql/pgsql-ddl.lisp ; in: DEFUN INDEX-ACCESS-METHOD ; (VALUES) ; ; note: deleting unreachable code ; processing (DEFMETHOD FORMAT-CREATE-SQL ...) ; processing (DEFMETHOD FORMAT-DROP-SQL ...) ; processing (DEFMETHOD FORMAT-CREATE-SQL ...) ; processing (DEFMETHOD FORMAT-DROP-SQL ...) ; processing (DEFMETHOD FORMAT-CREATE-SQL ...) ; processing (DEFMETHOD FORMAT-DROP-SQL ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/pgsql/pgsql-ddl-tmpYZS9ORGN.fasl ; compilation finished in 0:00:00.094 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/pgsql/pgsql-ddl-citus.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PGSQL) ; processing (DEFMETHOD FORMAT-CREATE-SQL ...) ; processing (DEFMETHOD FORMAT-CREATE-SQL ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/pgsql/pgsql-ddl-citus-tmpKA4LL4BN.fasl ; compilation finished in 0:00:00.006 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/pgsql/pgsql-schema.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PGSQL) ; processing (DEFUN FETCH-PGSQL-CATALOG ...) ; processing (DEFUN MAKE-INCLUDING-EXPR-FROM-CATALOG ...) ; processing (DEFUN MAKE-INCLUDING-EXPR-FROM-TABLE ...) ; processing (DEFUN FORMAT-TABLE-NAME-AS-INCLUDING-EXP ...) ; processing (DEFUN QUERY-TABLE-SCHEMA ...) ; processing (DEFUN MAKE-INCLUDING-EXPR-FROM-VIEW-NAMES ...) ; processing (DEFVAR *TABLE-TYPE* ...) ; processing (DEFUN FILTER-LIST-TO-WHERE-CLAUSE ...) ; processing (DEFUN NORMALIZE-EXTRA ...) ; processing (DEFUN LIST-ALL-COLUMNS ...) ; processing (DEFUN LIST-ALL-INDEXES ...) ; processing (DEFUN LIST-ALL-FKEYS ...) ; processing (DEFUN LIST-MISSING-FK-DEPS ...) ; processing (DEFUN LIST-SCHEMAS ...) ; processing (DEFUN LIST-SEARCH-PATH ...) ; processing (DEFUN GET-CURRENT-DATABASE ...) ; processing (DEFUN LIST-TABLE-OIDS ...) ; processing (DEFUN LIST-ALL-SQLTYPES ...) ; processing (DEFUN PARSE-INDEX-COLUMN-NAMES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/pgsql/pgsql-schema-tmpKRR1J698.fasl ; compilation finished in 0:00:00.061 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/pgsql/merge-catalogs.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PGSQL) ; processing (DEFUN MERGE-CATALOGS ...) ; processing (DEFUN CHECK-TABLE-COLUMNS ...) ; processing (DEFVAR *TYPE-NAME-MAPPING* ...) ; processing (DEFUN GET-TYPE-NAME ...) ; processing (DEFUN SAME-TYPE-P ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/pgsql/merge-catalogs-tmp570ISN87.fasl ; compilation finished in 0:00:00.011 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/pgsql/pgsql-trigger.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.PGSQL) ; processing (DEFVAR *PGSQL-TRIGGERS-PROCEDURES* ...) ; processing (DEFUN BUILD-TRIGGER ...) ; processing (DEFUN PROCESS-TRIGGERS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/pgsql/pgsql-trigger-tmpIPPJG5IK.fasl ; compilation finished in 0:00:00.010 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/pgsql/pgsql-index-filter.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.PGSQL) ; processing (DEFGENERIC TRANSLATE-INDEX-FILTER ...) ; processing (DEFMETHOD TRANSLATE-INDEX-FILTER ...) ; processing (DEFGENERIC PROCESS-INDEX-DEFINITIONS ...) ; processing (DEFMETHOD PROCESS-INDEX-DEFINITIONS ...) ; processing (DEFMETHOD PROCESS-INDEX-DEFINITIONS ...) ; processing (DEFMETHOD PROCESS-INDEX-DEFINITIONS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/pgsql/pgsql-index-filter-tmpCY2HPI62.fasl ; compilation finished in 0:00:00.013 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/pgsql/pgsql-finalize-catalogs.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.PGSQL) ; processing (DEFUN FINALIZE-CATALOGS ...) ; processing (DEFGENERIC ADJUST-DATA-TYPES ...) ; processing (DEFMETHOD ADJUST-DATA-TYPES ...) ; processing (DEFVAR *REDSHIFT-SUPPORTED-DATA-TYPES* ...) ; processing (DEFVAR *REDSHIFT-DECIMAL-MAX-PRECISION* ...) ; processing (DEFVAR *REDSHIFT-VARCHAR-MAX-PRECISION* ...) ; processing (DEFMETHOD ADJUST-DATA-TYPES ...) ; processing (DEFGENERIC DUMB-DOWN-DATA-TYPES-FOR-REDSHIFT ...) ; processing (DEFMETHOD DUMB-DOWN-DATA-TYPES-FOR-REDSHIFT ...) ; processing (DEFMETHOD DUMB-DOWN-DATA-TYPES-FOR-REDSHIFT ...) ; processing (DEFMETHOD DUMB-DOWN-DATA-TYPES-FOR-REDSHIFT ...) ; processing (DEFMETHOD DUMB-DOWN-DATA-TYPES-FOR-REDSHIFT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/pgsql/pgsql-finalize-catalogs-tmpL4PLYSMQ.fasl ; compilation finished in 0:00:00.019 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/pgsql/pgsql-create-schema.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.PGSQL) ; processing (DEFUN CREATE-SQLTYPES ...) ; processing (DEFUN CREATE-TABLE-SQL-LIST ...) ; processing (DEFUN CREATE-TABLE-LIST ...) ; processing (DEFUN CREATE-SCHEMAS ...) ; processing (DEFUN ADD-TO-SEARCH-PATH ...) ; processing (DEFUN CREATE-EXTENSIONS ...) ; processing (DEFUN CREATE-TABLES ...) ; processing (DEFUN CREATE-VIEWS ...) ; processing (DEFUN CREATE-TRIGGERS ...) ; processing (DEFUN TRUNCATE-TABLES ...) ; processing (DEFUN DISABLE-TRIGGERS ...) ; processing (DEFUN ENABLE-TRIGGERS ...) ; processing (DEFMACRO WITH-DISABLED-TRIGGERS ...) ; processing (DEFUN DROP-PGSQL-FKEYS ...) ; processing (DEFUN CREATE-PGSQL-FKEYS ...) ; processing (DEFUN CREATE-INDEXES-IN-KERNEL ...) ; processing (DEFUN SET-TABLE-OIDS ...) ; processing (DEFUN DROP-INDEXES ...) ; processing (DEFUN MAYBE-DROP-INDEXES ...) ; processing (DEFUN CREATE-INDEXES-AGAIN ...) ; processing (DEFUN RESET-SEQUENCES ...) ; processing (DEFUN COMMENT-ON-TABLES-AND-COLUMNS ...) ; processing (DEFUN CREATE-DISTRIBUTED-TABLE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/pgsql/pgsql-create-schema-tmp90WIGG8R.fasl ; compilation finished in 0:00:00.096 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/common/api.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCES) ; processing (DEFCLASS COPY ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFGENERIC CONCURRENCY-SUPPORT ...) ; processing (DEFGENERIC MAP-ROWS ...) ; processing (DEFGENERIC PROPROCESS-ROW ...) ; processing (DEFGENERIC QUEUE-RAW-DATA ...) ; processing (DEFGENERIC DATA-IS-PREFORMATTED-P ...) ; processing (DEFGENERIC COPY-COLUMN-LIST ...) ; processing (DEFCLASS MD-COPY ...) ; processing (DEFGENERIC PARSE-HEADER ...) ; processing (DEFGENERIC PROCESS-ROWS ...) ; processing (DEFGENERIC CLONE-COPY-FOR ...) ; processing (DEFCLASS DB-COPY ...) ; processing (DEFGENERIC FETCH-METADATA ...) ; processing (DEFGENERIC CLEANUP ...) ; processing (DEFGENERIC INSTANCIATE-TABLE-COPY-OBJECT ...) ; processing (DEFGENERIC FILTER-LIST-TO-WHERE-CLAUSE ...) ; processing (DEFGENERIC FETCH-COLUMNS ...) ; processing (DEFGENERIC FETCH-INDEXES ...) ; processing (DEFGENERIC FETCH-FOREIGN-KEYS ...) ; processing (DEFGENERIC FETCH-TABLE-ROW-COUNT ...) ; processing (DEFGENERIC FETCH-COMMENTS ...) ; processing (DEFGENERIC GET-COLUMN-SQL-EXPRESSION ...) ; processing (DEFGENERIC GET-COLUMN-LIST ...) ; processing (DEFGENERIC FORMAT-MATVIEW-NAME ...) ; processing (DEFGENERIC CREATE-MATVIEWS ...) ; processing (DEFGENERIC DROP-MATVIEWS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/common/api-tmpPHN42PM1.fasl ; compilation finished in 0:00:00.006 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/common/methods.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.SOURCES) ; processing (DEFMETHOD DATA-IS-PREFORMATTED-P ...) ; processing (DEFMETHOD PREPROCESS-ROW ...) ; processing (DEFMETHOD COPY-COLUMN-LIST ...) ; processing (DEFMETHOD CLEANUP ...) ; processing (DEFMETHOD INSTANCIATE-TABLE-COPY-OBJECT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/common/methods-tmpFXGWJOII.fasl ; compilation finished in 0:00:00.009 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/common/md-methods.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.SOURCES) ; processing (DEFMETHOD PARSE-HEADER ...) ; processing (DEFMETHOD PREPROCESS-ROW ...) ; processing (DEFMETHOD COPY-COLUMN-LIST ...) ; processing (DEFMETHOD CLONE-COPY-FOR ...) ; processing (DEFMETHOD MAP-ROWS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/common/md-methods-tmp61U154E8.fasl ; compilation finished in 0:00:00.017 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/common/matviews.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCES) ; processing (DEFMETHOD FORMAT-MATVIEW-NAME ...) ; processing (DEFMETHOD CREATE-MATVIEWS ...) ; processing (DEFMETHOD DROP-MATVIEWS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/common/matviews-tmpJL840EJB.fasl ; compilation finished in 0:00:00.010 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/common/casting-rules.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.SOURCES) ; processing (DEFVAR *DEFAULT-CAST-RULES* ...) ; processing (DEFVAR *CAST-RULES* ...) ; processing (DEFUN PARSE-COLUMN-UNSIGNED ...) ; processing (DEFUN CAST-RULE-MATCHES ...) ; processing (DEFUN MAKE-PGSQL-TYPE ...) ; processing (DEFUN APPLY-CASTING-RULES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/common/casting-rules-tmpP6WT67MY.fasl ; compilation finished in 0:00:00.019 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/common/files-and-pathnames.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.SOURCES) ; processing (DEFCLASS MD-CONNECTION ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFMETHOD EXPAND ...) ; processing (DEFMETHOD FETCH-FILE ...) ; processing (DEFGENERIC EXPAND-SPEC ...) ; processing (DEFMETHOD EXPAND-SPEC ...) ; processing (DEFMETHOD OPEN-CONNECTION ...) ; processing (DEFMETHOD CLOSE-CONNECTION ...) ; processing (DEFUN GET-PATHNAME ...) ; processing (DEFUN FILTER-DIRECTORY ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/common/files-and-pathnames-tmpHKLMC92Z.fasl ; compilation finished in 0:00:00.022 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/common/project-fields.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.SOURCES) ; processing (DEFUN PROJECT-FIELDS ...) ; file: /build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/common/project-fields.lisp ; in: DEFUN PROJECT-FIELDS ; (DEFUN PGLOADER.SOURCES:PROJECT-FIELDS ; (&KEY PGLOADER.SOURCES:FIELDS PGLOADER.SOURCES:COLUMNS (COMPILE T)) ; #<(SIMPLE-ARRAY CHARACTER ; (398)) The simplest projection happens when both FIELDS and COLS are nil: in ; this case the projection is an identity, we simply return what we got. ; ; Other forms of projections consist of forming column... {1011C40CDF}> ; (LABELS ((PGLOADER.SOURCES::NULL-AS-PROCESSING-FN ; (PGLOADER.SOURCES::NULL-AS) ; "return a lambda form that will process a value given NULL-AS." ; (IF # ; # ; #)) ; (PGLOADER.SOURCES::FIELD-NAME-AS-SYMBOL ; (PGLOADER.SOURCES::FIELD-NAME-OR-LIST) ; "we need to deal with symbols as we generate code" ; (TYPECASE PGLOADER.SOURCES::FIELD-NAME-OR-LIST # #)) ; (PGLOADER.SOURCES::PROCESS-FIELD ; (PGLOADER.SOURCES::FIELD-NAME-OR-LIST) ; "Given a field entry, return a function dealing with nulls for it" ; (DESTRUCTURING-BIND # # #))) ; (LET* ((PGLOADER.SOURCES::PROJECTION #)) ; (IF COMPILE ; (COMPILE NIL PGLOADER.SOURCES::PROJECTION) ; PGLOADER.SOURCES::PROJECTION)))) ; ==> ; (SB-IMPL::%DEFUN 'PGLOADER.SOURCES:PROJECT-FIELDS ; (SB-INT:NAMED-LAMBDA PGLOADER.SOURCES:PROJECT-FIELDS ; (&KEY PGLOADER.SOURCES:FIELDS PGLOADER.SOURCES:COLUMNS ; (COMPILE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (398)) The simplest projection happens when both FIELDS and COLS are nil: in ; this case the projection is an identity, we simply return what we got. ; ; Other forms of projections consist of forming column... {1011C40CDF}> ; (BLOCK PGLOADER.SOURCES:PROJECT-FIELDS ; (LABELS (# # #) ; (LET* # ; #))))) ; ; caught STYLE-WARNING: ; Call to PGLOADER.TRANSFORMS:INTERN-SYMBOL could not be inlined because its ; source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation ; must be in effect to save function definitions for inlining. ; processing (DEFUN REFORMAT-THEN-PROCESS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/common/project-fields-tmpI2PYUEMW.fasl ; compilation finished in 0:00:00.020 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/csv/csv-guess.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.SOURCE.CSV) ; processing (DEFPARAMETER *SEPARATORS* ...) ; processing (DEFPARAMETER *ESCAPE-QUOTES* ...) ; processing (DEFUN GET-FILE-SAMPLE ...) ; processing (DEFUN GET-STREAM-SAMPLE ...) ; processing (DEFUN TRY-CSV-PARAMS ...) ; processing (DEFUN GUESS-CSV-PARAMS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/csv/csv-guess-tmpOKTALX52.fasl ; compilation finished in 0:00:00.017 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/csv/csv.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.CSV) ; processing (DEFCLASS CSV-CONNECTION ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFCLASS COPY-CSV ...) ; processing (DEFMETHOD CLONE-COPY-FOR ...) ; processing (DEFMETHOD PARSE-HEADER ...) ; processing (DEFMETHOD PROCESS-ROWS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/csv/csv-tmpGJIHCBMO.fasl ; compilation finished in 0:00:00.023 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/fixed/fixed-guess.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.FIXED) ; processing (DEFGENERIC GET-FIRST-LINES ...) ; processing (DEFUN GUESS-FIXED-SPECS-FROM-HEADER ...) ; processing (DEFUN GUESS-FIXED-SPECS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/fixed/fixed-guess-tmp59XTDCD6.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/fixed/fixed.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.FIXED) ; processing (DEFCLASS FIXED-CONNECTION ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFCLASS COPY-FIXED ...) ; processing (DEFMETHOD CLONE-COPY-FOR ...) ; processing (DEFMETHOD PARSE-HEADER ...) ; processing (DECLAIM (INLINE PARSE-ROW)) ; file: /build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/fixed/fixed.lisp ; in: DECLAIM (INLINE PARSE-ROW) ; (DECLAIM (INLINE PGLOADER.SOURCE.FIXED::PARSE-ROW)) ; ==> ; (SB-C::%PROCLAIM '(INLINE PGLOADER.SOURCE.FIXED::PARSE-ROW) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; Proclaiming PGLOADER.SOURCE.FIXED::PARSE-ROW to be INLINE, but 1 call to it was ; previously compiled. A declaration of NOTINLINE at the call site will eliminate ; this warning, as will proclaiming and defining the function before its first ; potential use. ; processing (DEFUN PARSE-ROW ...) ; processing (DEFMETHOD PROCESS-ROWS ...) ; file: /build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/fixed/fixed.lisp ; in: DEFMETHOD PROCESS-ROWS (COPY-FIXED T T) ; (PGLOADER.SOURCE.FIXED::PARSE-ROW PGLOADER.SOURCE.FIXED::FIXED-COLS-SPECS ; PGLOADER.SOURCE.FIXED::LINE) ; ; caught STYLE-WARNING: ; This is not a NUMBER: ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/fixed/fixed-tmp1Z52HZRL.fasl ; compilation finished in 0:00:00.029 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/copy.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.COPY) ; processing (DEFCLASS COPY-CONNECTION ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFCLASS COPY-COPY ...) ; processing (DEFMETHOD CLONE-COPY-FOR ...) ; processing (DECLAIM (INLINE PARSE-ROW)) ; processing (DEFUN PARSE-ROW ...) ; processing (DEFMETHOD PROCESS-ROWS ...) ; processing (DEFMETHOD DATA-IS-PREFORMATTED-P ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/copy-tmp24DFEJ91.fasl ; compilation finished in 0:00:00.038 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/db3/db3-cast-rules.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.DB3) ; processing (DEFPARAMETER *DB3-DEFAULT-CAST-RULES* ...) ; processing (DEFSTRUCT (DB3-COLDEF #) ...) ; processing (DEFMETHOD CAST ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/db3/db3-cast-rules-tmpIGJ98JSU.fasl ; compilation finished in 0:00:00.013 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/db3/db3-connection.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.DB3) ; processing (DEFCLASS DBF-CONNECTION ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD OPEN-CONNECTION ...) ; processing (DEFMETHOD CLOSE-CONNECTION ...) ; processing (DEFMETHOD CLONE-CONNECTION ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/db3/db3-connection-tmpP7GRL47U.fasl ; compilation finished in 0:00:00.010 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/db3/db3-schema.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.DB3) ; processing (DEFCLASS COPY-DB3 ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD FETCH-COLUMNS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/db3/db3-schema-tmp6WQCTWZY.fasl ; compilation finished in 0:00:00.006 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/db3/db3.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.DB3) ; processing (DEFMETHOD MAP-ROWS ...) ; processing (DEFMETHOD INSTANCIATE-TABLE-COPY-OBJECT ...) ; processing (DEFMETHOD FETCH-METADATA ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/db3/db3-tmp1RW346KS.fasl ; compilation finished in 0:00:00.025 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/ixf/ixf-cast-rules.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.IXF) ; processing (DEFVAR *IXF-PGSQL-TYPE-MAPPING* ...) ; processing (DEFUN CAST-IXF-TYPE ...) ; processing (DEFUN TRANSFORM-FUNCTION ...) ; processing (DEFMETHOD CAST ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/ixf/ixf-cast-rules-tmpDHMOASYF.fasl ; compilation finished in 0:00:00.009 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/ixf/ixf-connection.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.IXF) ; processing (DEFCLASS IXF-CONNECTION ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD OPEN-CONNECTION ...) ; processing (DEFMETHOD CLOSE-CONNECTION ...) ; processing (DEFMETHOD CLONE-CONNECTION ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/ixf/ixf-connection-tmpLV9XXT6H.fasl ; compilation finished in 0:00:00.009 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/ixf/ixf-schema.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.IXF) ; processing (DEFCLASS COPY-IXF ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD FETCH-COLUMNS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/ixf/ixf-schema-tmp49ODV8UF.fasl ; compilation finished in 0:00:00.007 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/ixf/ixf.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.IXF) ; processing (DEFMETHOD MAP-ROWS ...) ; processing (DEFMETHOD INSTANCIATE-TABLE-COPY-OBJECT ...) ; processing (DEFMETHOD FETCH-METADATA ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/ixf/ixf-tmpCGWUF3C1.fasl ; compilation finished in 0:00:00.023 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/sqlite/sqlite-cast-rules.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.SQLITE) ; processing (DEFVAR *SQLITE-DB* ...) ; processing (DEFPARAMETER *SQLITE-DEFAULT-CAST-RULES* ...) ; processing (DEFSTRUCT (COLDEF #) ...) ; processing (DEFUN NORMALIZE ...) ; processing (DEFUN CTYPE-TO-DTYPE ...) ; processing (DEFMETHOD CAST ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/sqlite/sqlite-cast-rules-tmpWYLQBKV1.fasl ; compilation finished in 0:00:00.022 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/sqlite/sqlite-connection.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.SQLITE) ; processing (DEFVAR *SQLITE-DB* ...) ; processing (DEFCLASS SQLITE-CONNECTION ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD OPEN-CONNECTION ...) ; processing (DEFMETHOD CLOSE-CONNECTION ...) ; processing (DEFMETHOD CLONE-CONNECTION ...) ; processing (DEFMETHOD QUERY ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/sqlite/sqlite-connection-tmpQZJT0GSW.fasl ; compilation finished in 0:00:00.013 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/sqlite/sqlite-schema.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.SQLITE) ; processing (DEFCLASS COPY-SQLITE ...) ; processing (DEFUN SQLITE-PRAGMA-ENCODING ...) ; processing (DEFUN SQLITE-ENCODING ...) ; processing (DEFMETHOD FILTER-LIST-TO-WHERE-CLAUSE ...) ; processing (DEFUN LIST-TABLES ...) ; processing (DEFUN FIND-SEQUENCE ...) ; processing (DEFUN FIND-AUTO-INCREMENT-IN-CREATE-SQL ...) ; processing (DEFUN LIST-COLUMNS ...) ; processing (DEFMETHOD FETCH-COLUMNS ...) ; processing (DEFUN ADD-UNLISTED-PRIMARY-KEY-INDEX ...) ; processing (DEFUN IS-INDEX-PK ...) ; processing (DEFUN LIST-INDEX-COLS ...) ; processing (DEFUN LIST-INDEXES ...) ; processing (DEFMETHOD FETCH-INDEXES ...) ; processing (DEFUN LIST-FKEYS ...) ; processing (DEFMETHOD FETCH-FOREIGN-KEYS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/sqlite/sqlite-schema-tmp80IHNYG7.fasl ; compilation finished in 0:00:00.041 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/sqlite/sqlite.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.SQLITE) ; processing (DECLAIM (INLINE PARSE-VALUE)) ; processing (DEFUN PARSE-VALUE ...) ; processing (DEFMETHOD MAP-ROWS ...) ; processing (DEFMETHOD COPY-COLUMN-LIST ...) ; processing (DEFMETHOD FETCH-METADATA ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/sqlite/sqlite-tmp4W6239QB.fasl ; compilation finished in 0:00:00.035 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/mssql/mssql-cast-rules.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.MSSQL) ; processing (DEFPARAMETER *MSSQL-DEFAULT-CAST-RULES* ...) ; processing (DEFSTRUCT (MSSQL-COLUMN #) ...) ; processing (DEFMETHOD FIELD-NAME ...) ; processing (DEFMETHOD MSSQL-COLUMN-CTYPE ...) ; processing (DEFMETHOD CAST ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/mssql/mssql-cast-rules-tmpPLIY2OU6.fasl ; compilation finished in 0:00:00.041 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/mssql/mssql-connection.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.MSSQL) ; processing (DEFVAR *MSSQL-DB* ...) ; processing (DEFCLASS MSSQL-CONNECTION ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD OPEN-CONNECTION ...) ; processing (DEFMETHOD CLOSE-CONNECTION ...) ; processing (DEFMETHOD CLONE-CONNECTION ...) ; processing (DEFMETHOD QUERY ...) ; processing (DEFUN MSSQL-QUERY ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/mssql/mssql-connection-tmpDQVK0IID.fasl ; compilation finished in 0:00:00.014 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/mssql/mssql-schema.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.MSSQL) ; processing (DEFCLASS COPY-MSSQL ...) ; processing (DEFVAR *TABLE-TYPE* ...) ; processing (DEFMETHOD FILTER-LIST-TO-WHERE-CLAUSE ...) ; processing (DEFMETHOD FETCH-COLUMNS ...) ; processing (DEFMETHOD FETCH-INDEXES ...) ; processing (DEFMETHOD FETCH-FOREIGN-KEYS ...) ; processing (DEFMETHOD GET-COLUMN-SQL-EXPRESSION ...) ; processing (DEFMETHOD GET-COLUMN-LIST ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/mssql/mssql-schema-tmp4IEM0NNS.fasl ; compilation finished in 0:00:00.032 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/mssql/mssql.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.MSSQL) ; processing (DEFMETHOD MAP-ROWS ...) ; processing (DEFMETHOD COPY-COLUMN-LIST ...) ; processing (DEFMETHOD FETCH-METADATA ...) ; processing (DEFMETHOD CLEANUP ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/mssql/mssql-tmpIBGLG2RO.fasl ; compilation finished in 0:00:00.035 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/mssql/mssql-index-filters.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.SOURCE.MSSQL.INDEX-FILTER) ; processing (DEFMETHOD TRANSLATE-INDEX-FILTER ...) ; processing (DEFUN PARSE-INDEX-FILTER-CLAUSE ...) ; processing (DEFRULE WHITESPACE ...) ; processing (DEFRULE PUNCT ...) ; processing (DEFRULE NAMESTRING ...) ; processing (DEFRULE MSSQL-BRACKETED-IDENTIFIER ...) ; processing (DEFRULE MSSQL-IDENTIFIER ...) ; processing (DEFRULE = ...) ; processing (DEFRULE <= ...) ; processing (DEFRULE >= ...) ; processing (DEFRULE < ...) ; processing (DEFRULE > ...) ; processing (DEFRULE <> ...) ; processing (DEFRULE != ...) ; processing (DEFRULE IN ...) ; processing (DEFRULE O-P ...) ; processing (DEFRULE C-P ...) ; processing (DEFRULE BETWEEN ...) ; processing (DEFRULE AND-OP ...) ; processing (DEFRULE MSSQL-OPERATOR ...) ; processing (DEFRULE DIGITS ...) ; processing (DEFRULE QUOTED ...) ; processing (DEFRULE MSSQL-CONSTANT-PARENS ...) ; processing (DEFRULE MSSQL-CONSTANT-NO-PARENS ...) ; processing (DEFRULE MSSQL-CONSTANT ...) ; processing (DEFRULE MSSQL-IS-NOT-NULL ...) ; processing (DEFRULE MSSQL-IS-NULL ...) ; processing (DEFRULE MSSQL-WHERE-IS-NULL ...) ; processing (DEFRULE MSSQL-WHERE-ID-OP-CONST ...) ; processing (DEFRULE MSSQL-WHERE-CONST-OP-ID ...) ; processing (DEFRULE MSSQL-WHERE-OP ...) ; processing (DEFRULE ANOTHER-CONSTANT ...) ; processing (DEFRULE MSSQL-IN-LIST ...) ; processing (DEFRULE MSSQL-WHERE-IN ...) ; processing (DEFRULE MSSQL-WHERE-BETWEEN ...) ; processing (DEFRULE MSSQL-INDEX-FILTER ...) ; processing (DEFRULE ANOTHER-INDEX-FILTER ...) ; processing (DEFRULE MSSQL-INDEX-WHERE-CLAUSE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/mssql/mssql-index-filters-tmpEGCLAL00.fasl ; compilation finished in 0:00:00.028 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/mysql/mysql-cast-rules.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.MYSQL) ; processing (DEFUN ENUM-OR-SET-NAME ...) ; processing (DEFPARAMETER *MYSQL-DEFAULT-CAST-RULES* ...) ; processing (DEFSTRUCT (MYSQL-COLUMN #) ...) ; processing (DEFMETHOD FIELD-NAME ...) ; processing (DEFUN EXPLODE-MYSQL-ENUM ...) ; processing (DEFUN NORMALIZE-EXTRA ...) ; processing (DEFMETHOD CAST ...) ; processing (DEFUN TEST-CASTS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/mysql/mysql-cast-rules-tmpSZHJVKDY.fasl ; compilation finished in 0:00:00.034 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/mysql/mysql-connection.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.MYSQL) ; processing (DEFVAR *CONNECTION* ...) ; processing (DEFCLASS MYSQL-CONNECTION ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD CLONE-CONNECTION ...) ; processing (DEFMETHOD SSL-MODE ...) ; processing (DEFMETHOD OPEN-CONNECTION ...) ; processing (DEFMETHOD CLOSE-CONNECTION ...) ; processing (DEFMETHOD QUERY ...) ; processing (DECLAIM (INLINE MYSQL-QUERY)) ; processing (DEFUN MYSQL-QUERY ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/mysql/mysql-connection-tmpUAHIESL5.fasl ; compilation finished in 0:00:00.018 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/mysql/mysql-schema.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.MYSQL) ; processing (DEFCLASS COPY-MYSQL ...) ; processing (DEFVAR *TABLE-TYPE* ...) ; processing (DEFMETHOD FILTER-LIST-TO-WHERE-CLAUSE ...) ; processing (DEFUN CLEANUP-DEFAULT-VALUE ...) ; processing (DEFMETHOD FETCH-COLUMNS ...) ; processing (DEFMETHOD FETCH-INDEXES ...) ; processing (DEFMETHOD FETCH-FOREIGN-KEYS ...) ; processing (DEFMETHOD FETCH-TABLE-ROW-COUNT ...) ; processing (DEFUN LIST-TABLE-COMMENTS ...) ; processing (DEFUN LIST-COLUMNS-COMMENTS ...) ; processing (DEFMETHOD GET-COLUMN-SQL-EXPRESSION ...) ; processing (DEFMETHOD GET-COLUMN-LIST ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/mysql/mysql-schema-tmpW9B68D3X.fasl ; compilation finished in 0:00:00.045 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/mysql/mysql.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.MYSQL) ; processing (DEFMETHOD CONCURRENCY-SUPPORT ...) ; processing (DEFUN CALL-WITH-ENCODING-HANDLER ...) ; processing (DEFMACRO WITH-ENCODING-HANDLER ...) ; processing (DEFMETHOD MAP-ROWS ...) ; processing (DEFMETHOD COPY-COLUMN-LIST ...) ; processing (DEFMETHOD FETCH-METADATA ...) ; processing (DEFMETHOD CLEANUP ...) ; processing (DEFVAR *DECODING-AS* ...) ; processing (DEFUN APPLY-DECODING-AS-FILTERS ...) ; processing (DEFMETHOD INSTANCIATE-TABLE-COPY-OBJECT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/mysql/mysql-tmpIEKBGFG3.fasl ; compilation finished in 0:00:00.061 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/pgsql/pgsql-cast-rules.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.PGSQL) ; processing (DEFPARAMETER *PGSQL-DEFAULT-CAST-RULES* ...) ; processing (DEFMETHOD PGSQL-COLUMN-CTYPE ...) ; processing (DEFMETHOD CAST ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/pgsql/pgsql-cast-rules-tmpK26E5ZH.fasl ; compilation finished in 0:00:00.009 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/pgsql/pgsql.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.SOURCE.PGSQL) ; processing (DEFCLASS COPY-PGSQL ...) ; processing (DEFMETHOD MAP-ROWS ...) ; processing (DEFMETHOD COPY-COLUMN-LIST ...) ; processing (DEFMETHOD FETCH-METADATA ...) ; processing (DEFMETHOD CLEANUP ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/pgsql/pgsql-tmpVCL2WD00.fasl ; compilation finished in 0:00:00.043 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-batch.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PGCOPY) ; processing (DEFSTRUCT (BATCH #) ...) ; processing (DEFUN INIT-BATCH-MAX-COUNT ...) ; processing (DEFUN BATCH-OVERSIZED-P ...) ; processing (DEFUN BATCH-FULL-P ...) ; processing (DEFUN PUSH-ROW ...) ; processing (DEFUN FORMAT-ROW-IN-BATCH ...) ; processing (DEFUN ADD-ROW-TO-CURRENT-BATCH ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-batch-tmpZQ9PPEAP.fasl ; compilation finished in 0:00:00.022 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-format.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PGCOPY) ; processing (DEFUN PREPARE-AND-FORMAT-ROW ...) ; processing (DEFUN PREPARE-ROW ...) ; processing (DEFUN FORMAT-VECTOR-ROW ...) ; file: /build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-format.lisp ; in: DEFUN FORMAT-VECTOR-ROW ; (MAP 'VECTOR ; (LAMBDA (PGLOADER.PGCOPY::COL) ; (IF (PGLOADER.PGCOPY::COL-NULL-P PGLOADER.PGCOPY::COL) ; 2 ; (PGLOADER.PGCOPY::COPY-UTF-8-BYTE-LENGTH PGLOADER.PGCOPY::COL))) ; PGLOADER.PGCOPY::ROW) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (+ PGLOADER.PGCOPY::NB-COLS (REDUCE #'+ PGLOADER.PGCOPY::LENS)) ; ; note: unable to ; 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. ; (LOOP :FOR PGLOADER.PGCOPY::COL :ACROSS PGLOADER.PGCOPY::ROW ; :FOR PGLOADER.PGCOPY::I FIXNUM :FROM 1 ; :FOR POSITION ...) ; --> LET LET LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ 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. ; (+ PGLOADER.PGCOPY::NB-COLS (REDUCE #'+ PGLOADER.PGCOPY::LENS)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (+ POSITION PGLOADER.PGCOPY::COL-LEN) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; processing (DEFUN FORMAT-ESCAPED-VECTOR-ROW ...) ; file: /build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-format.lisp ; in: DEFUN FORMAT-ESCAPED-VECTOR-ROW ; (MAP 'VECTOR ; (LAMBDA (PGLOADER.PGCOPY::COL) ; (IF (PGLOADER.PGCOPY::COL-NULL-P PGLOADER.PGCOPY::COL) ; 2 ; (CL-POSTGRES-TRIVIAL-UTF-8:UTF-8-BYTE-LENGTH ; PGLOADER.PGCOPY::COL))) ; PGLOADER.PGCOPY::ROW) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (+ PGLOADER.PGCOPY::NB-COLS (REDUCE #'+ PGLOADER.PGCOPY::LENS)) ; ; note: unable to ; 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. ; (LOOP :FOR PGLOADER.PGCOPY::COL :ACROSS PGLOADER.PGCOPY::ROW ; :FOR PGLOADER.PGCOPY::I :FROM 1 ; :FOR POSITION := ...) ; --> LET LET LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (REPLACE PGLOADER.PGCOPY::BUF PGLOADER.PGCOPY::UTF-8-BYTES :START1 POSITION) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; (+ POSITION PGLOADER.PGCOPY::COL-LEN) ; ; 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. ; (LOOP :FOR PGLOADER.PGCOPY::COL :ACROSS PGLOADER.PGCOPY::ROW ; :FOR PGLOADER.PGCOPY::I :FROM 1 ; :FOR POSITION := ...) ; --> LET LET LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (+ POSITION PGLOADER.PGCOPY::COL-LEN 1) ; ; 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 ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (+ PGLOADER.PGCOPY::NB-COLS (REDUCE #'+ PGLOADER.PGCOPY::LENS)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (+ POSITION PGLOADER.PGCOPY::COL-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a (OR NULL NUMBER), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (OR NULL NUMBER), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (LOOP :FOR PGLOADER.PGCOPY::COL :ACROSS PGLOADER.PGCOPY::ROW ; :FOR PGLOADER.PGCOPY::I :FROM 1 ; :FOR POSITION := ...) ; --> LET LET LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (+ POSITION PGLOADER.PGCOPY::COL-LEN 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DECLAIM (INLINE INSERT-COPY-SEPARATOR ...)) ; file: /build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-format.lisp ; in: DECLAIM (INLINE INSERT-COPY-SEPARATOR INSERT-COPY-NULL COL-NULL-P) ; (DECLAIM ; (INLINE PGLOADER.PGCOPY::INSERT-COPY-SEPARATOR ; PGLOADER.PGCOPY::INSERT-COPY-NULL PGLOADER.PGCOPY::COL-NULL-P)) ; ==> ; (SB-C::%PROCLAIM ; '(INLINE PGLOADER.PGCOPY::INSERT-COPY-SEPARATOR ; PGLOADER.PGCOPY::INSERT-COPY-NULL PGLOADER.PGCOPY::COL-NULL-P) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; Proclaiming PGLOADER.PGCOPY::INSERT-COPY-SEPARATOR to be INLINE, but 2 calls to ; it were previously compiled. A declaration of NOTINLINE at the call sites will ; eliminate this warning, as will proclaiming and defining the function before ; its first potential use. ; ; caught STYLE-WARNING: ; Proclaiming PGLOADER.PGCOPY::INSERT-COPY-NULL to be INLINE, but 2 calls to it ; were previously compiled. A declaration of NOTINLINE at the call sites will ; eliminate this warning, as will proclaiming and defining the function before ; its first potential use. ; ; caught STYLE-WARNING: ; Proclaiming PGLOADER.PGCOPY::COL-NULL-P to be INLINE, but 4 calls to it were ; previously compiled. A declaration of NOTINLINE at the call sites will ; eliminate this warning, as will proclaiming and defining the function before ; its first potential use. ; processing (DEFUN COL-NULL-P ...) ; processing (DEFUN INSERT-COPY-NULL ...) ; processing (DEFUN INSERT-COPY-SEPARATOR ...) ; processing (DEFUN APPLY-TRANSFORMS ...) ; processing (DEFUN COPY-UTF-8-BYTE-LENGTH ...) ; file: /build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-format.lisp ; in: DEFUN COPY-UTF-8-BYTE-LENGTH ; (INCF LENGTH 1) ; --> THE ; ==> ; (+ 1 LENGTH) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF LENGTH ; (COND ((< PGLOADER.PGCOPY::CODE 2048) 1) ; ((< PGLOADER.PGCOPY::CODE 65536) 2) (T 3))) ; --> THE ; ==> ; (+ ; (COND ((< PGLOADER.PGCOPY::CODE 2048) 1) ((< PGLOADER.PGCOPY::CODE 65536) 2) ; (T 3)) ; LENGTH) ; ; 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: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (INCF LENGTH 1) ; --> THE ; ==> ; (+ 1 LENGTH) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; processing (DEFMACRO AS-COPY-UTF-8-BYTES ...) ; processing (DEFUN STRING-TO-COPY-UTF-8-BYTES ...) ; file: /build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-format.lisp ; in: DEFUN STRING-TO-COPY-UTF-8-BYTES ; (PGLOADER.PGCOPY::AS-COPY-UTF-8-BYTES CHAR PGLOADER.PGCOPY::ADD-BYTE) ; --> COND IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> COND IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> COND IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> COND IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> COND IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> COND IF IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> COND IF IF IF IF IF IF IF PGLOADER.PGCOPY::ADD-BYTE PROGN 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. ; --> COND IF IF IF IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> COND IF IF IF IF IF IF IF IF IF PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN ; --> 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> COND IF IF IF IF IF IF IF IF IF THE PROGN PGLOADER.PGCOPY::ADD-BYTE PROGN ; --> 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY * ; (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-format-tmpNRJPZMRB.fasl ; compilation finished in 0:00:00.078 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-db-write.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PGCOPY) ; processing (DEFINE-CONDITION COPY-INIT-ERROR ...) ; processing (DEFUN DB-WRITE-BATCH ...) ; processing (DEFUN DB-WRITE-ROW ...) ; processing (DEFUN DB-WRITE-VECTOR-ROW ...) ; file: /build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-db-write.lisp ; in: DEFUN DB-WRITE-VECTOR-ROW ; (LENGTH PGLOADER.PGCOPY::ROW) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (+ 4 PGLOADER.PGCOPY::ROW-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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LOOP :FOR PGLOADER.PGCOPY::COL :ACROSS PGLOADER.PGCOPY::ROW ; :FOR PGLOADER.PGCOPY::I FIXNUM :FROM 1 ; :DO (IF (PGLOADER.PGCOPY::COL-NULL-P PGLOADER.PGCOPY::COL) ; (PROGN ; (PGLOADER.PGCOPY::SEND-BYTE 92) ; (PGLOADER.PGCOPY::SEND-BYTE 78)) ; (LOOP :FOR CHAR :ACROSS PGLOADER.PGCOPY::COL ; :DO (PGLOADER.PGCOPY::AS-COPY-UTF-8-BYTES CHAR ; PGLOADER.PGCOPY::SEND-BYTE))) ...) ; --> LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ 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. ; (LOOP :FOR CHAR :ACROSS PGLOADER.PGCOPY::COL ; :DO (PGLOADER.PGCOPY::AS-COPY-UTF-8-BYTES CHAR ; PGLOADER.PGCOPY::SEND-BYTE)) ; --> LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (MAP 'VECTOR ; (LAMBDA (PGLOADER.PGCOPY::COL) ; (IF (PGLOADER.PGCOPY::COL-NULL-P PGLOADER.PGCOPY::COL) ; 2 ; (PGLOADER.PGCOPY::COPY-UTF-8-BYTE-LENGTH PGLOADER.PGCOPY::COL))) ; PGLOADER.PGCOPY::ROW) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (+ PGLOADER.PGCOPY::NBCOLS (REDUCE #'+ PGLOADER.PGCOPY::COL-BYTES)) ; ; note: unable to ; 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. ; (INCF (CL-POSTGRES::COPIER-COUNT PGLOADER.PGCOPY::COPIER)) ; ==> ; (+ 1 (CL-POSTGRES::COPIER-COUNT #:COPIER34)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (+ 4 PGLOADER.PGCOPY::ROW-BYTES) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (< PGLOADER.PGCOPY::I PGLOADER.PGCOPY::NBCOLS) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; (+ PGLOADER.PGCOPY::NBCOLS (REDUCE #'+ PGLOADER.PGCOPY::COL-BYTES)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (INCF (CL-POSTGRES::COPIER-COUNT PGLOADER.PGCOPY::COPIER)) ; ==> ; (+ 1 (CL-POSTGRES::COPIER-COUNT #:COPIER34)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-POSTGRES::WITH-RECONNECT-RESTART PGLOADER.CONNECTION:CONNECTION ; (CL-POSTGRES::USING-CONNECTION PGLOADER.CONNECTION:CONNECTION ; (CL-POSTGRES::WITH-SYNCING ; (CL-POSTGRES::WRITE-UINT1 CL-POSTGRES::SOCKET 100) ; (CL-POSTGRES::WRITE-UINT4 CL-POSTGRES::SOCKET ; (+ 4 PGLOADER.PGCOPY::ROW-BYTES)) ; (MACROLET (#) ; (LOOP :FOR PGLOADER.PGCOPY::COL :ACROSS PGLOADER.PGCOPY::ROW ; :FOR PGLOADER.PGCOPY::I FIXNUM :FROM 1 ; :DO # ...))))) ; --> LABELS ; ==> ; (#:G2 (CL-POSTGRES::ERR) ; (RESTART-CASE (ERROR CL-POSTGRES::ERR) ; (:RECONNECT NIL :REPORT "Try to reconnect" ; (CL-POSTGRES:REOPEN-DATABASE #:G0) (#:G1)))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; processing (DEFUN DB-WRITE-ESCAPED-VECTOR-ROW ...) ; file: /build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-db-write.lisp ; in: DEFUN DB-WRITE-ESCAPED-VECTOR-ROW ; (LENGTH PGLOADER.PGCOPY::ROW) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (+ 4 PGLOADER.PGCOPY::ROW-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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LOOP :FOR PGLOADER.PGCOPY::COL :ACROSS PGLOADER.PGCOPY::ROW ; :FOR PGLOADER.PGCOPY::I FIXNUM :FROM 1 ; :DO (IF (PGLOADER.PGCOPY::COL-NULL-P PGLOADER.PGCOPY::COL) ; (PROGN ; (PGLOADER.PGCOPY::SEND-BYTE 92) ; (PGLOADER.PGCOPY::SEND-BYTE 78)) ; (LOOP :FOR CHAR :ACROSS PGLOADER.PGCOPY::COL ; :DO (CL-POSTGRES-TRIVIAL-UTF-8::AS-UTF-8-BYTES CHAR ; PGLOADER.PGCOPY::SEND-BYTE))) ...) ; --> LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ 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. ; (LOOP :FOR CHAR :ACROSS PGLOADER.PGCOPY::COL ; :DO (CL-POSTGRES-TRIVIAL-UTF-8::AS-UTF-8-BYTES CHAR ; PGLOADER.PGCOPY::SEND-BYTE)) ; --> LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (MAP 'VECTOR ; (LAMBDA (PGLOADER.PGCOPY::COL) ; (IF (PGLOADER.PGCOPY::COL-NULL-P PGLOADER.PGCOPY::COL) ; 2 ; (CL-POSTGRES-TRIVIAL-UTF-8:UTF-8-BYTE-LENGTH ; PGLOADER.PGCOPY::COL))) ; PGLOADER.PGCOPY::ROW) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (+ PGLOADER.PGCOPY::NBCOLS (REDUCE #'+ PGLOADER.PGCOPY::COL-BYTES)) ; ; note: unable to ; 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. ; (INCF (CL-POSTGRES::COPIER-COUNT PGLOADER.PGCOPY::COPIER)) ; ==> ; (+ 1 (CL-POSTGRES::COPIER-COUNT #:COPIER34)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (+ 4 PGLOADER.PGCOPY::ROW-BYTES) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (< PGLOADER.PGCOPY::I PGLOADER.PGCOPY::NBCOLS) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; (+ PGLOADER.PGCOPY::NBCOLS (REDUCE #'+ PGLOADER.PGCOPY::COL-BYTES)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES ; DOUBLE-FLOAT ; &REST T). ; unable to do #1# (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 . #2#), not a (VALUES SINGLE-FLOAT &REST T). ; etc. ; (INCF (CL-POSTGRES::COPIER-COUNT PGLOADER.PGCOPY::COPIER)) ; ==> ; (+ 1 (CL-POSTGRES::COPIER-COUNT #:COPIER34)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-POSTGRES::WITH-RECONNECT-RESTART PGLOADER.CONNECTION:CONNECTION ; (CL-POSTGRES::USING-CONNECTION PGLOADER.CONNECTION:CONNECTION ; (CL-POSTGRES::WITH-SYNCING ; (CL-POSTGRES::WRITE-UINT1 CL-POSTGRES::SOCKET 100) ; (CL-POSTGRES::WRITE-UINT4 CL-POSTGRES::SOCKET ; (+ 4 PGLOADER.PGCOPY::ROW-BYTES)) ; (MACROLET (#) ; (LOOP :FOR PGLOADER.PGCOPY::COL :ACROSS PGLOADER.PGCOPY::ROW ; :FOR PGLOADER.PGCOPY::I FIXNUM :FROM 1 ; :DO # ...))))) ; --> LABELS ; ==> ; (#:G2 (CL-POSTGRES::ERR) ; (RESTART-CASE (ERROR CL-POSTGRES::ERR) ; (:RECONNECT NIL :REPORT "Try to reconnect" ; (CL-POSTGRES:REOPEN-DATABASE #:G0) (#:G1)))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-db-write-tmpPP68IXIC.fasl ; compilation finished in 0:00:00.048 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-rows-in-stream.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PGCOPY) ; processing (DEFUN STREAM-ROWS-TO-COPY ...) ; processing (DEFUN STREAM-ROW ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-rows-in-stream-tmpR43VJ9D9.fasl ; compilation finished in 0:00:00.007 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-rows-in-batch.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PGCOPY) ; processing (DEFUN BATCH-ROWS-TO-COPY ...) ; processing (DEFUN SEND-BATCH ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-rows-in-batch-tmpRFKXLIA4.fasl ; compilation finished in 0:00:00.014 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-rows-in-batch-through-s3.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PGCOPY) ; processing (DEFUN BATCH-ROWS-TO-S3-THEN-COPY ...) ; processing (DEFUN PREPARE-AND-FORMAT-ROW-FOR-S3 ...) ; processing (DEFUN SEND-BATCH-THROUGH-S3 ...) ; processing (DEFUN BATCH-AS-SINGLE-VECTOR ...) ; processing (DEFUN GET-AWS-CREDENTIALS-AND-SETUP ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-rows-in-batch-through-s3-tmpULFHDN08.fasl ; compilation finished in 0:00:00.024 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-retry-batch.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.PGCOPY) ; processing (DEFUN NEXT-BATCH-ROWS ...) ; processing (DEFUN PARSE-COPY-ERROR-CONTEXT ...) ; processing (DEFUN RETRY-BATCH ...) ; processing (DEFUN COPY-PARTIAL-BATCH ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-retry-batch-tmpOPRDPHFK.fasl ; compilation finished in 0:00:00.017 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-from-queue.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PGCOPY) ; processing (DEFUN COPY-ROWS-FROM-QUEUE ...) ; processing (DEFUN PREPARE-COPY-PARAMETERS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/pg-copy/copy-from-queue-tmp8WFA6KMU.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/load/api.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.LOAD) ; processing (DEFGENERIC COPY-FROM ...) ; processing (DEFGENERIC COPY-TO ...) ; processing (DEFGENERIC COPY-DATABASE ...) ; processing (DEFGENERIC PREPARE-PGSQL-DATABASE ...) ; processing (DEFGENERIC COMPLETE-PGSQL-DATABASE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/load/api-tmpZIM0NZGF.fasl ; compilation finished in 0:00:00.001 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/load/copy-data.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.LOAD) ; processing (DEFMETHOD QUEUE-RAW-DATA ...) ; processing (DEFMETHOD COPY-TO ...) ; file: /build/pgloader-JXcgv0/pgloader-3.6.3/src/load/copy-data.lisp ; in: DEFMETHOD COPY-TO (COPY T) ; (PGLOADER.PGSQL:FORMAT-VECTOR-ROW PGLOADER.LOAD::TEXT-FILE PGLOADER.LOAD::ROW ; (PGLOADER.SOURCES:TRANSFORMS ; PGLOADER.SOURCES:COPY)) ; ; caught STYLE-WARNING: ; The function FORMAT-VECTOR-ROW is called with three arguments, but wants exactly two. ; processing (DEFMETHOD COPY-FROM ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/load/copy-data-tmp3R1UUX74.fasl ; compilation finished in 0:00:00.021 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/load/load-file.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.LOAD) ; processing (DEFMETHOD COPY-DATABASE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/load/load-file-tmpJE96SV6A.fasl ; compilation finished in 0:00:00.038 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/load/migrate-database.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.LOAD) ; processing (DEFMETHOD PREPARE-PGSQL-DATABASE ...) ; processing (DEFMETHOD COMPLETE-PGSQL-DATABASE ...) ; processing (DEFUN PROCESS-CATALOG ...) ; processing (DEFUN OPTIMIZE-TABLE-COPY-ORDERING ...) ; processing (DEFMETHOD COPY-DATABASE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/load/migrate-database-tmpM126WEAV.fasl ; compilation finished in 0:00:00.089 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/parse-ini.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.INI) ; processing (DEFPARAMETER *GLOBAL-SECTION* ...) ; processing (DEFSTRUCT PARAMS ...) ; processing (DEFUN PROCESS-TRUE-FALSE ...) ; processing (DEFUN READ-DEFAULT-VALUE-FOR-PARAM ...) ; processing (DEFUN READ-VALUE-FOR-PARAM ...) ; processing (DEFMETHOD SET-PARAM ...) ; processing (DEFMETHOD SET-GUCS ...) ; processing (DEFUN GET-GUCS ...) ; processing (DEFUN MERGE-GUCS ...) ; processing (DEFUN USER-DEFINED-COLUMNS ...) ; processing (DEFUN SPLIT-COLUMNS-SPECS ...) ; processing (DEFUN GET-PGSQL-COLUMN-SPECS ...) ; processing (DEFUN PARSE-COLUMNS-SPEC ...) ; processing (DEFUN PARSE-ONLY-COLS ...) ; processing (DEFUN COMPUTE-COLUMNS ...) ; processing (DEFUN PARSE-SECTION ...) ; processing (DEFUN GET-CONNECTION-PARAMS ...) ; processing (DEFUN GET-CONNECTION-STRING ...) ; processing (DEFUN READ-INI-FILE ...) ; processing (DEFUN PARSE-INI-FILE ...) ; processing (DEFUN PRINT-CSV-OPTION ...) ; processing (DEFUN WRITE-COMMAND-TO-STRING ...) ; processing (DEFUN CONVERT-INI-INTO-COMMANDS ...) ; processing (DEFUN CONVERT-INI-INTO-FILES ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/parse-ini-tmpS2HNWOVW.fasl ; compilation finished in 0:00:00.099 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/template.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.PARSER) ; processing (DEFUN APPLY-TEMPLATE ...) ; processing (DEFUN INITIALIZE-CONTEXT ...) ; processing (DEFUN READ-INI-FILE ...) ; processing (DEFMETHOD MUSTACHE::CONTEXT-GET ...) ; processing (DEFMETHOD MUSTACHE::CONTEXT-GET ...) ; processing (DEFUN CONTEXT-GET-FROM-ENVIRONMENT ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/template-tmpR3PRZE8Z.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-utils.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PARSER) ; processing (DEFVAR *CWD* ...) ; processing (DEFVAR *DATA-EXPECTED-INLINE* ...) ; processing (DEFRULE SINGLE-LINE-COMMENT ...) ; processing (DEFRULE MULTI-LINE-COMMENT ...) ; processing (DEFRULE COMMENTS ...) ; processing (DEFRULE KEEP-A-SINGLE-WHITESPACE ...) ; processing (DEFRULE WHITESPACE ...) ; processing (DEFRULE IGNORE-WHITESPACE ...) ; processing (DEFRULE PUNCT ...) ; processing (DEFRULE NAMESTRING ...) ; processing (DEFRULE DOUBLE-QUOTED-NAMESTRING ...) ; processing (DEFRULE QUOTED-NAMESTRING ...) ; processing (DEFRULE NAME ...) ; processing (DEFRULE TRIMMED-NAME ...) ; processing (DEFRULE NAMESTRING-OR-REGEX ...) ; processing (DEFRULE MAYBE-QUOTED-NAMESTRING ...) ; processing (DEFRULE OPEN-PAREN ...) ; processing (DEFRULE CLOSE-PAREN ...) ; processing (DEFRULE COMMA-SEPARATOR ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-utils-tmpBE4ZJXFG.fasl ; compilation finished in 0:00:00.005 WARNING: Prefix " " before " " in an ESRAP OR expression. WARNING: Prefix " " before " " in an ESRAP OR expression. ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-keywords.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PARSER) ; processing (DEFMACRO DEF-KEYWORD-RULE ...) ; processing (EVAL-WHEN (:LOAD-TOPLEVEL :COMPILE-TOPLEVEL ...) ...) ; processing (DEFRULE KW-AUTO-INCREMENT ...) ; processing (DEFRULE KW-ON-UPDATE-CURRENT-TIMESTAMP ...) ; processing (DEFRULE KW-POSTGRESQL ...) ; processing (DEFRULE KW-MYSQL ...) ; processing (DEFRULE KW-MSSQL ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-keywords-tmpICLLCELY.fasl ; compilation finished in 0:00:00.052 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-regexp.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PARSER) ; processing (DEFUN PROCESS-QUOTED-REGEX ...) ; processing (DEFRULE SINGLE-QUOTED-REGEX ...) ; processing (DEFRULE DOUBLE-QUOTED-REGEX ...) ; processing (DEFRULE PARENS-QUOTED-REGEX ...) ; processing (DEFRULE BRACES-QUOTED-REGEX ...) ; processing (DEFRULE CHEVRON-QUOTED-REGEX ...) ; processing (DEFRULE BRACKETS-QUOTED-REGEX ...) ; processing (DEFRULE SLASH-QUOTED-REGEX ...) ; processing (DEFRULE PIPE-QUOTED-REGEX ...) ; processing (DEFRULE SHARP-QUOTED-REGEX ...) ; processing (DEFRULE QUOTED-REGEX ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-regexp-tmpGJJYZTZA.fasl ; compilation finished in 0:00:00.004 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/parse-pgpass.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PARSER) ; processing (DEFSTRUCT PGPASS ...) ; processing (DEFUN PGPASS-CHAR-P ...) ; processing (DEFRULE PGPASS-ESCAPED-CHAR ...) ; processing (DEFRULE PGPASS-IPV6-HOSTNAME ...) ; processing (DEFRULE PGPASS-ENTRY ...) ; processing (DEFRULE PGPASS-LINE ...) ; processing (DEFUN GET-PGPASS-FILENAME ...) ; processing (DEFUN PARSE-PGPASS-FILE ...) ; processing (DEFUN MATCH-HOSTNAME ...) ; processing (DEFUN MATCH-PGPASS ...) ; processing (DEFUN MATCH-PGPASS-ENTRIES ...) ; processing (DEFUN MATCH-PGPASS-FILE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/parse-pgpass-tmpO5YPH4GB.fasl ; compilation finished in 0:00:00.028 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-db-uri.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PARSER) ; processing (DEFRULE DSN-PORT ...) ; processing (DEFRULE DOUBLED-AT-SIGN ...) ; processing (DEFRULE DOUBLED-COLON ...) ; processing (DEFRULE PASSWORD ...) ; processing (DEFRULE USERNAME ...) ; processing (DEFRULE DSN-USER-PASSWORD ...) ; processing (DEFUN HEXDIGIT-CHAR-P ...) ; processing (DEFRULE IPV4-PART ...) ; processing (DEFRULE IPV4 ...) ; processing (DEFRULE IPV6 ...) ; processing (DEFUN SOCKET-DIRECTORY-CHARACTER-P ...) ; processing (DEFRULE SOCKET-DIRECTORY ...) ; processing (DEFRULE NETWORK-LABEL-LETTERS-DIGIT ...) ; processing (DEFRULE NETWORK-LABEL-WITH-HYPHEN ...) ; processing (DEFRULE NETWORK-LABEL-NO-HYPHEN ...) ; processing (DEFRULE NETWORK-LABEL ...) ; processing (DEFRULE NETWORK-HOSTNAME ...) ; processing (DEFRULE HOSTNAME ...) ; processing (DEFUN PROCESS-HOSTNAME ...) ; processing (DEFRULE DSN-HOSTNAME ...) ; processing (DEFRULE DSN-DBNAME ...) ; processing (DEFRULE DSN-OPTION-SSL-DISABLE ...) ; processing (DEFRULE DSN-OPTION-SSL-ALLOW ...) ; processing (DEFRULE DSN-OPTION-SSL-PREFER ...) ; processing (DEFRULE DSN-OPTION-SSL-REQUIRE ...) ; processing (DEFRULE DSN-OPTION-SSL ...) ; processing (DEFUN GET-PGSSLMODE ...) ; processing (DEFRULE QUALIFIED-TABLE-NAME ...) ; processing (DEFRULE DSN-TABLE-NAME ...) ; processing (DEFRULE DSN-OPTION-TABLE-NAME ...) ; processing (DEFRULE URI-PARAM ...) ; processing (DEFMACRO MAKE-DSN-OPTION-RULE ...) ; processing (MAKE-DSN-OPTION-RULE DSN-OPTION-HOST ...) ; processing (MAKE-DSN-OPTION-RULE DSN-OPTION-PORT ...) ; processing (MAKE-DSN-OPTION-RULE DSN-OPTION-DBNAME ...) ; processing (MAKE-DSN-OPTION-RULE DSN-OPTION-USER ...) ; processing (MAKE-DSN-OPTION-RULE DSN-OPTION-PASS ...) ; processing (DEFRULE DSN-OPTION ...) ; processing (DEFRULE ANOTHER-DSN-OPTION ...) ; processing (DEFRULE DSN-OPTIONS ...) ; processing (DEFRULE PGSQL-PREFIX ...) ; processing (DEFRULE PGSQL-URI ...) ; processing (DEFRULE TARGET ...) ; processing (DEFUN PGSQL-CONNECTION-BINDINGS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-db-uri-tmpCVBSS8KL.fasl ; compilation finished in 0:00:00.040 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-source.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PARSER) ; processing (DEFUN FILENAME-CHARACTER-P ...) ; processing (DEFRULE STDIN ...) ; processing (DEFRULE INLINE ...) ; processing (DEFRULE FILENAME ...) ; processing (DEFRULE QUOTED-FILENAME ...) ; processing (DEFRULE MAYBE-QUOTED-FILENAME ...) ; processing (DEFRULE HTTP-URI ...) ; processing (DEFRULE MAYBE-QUOTED-FILENAME-OR-HTTP-URI ...) ; processing (DEFRULE FILENAME-OR-HTTP-URI ...) ; processing (DEFRULE SOURCE-URI ...) ; processing (DEFRULE LOAD-FROM ...) ; processing (DEFRULE SOURCE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-source-tmpWOI7FLUF.fasl ; compilation finished in 0:00:00.008 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-options.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PARSER) ; processing (DEFUN OPTNAME-CHAR-P ...) ; processing (DEFRULE OPTNAME-ELEMENT ...) ; processing (DEFRULE ANOTHER-OPTNAME-ELEMENT ...) ; processing (DEFRULE OPTNAME ...) ; processing (DEFUN OPTVALUE-CHAR-P ...) ; processing (DEFRULE OPTVALUE ...) ; processing (DEFRULE EQUAL-SIGN ...) ; processing (DEFRULE OPTION-WORKERS ...) ; processing (DEFRULE OPTION-CONCURRENCY ...) ; processing (DEFRULE OPTION-MAX-PARALLEL-CREATE-INDEX ...) ; processing (DEFRULE OPTION-BATCH-ROWS ...) ; processing (DEFRULE BYTE-SIZE-MULTIPLIER ...) ; processing (DEFRULE BYTE-SIZE-UNIT ...) ; processing (DEFRULE BATCH-SIZE ...) ; processing (DEFRULE OPTION-BATCH-SIZE ...) ; processing (DEFRULE OPTION-PREFETCH-ROWS ...) ; processing (DEFRULE OPTION-ROWS-PER-RANGE ...) ; processing (DEFUN BATCH-CONTROL-BINDINGS ...) ; processing (DEFUN IDENTIFIER-CASE-BINDING ...) ; processing (DEFUN REMOVE-BATCH-CONTROL-OPTION ...) ; processing (DEFMACRO MAKE-OPTION-RULE ...) ; processing (MAKE-OPTION-RULE INCLUDE-DROP ...) ; processing (MAKE-OPTION-RULE TRUNCATE ...) ; processing (MAKE-OPTION-RULE DISABLE-TRIGGERS ...) ; processing (MAKE-OPTION-RULE DROP-INDEXES ...) ; processing (MAKE-OPTION-RULE CREATE-TABLES ...) ; processing (MAKE-OPTION-RULE CREATE-INDEXES ...) ; processing (MAKE-OPTION-RULE RESET-SEQUENCES ...) ; processing (MAKE-OPTION-RULE FOREIGN-KEYS ...) ; processing (DEFRULE OPTION-DROP-SCHEMA ...) ; processing (DEFRULE OPTION-REINDEX ...) ; processing (DEFRULE OPTION-SINGLE-READER ...) ; processing (DEFRULE OPTION-MULTIPLE-READERS ...) ; processing (DEFRULE OPTION-SCHEMA-ONLY ...) ; processing (DEFRULE OPTION-DATA-ONLY ...) ; processing (DEFRULE OPTION-ON-ERROR-STOP ...) ; processing (DEFRULE OPTION-ON-ERROR-RESUME-NEXT ...) ; processing (DEFRULE OPTION-IDENTIFIERS-CASE ...) ; processing (DEFRULE OPTION-INDEX-NAMES ...) ; processing (DEFRULE OPTION-ENCODING ...) ; processing (DEFRULE COMMA ...) ; processing (DEFUN FLATTEN-OPTION-LIST ...) ; processing (DEFRULE GENERIC-OPTNAME ...) ; processing (DEFRULE GENERIC-VALUE ...) ; processing (DEFRULE GENERIC-OPTION ...) ; processing (DEFRULE ANOTHER-GENERIC-OPTION ...) ; processing (DEFRULE GENERIC-OPTION-LIST ...) ; processing (DEFRULE GUCS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-options-tmpYSK53869.fasl ; compilation finished in 0:00:00.068 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-sql-block.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PARSER) ; processing (DEFRULE DOUBLE-DOLLAR ...) ; processing (DEFRULE DOLLAR-QUOTED ...) ; processing (DEFRULE ANOTHER-DOLLAR-QUOTED ...) ; processing (DEFRULE DOLLAR-QUOTED-LIST ...) ; processing (DEFRULE SQL-FILE ...) ; processing (DEFRULE LOAD-DO ...) ; processing (DEFRULE LOAD-EXECUTE ...) ; processing (DEFRULE BEFORE-LOAD ...) ; processing (DEFRULE FINALLY ...) ; processing (DEFRULE AFTER-LOAD ...) ; processing (DEFRULE AFTER-SCHEMA ...) ; processing (DEFUN SQL-CODE-BLOCK ...) ; processing (DEFUN EXECUTE-SQL-CODE-BLOCK ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-sql-block-tmpUIKNFBUS.fasl ; compilation finished in 0:00:00.018 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-sexp.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.PARSER) ; processing (DEFUN NOT-DOUBLEQUOTE ...) ; processing (DEFUN SYMBOL-CHARACTER-P ...) ; processing (DEFUN SYMBOL-FIRST-CHARACTER-P ...) ; processing (DEFRULE SEXP-SYMBOL ...) ; processing (DEFRULE SEXP-CHAR ...) ; processing (DEFRULE SEXP-STRING-CHAR ...) ; processing (DEFRULE SEXP-STRING ...) ; processing (DEFRULE SEXP-INTEGER ...) ; processing (DEFRULE SEXP-LIST ...) ; processing (DEFRULE SEXP-ATOM ...) ; processing (DEFRULE SEXP ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-sexp-tmpEEFFEPQ0.fasl ; compilation finished in 0:00:00.008 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-csv.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.PARSER) ; processing (DEFRULE HEX-CHAR-CODE ...) ; processing (DEFRULE TAB-SEPARATOR ...) ; processing (DEFRULE BACKSLASH-SEPARATOR ...) ; processing (DEFRULE SINGLE-QUOTE-SEPARATOR ...) ; processing (DEFRULE OTHER-CHAR-SEPARATOR ...) ; processing (DEFRULE SEPARATOR ...) ; processing (DEFRULE OPTION-SKIP-HEADER ...) ; processing (DEFRULE OPTION-CSV-HEADER ...) ; processing (DEFRULE OPTION-FIELDS-ENCLOSED-BY ...) ; processing (DEFRULE OPTION-FIELDS-NOT-ENCLOSED ...) ; processing (DEFRULE QUOTE-QUOTE ...) ; processing (DEFRULE BACKSLASH-QUOTE ...) ; processing (DEFRULE ESCAPED-QUOTE-NAME ...) ; processing (DEFRULE ESCAPED-QUOTE-LITERAL ...) ; processing (DEFRULE ESCAPED-QUOTE ...) ; processing (DEFRULE ESCAPE-MODE-QUOTE ...) ; processing (DEFRULE ESCAPE-MODE-FOLLOWING ...) ; processing (DEFRULE ESCAPE-MODE ...) ; processing (DEFRULE OPTION-FIELDS-ESCAPED-BY ...) ; processing (DEFRULE OPTION-TERMINATED-BY ...) ; processing (DEFRULE OPTION-FIELDS-TERMINATED-BY ...) ; processing (DEFRULE OPTION-LINES-TERMINATED-BY ...) ; processing (DEFRULE OPTION-KEEP-UNQUOTED-BLANKS ...) ; processing (DEFRULE OPTION-TRIM-UNQUOTED-BLANKS ...) ; processing (DEFRULE OPTION-CSV-ESCAPE-MODE ...) ; processing (DEFRULE CSV-OPTION ...) ; processing (DEFRULE CSV-OPTIONS ...) ; processing (DEFRULE SINGLE-QUOTED-STRING ...) ; processing (DEFRULE DOUBLE-QUOTED-STRING ...) ; processing (DEFRULE QUOTED-STRING ...) ; processing (DEFRULE OPTION-DATE-FORMAT ...) ; processing (DEFRULE BLANKS ...) ; processing (DEFRULE OPTION-NULL-IF ...) ; processing (DEFRULE OPTION-TRIM-BOTH-WHITESPACE ...) ; processing (DEFRULE OPTION-TRIM-LEFT-WHITESPACE ...) ; processing (DEFRULE OPTION-TRIM-RIGHT-WHITESPACE ...) ; processing (DEFRULE CSV-FIELD-OPTION ...) ; processing (DEFRULE ANOTHER-CSV-FIELD-OPTION ...) ; processing (DEFRULE OPEN-SQUARE-BRACKET ...) ; processing (DEFRULE CLOSE-SQUARE-BRACKET ...) ; processing (DEFRULE CSV-FIELD-OPTION-LIST ...) ; processing (DEFRULE CSV-FIELD-OPTIONS ...) ; processing (DEFRULE CSV-BARE-FIELD-NAME ...) ; processing (DEFRULE CSV-QUOTED-FIELD-NAME ...) ; processing (DEFRULE CSV-FIELD-NAME ...) ; processing (DEFRULE CSV-SOURCE-FIELD ...) ; processing (DEFRULE ANOTHER-CSV-SOURCE-FIELD ...) ; processing (DEFRULE CSV-SOURCE-FIELDS ...) ; processing (DEFRULE HAVING-FIELDS ...) ; processing (DEFRULE CSV-SOURCE-FIELD-LIST ...) ; processing (DEFRULE COLUMN-NAME ...) ; processing (DEFRULE COLUMN-TYPE ...) ; processing (DEFRULE COLUMN-EXPRESSION ...) ; processing (DEFRULE CSV-TARGET-COLUMN ...) ; processing (DEFRULE ANOTHER-CSV-TARGET-COLUMN ...) ; processing (DEFRULE CSV-TARGET-COLUMNS ...) ; processing (DEFRULE TARGET-COLUMNS ...) ; processing (DEFRULE CSV-TARGET-COLUMN-LIST ...) ; processing (DEFRULE CSV-TARGET-TABLE ...) ; processing (DEFUN FIND-ENCODING-BY-NAME-OR-ALIAS ...) ; processing (DEFRULE ENCODING ...) ; processing (DEFRULE FILE-ENCODING ...) ; processing (DEFRULE FIRST-FILENAME-MATCHING ...) ; processing (DEFRULE ALL-FILENAME-MATCHING ...) ; processing (DEFRULE IN-DIRECTORY ...) ; processing (DEFRULE FILENAME-MATCHING ...) ; processing (DEFRULE CSV-URI ...) ; processing (DEFRULE CSV-FILE-SOURCE ...) ; processing (DEFRULE CSV-SOURCE ...) ; processing (DEFUN LIST-SYMBOLS ...) ; processing (DEFRULE LOAD-CSV-FILE-OPTIONAL-CLAUSES ...) ; processing (DEFRULE LOAD-CSV-FILE-COMMAND ...) ; processing (DEFUN LISP-CODE-FOR-CSV-DRY-RUN ...) ; processing (DEFUN LISP-CODE-FOR-LOADING-FROM-CSV ...) ; processing (DEFRULE LOAD-CSV-FILE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-csv-tmpXUIGXRCX.fasl ; compilation finished in 0:00:00.055 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-ixf.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.PARSER) ; processing (DEFRULE TZ-UTC ...) ; processing (DEFRULE TZ-GMT ...) ; processing (DEFRULE TZ-NAME ...) ; processing (DEFRULE OPTION-TIMEZONE ...) ; processing (DEFRULE IXF-OPTION ...) ; processing (DEFRULE IXF-OPTIONS ...) ; processing (DEFRULE IXF-URI ...) ; processing (DEFRULE IXF-FILE-SOURCE ...) ; processing (DEFRULE IXF-SOURCE ...) ; processing (DEFRULE LOAD-IXF-OPTIONAL-CLAUSES ...) ; processing (DEFRULE LOAD-IXF-COMMAND ...) ; processing (DEFUN LISP-CODE-FOR-LOADING-FROM-IXF ...) ; processing (DEFRULE LOAD-IXF-FILE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-ixf-tmp5WEDM9IY.fasl ; compilation finished in 0:00:00.013 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-fixed.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.PARSER) ; processing (DEFRULE OPTION-FIXED-HEADER ...) ; processing (DEFRULE HEX-NUMBER ...) ; processing (DEFRULE DEC-NUMBER ...) ; processing (DEFRULE NUMBER ...) ; processing (DEFRULE FIELD-START-POSITION ...) ; processing (DEFRULE FIXED-FIELD-LENGTH ...) ; processing (DEFRULE FIXED-SOURCE-FIELD ...) ; processing (DEFRULE ANOTHER-FIXED-SOURCE-FIELD ...) ; processing (DEFRULE FIXED-SOURCE-FIELDS ...) ; processing (DEFRULE FIXED-SOURCE-FIELD-LIST ...) ; processing (DEFRULE FIXED-OPTION ...) ; processing (DEFRULE FIXED-OPTIONS ...) ; processing (DEFRULE FIXED-URI ...) ; processing (DEFRULE FIXED-FILE-SOURCE ...) ; processing (DEFRULE FIXED-SOURCE ...) ; processing (DEFRULE LOAD-FIXED-COLS-FILE-OPTIONAL-CLAUSES ...) ; processing (DEFRULE LOAD-FIXED-COLS-FILE-COMMAND ...) ; processing (DEFUN LISP-CODE-FOR-LOADING-FROM-FIXED ...) ; processing (DEFRULE LOAD-FIXED-COLS-FILE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-fixed-tmpG3DC7RC6.fasl ; compilation finished in 0:00:00.019 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-copy.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.PARSER) ; processing (DEFRULE COPY-SOURCE-FIELD ...) ; processing (DEFRULE ANOTHER-COPY-SOURCE-FIELD ...) ; processing (DEFRULE COPY-SOURCE-FIELDS ...) ; processing (DEFRULE COPY-SOURCE-FIELD-LIST ...) ; processing (DEFRULE OPTION-DELIMITER ...) ; processing (DEFRULE OPTION-NULL ...) ; processing (DEFRULE COPY-OPTION ...) ; processing (DEFRULE COPY-OPTIONS ...) ; processing (DEFRULE COPY-URI ...) ; processing (DEFRULE COPY-FILE-SOURCE ...) ; processing (DEFRULE COPY-SOURCE ...) ; processing (DEFRULE LOAD-COPY-FILE-OPTIONAL-CLAUSES ...) ; processing (DEFRULE LOAD-COPY-FILE-COMMAND ...) ; processing (DEFUN LISP-CODE-FOR-LOADING-FROM-COPY ...) ; processing (DEFRULE LOAD-COPY-FILE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-copy-tmp7RSTX2RJ.fasl ; compilation finished in 0:00:00.019 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-dbf.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.PARSER) ; processing (DEFRULE OPTION-CREATE-TABLE ...) ; processing (DEFRULE QUOTED-TABLE-NAME ...) ; processing (DEFRULE OPTION-TABLE-NAME ...) ; processing (DEFRULE DBF-OPTION ...) ; processing (DEFRULE DBF-OPTIONS ...) ; processing (DEFRULE DBF-URI ...) ; processing (DEFRULE DBF-FILE-SOURCE ...) ; processing (DEFRULE DBF-SOURCE ...) ; processing (DEFRULE LOAD-DBF-OPTIONAL-CLAUSES ...) ; processing (DEFRULE DBF-FILE-ENCODING ...) ; processing (DEFRULE LOAD-DBF-COMMAND ...) ; processing (DEFUN LISP-CODE-FOR-DBF-DRY-RUN ...) ; processing (DEFUN LISP-CODE-FOR-LOADING-FROM-DBF ...) ; processing (DEFRULE LOAD-DBF-FILE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-dbf-tmpMYAZIBWI.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-cast-rules.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PARSER) ; processing (DEFRULE CAST-TYPEMOD-GUARD ...) ; processing (DEFRULE CAST-DEFAULT-GUARD ...) ; processing (DEFRULE CAST-UNSIGNED-GUARD ...) ; processing (DEFRULE CAST-SIGNED-GUARD ...) ; processing (DEFRULE CAST-SOURCE-EXTRA ...) ; processing (DEFRULE CAST-TYPE-NAME ...) ; processing (DEFRULE CAST-SOURCE-TYPE ...) ; processing (DEFRULE TABLE-COLUMN-NAME ...) ; processing (DEFRULE CAST-SOURCE-COLUMN ...) ; processing (DEFRULE CAST-SOURCE-EXTRA-OR-GUARD ...) ; processing (DEFRULE CAST-SOURCE ...) ; processing (DEFRULE CAST-TO-TYPE ...) ; processing (DEFRULE CAST-KEEP-DEFAULT ...) ; processing (DEFRULE CAST-KEEP-TYPEMOD ...) ; processing (DEFRULE CAST-KEEP-NOT-NULL ...) ; processing (DEFRULE CAST-DROP-DEFAULT ...) ; processing (DEFRULE CAST-DROP-TYPEMOD ...) ; processing (DEFRULE CAST-DROP-NOT-NULL ...) ; processing (DEFRULE CAST-SET-NOT-NULL ...) ; processing (DEFRULE CAST-KEEP-EXTRA ...) ; processing (DEFRULE CAST-DROP-EXTRA ...) ; processing (DEFRULE CAST-DEF ...) ; processing (DEFUN FUNCTION-NAME-CHARACTER-P ...) ; processing (DEFRULE FUNCTION-NAME ...) ; processing (DEFRULE PACKAGE-AND-FUNCTION-NAMES ...) ; processing (DEFRULE MAYBE-QUALIFIED-FUNCTION-NAME ...) ; processing (DEFRULE TRANSFORM-EXPRESSION ...) ; processing (DEFRULE CAST-FUNCTION ...) ; processing (DEFUN FIX-TARGET-TYPE ...) ; processing (DEFRULE CAST-RULE ...) ; processing (DEFRULE ANOTHER-CAST-RULE ...) ; processing (DEFRULE CAST-RULE-LIST ...) ; processing (DEFRULE CASTS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-cast-rules-tmp93L20JIY.fasl ; compilation finished in 0:00:00.022 WARNING: Prefix ":" before "::" in an ESRAP OR expression. ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-materialize-views.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.PARSER) ; processing (DEFRULE VIEW-NAME ...) ; processing (DEFRULE VIEW-SQL ...) ; processing (DEFRULE VIEW-DEFINITION ...) ; processing (DEFRULE ANOTHER-VIEW-DEFINITION ...) ; processing (DEFRULE VIEWS-LIST ...) ; processing (DEFRULE MATERIALIZE-ALL-VIEWS ...) ; processing (DEFRULE MATERIALIZE-VIEW-LIST ...) ; processing (DEFRULE MATERIALIZE-VIEWS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-materialize-views-tmpTC0DH7S0.fasl ; compilation finished in 0:00:00.006 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-alter-table.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.PARSER) ; processing (DEFRULE MATCH-RULE-TARGET-REGEX ...) ; processing (DEFRULE MATCH-RULE-TARGET-STRING ...) ; processing (DEFRULE MATCH-RULE-TARGET ...) ; processing (DEFRULE ANOTHER-MATCH-RULE-TARGET ...) ; processing (DEFRULE FILTER-LIST-MATCHING ...) ; processing (DEFRULE ALTER-TABLE-NAMES-MATCHING ...) ; processing (DEFRULE IN-SCHEMA ...) ; processing (DEFRULE RENAME-TO ...) ; processing (DEFRULE SET-SCHEMA ...) ; processing (DEFRULE SET-STORAGE-PARAMETERS ...) ; processing (DEFRULE SET-TABLESPACE ...) ; processing (DEFRULE ALTER-TABLE-ACTION ...) ; processing (DEFRULE ALTER-TABLE-COMMAND ...) ; processing (DEFRULE ALTER-TABLE ...) ; processing (DEFRULE ALTER-SCHEMA-RENAME-TO ...) ; processing (DEFRULE ALTER-SCHEMA ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-alter-table-tmpC2C32579.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-distribute.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PARSER) ; processing (DEFUN CREATE-TABLE-FROM-DSN-TABLE-NAME ...) ; processing (DEFRULE DISTRIBUTE-REFERENCE ...) ; processing (DEFRULE DISTRIBUTE-USING ...) ; processing (DEFRULE DISTRIBUTE-FROM-TABLENAME ...) ; processing (DEFRULE MAYBE-QUALIFIED-DIST-FROM-TABLE-NAME ...) ; processing (DEFRULE DISTRIBUTE-FROM-LIST ...) ; processing (DEFRULE DISTRIBUTE-USING-FROM ...) ; processing (DEFRULE DISTRIBUTE-COMMANDS ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-distribute-tmpK1GRILVK.fasl ; compilation finished in 0:00:00.008 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-mysql.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PARSER) ; processing (DEFRULE MYSQL-OPTION ...) ; processing (DEFRULE MYSQL-OPTIONS ...) ; processing (DEFRULE INCLUDING-MATCHING ...) ; processing (DEFRULE EXCLUDING-MATCHING ...) ; processing (DEFRULE DECODING-TABLE-AS ...) ; processing (DEFRULE DECODING-TABLES-AS ...) ; processing (DEFRULE MYSQL-GUCS ...) ; processing (DEFRULE LOAD-MYSQL-OPTIONAL-CLAUSES ...) ; processing (DEFRULE MYSQL-PREFIX ...) ; processing (DEFRULE MYSQL-DSN-OPTION-USESSL-TRUE ...) ; processing (DEFRULE MYSQL-DSN-OPTION-USESSL-FALSE ...) ; processing (DEFRULE MYSQL-DSN-OPTION-USESSL ...) ; processing (DEFRULE MYSQL-DSN-OPTION ...) ; processing (DEFRULE MYSQL-DSN-OPTIONS ...) ; processing (DEFRULE MYSQL-URI ...) ; processing (DEFRULE MYSQL-SOURCE ...) ; processing (DEFRULE LOAD-MYSQL-COMMAND ...) ; processing (DEFUN LISP-CODE-FOR-MYSQL-DRY-RUN ...) ; processing (DEFUN LISP-CODE-FOR-LOADING-FROM-MYSQL ...) ; processing (DEFRULE LOAD-MYSQL-DATABASE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-mysql-tmpDO67TKN4.fasl ; compilation finished in 0:00:00.022 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-including-like.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.PARSER) ; processing (DEFRULE LIKE-EXPRESSION ...) ; processing (DEFRULE ANOTHER-LIKE-EXPRESSION ...) ; processing (DEFRULE FILTER-LIST-LIKE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-including-like-tmpABZ5EEBJ.fasl ; compilation finished in 0:00:00.002 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-mssql.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PARSER) ; processing (MAKE-OPTION-RULE CREATE-SCHEMAS ...) ; processing (DEFRULE MSSQL-OPTION ...) ; processing (DEFRULE MSSQL-OPTIONS ...) ; processing (DEFRULE INCLUDING-IN-SCHEMA ...) ; processing (DEFRULE INCLUDING-LIKE-IN-SCHEMA ...) ; processing (DEFRULE EXCLUDING-IN-SCHEMA ...) ; processing (DEFRULE EXCLUDING-LIKE-IN-SCHEMA ...) ; processing (DEFRULE MSSQL-GUCS ...) ; processing (DEFRULE LOAD-MSSQL-OPTIONAL-CLAUSES ...) ; processing (DEFRULE MSSQL-PREFIX ...) ; processing (DEFRULE MSSQL-URI ...) ; processing (DEFRULE MSSQL-SOURCE ...) ; processing (DEFRULE LOAD-MSSQL-COMMAND ...) ; processing (DEFUN LISP-CODE-FOR-MSSQL-DRY-RUN ...) ; processing (DEFUN LISP-CODE-FOR-LOADING-FROM-MSSQL ...) ; processing (DEFRULE LOAD-MSSQL-DATABASE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-mssql-tmp2E3UPG8J.fasl ; compilation finished in 0:00:00.021 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-sqlite.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.PARSER) ; processing (DEFRULE SQLITE-OPTION ...) ; processing (DEFRULE SQLITE-OPTIONS ...) ; processing (DEFRULE INCLUDING-LIKE ...) ; processing (DEFRULE EXCLUDING-LIKE ...) ; processing (DEFRULE SQLITE-DB-URI ...) ; processing (DEFRULE SQLITE-URI ...) ; processing (DEFRULE SQLITE-SOURCE ...) ; processing (DEFRULE LOAD-SQLITE-OPTIONAL-CLAUSES ...) ; processing (DEFRULE LOAD-SQLITE-COMMAND ...) ; processing (DEFUN LISP-CODE-FOR-SQLITE-DRY-RUN ...) ; processing (DEFUN LISP-CODE-FOR-LOADING-FROM-SQLITE ...) ; processing (DEFRULE LOAD-SQLITE-DATABASE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-sqlite-tmpJ9Q6NV59.fasl ; compilation finished in 0:00:00.015 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-pgsql.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PARSER) ; processing (DEFRULE PGSQL-OPTION ...) ; processing (DEFRULE PGSQL-OPTIONS ...) ; processing (DEFRULE INCLUDING-MATCHING-IN-SCHEMA-FILTER ...) ; processing (DEFRULE INCLUDING-MATCHING-IN-SCHEMA ...) ; processing (DEFRULE EXCLUDING-MATCHING-IN-SCHEMA-FILTER ...) ; processing (DEFRULE EXCLUDING-MATCHING-IN-SCHEMA ...) ; processing (DEFRULE LOAD-PGSQL-OPTIONAL-CLAUSES ...) ; processing (DEFRULE PGSQL-SOURCE ...) ; processing (DEFRULE LOAD-PGSQL-COMMAND ...) ; processing (DEFUN LISP-CODE-FOR-PGSQL-DRY-RUN ...) ; processing (DEFUN LISP-CODE-FOR-LOADING-FROM-PGSQL ...) ; processing (DEFRULE LOAD-PGSQL-DATABASE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-pgsql-tmpAD6DHN5B.fasl ; compilation finished in 0:00:00.017 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-archive.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.PARSER) ; processing (DEFRULE ARCHIVE-COMMAND ...) ; processing (DEFRULE ANOTHER-ARCHIVE-COMMAND ...) ; processing (DEFRULE ARCHIVE-COMMAND-LIST ...) ; processing (DEFRULE ARCHIVE-SOURCE ...) ; processing (DEFRULE LOAD-ARCHIVE-CLAUSES ...) ; processing (DEFRULE LOAD-ARCHIVE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-archive-tmpEV76XDJ7.fasl ; compilation finished in 0:00:00.008 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-parser.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.PARSER) ; processing (DEFRULE END-OF-COMMAND ...) ; processing (DEFRULE COMMAND ...) ; processing (DEFRULE COMMANDS ...) ; processing (DEFUN PARSE-COMMANDS ...) ; processing (DEFUN INJECT-INLINE-DATA-POSITION ...) ; processing (DEFUN PROCESS-RELATIVE-PATHNAMES ...) ; processing (DEFUN PARSE-COMMANDS-FROM-FILE ...) ; file: /build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-parser.lisp ; in: DEFUN PARSE-COMMANDS-FROM-FILE ; (ERROR "Inline data not found in '~a'." PGLOADER.PARSER::FILENAME) ; ; note: deleting unreachable code ; processing (DEFVAR *DATA-SOURCE-FILENAME-EXTENSIONS* ...) ; processing (DEFUN PARSE-FILENAME-FOR-SOURCE-TYPE ...) ; processing (DEFVAR *PARSE-RULE-FOR-SOURCE-TYPES* ...) ; processing (DEFUN PARSE-SOURCE-STRING-FOR-TYPE ...) ; processing (DEFRULE SOURCE-URI ...) ; processing (DEFUN PARSE-SOURCE-STRING ...) ; processing (DEFUN PARSE-TARGET-STRING ...) ; processing (DEFUN PARSE-CLI-GUCS ...) ; processing (DEFRULE DBF-TYPE-NAME ...) ; processing (DEFRULE SQLITE-TYPE-NAME ...) ; processing (DEFRULE CLI-TYPE ...) ; processing (DEFUN PARSE-CLI-TYPE ...) ; processing (DEFUN PARSE-CLI-ENCODING ...) ; processing (DEFUN PARSE-CLI-FIELDS ...) ; processing (DEFUN PARSE-CLI-OPTIONS ...) ; processing (DEFUN PARSE-CLI-CASTS ...) ; processing (DEFUN PARSE-SQL-FILE ...) ; processing (DEFRULE PG-DB-URI-FROM-COMMAND ...) ; processing (DEFRULE PG-DB-URI-FROM-FILES ...) ; processing (DEFRULE PG-DB-URI-FROM-SOURCE-TARGET ...) ; processing (DEFRULE PG-DB-URI-FROM-SOURCE-TABLE-TARGET ...) ; processing (DEFRULE PG-DB-URI-FROM-SOURCE-AND-ENCODING ...) ; processing (DEFUN PARSE-TARGET-PG-DB-URI ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/command-parser-tmp6NE9XUCB.fasl ; compilation finished in 0:00:00.037 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/parse-sqlite-type-name.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE :PGLOADER.PARSER) ; processing (DEFRULE EXTRA-QUALIFIERS ...) ; processing (DEFRULE SQLITE-SINGLE-TYPEMOD ...) ; processing (DEFRULE SQLITE-DOUBLE-TYPEMOD ...) ; processing (DEFRULE SQLITE-TYPEMOD ...) ; processing (DEFRULE SQLITE-TYPE-NAME ...) ; processing (DEFRULE SQLITE-TYPE-EXPR ...) ; processing (DEFUN PARSE-SQLITE-TYPE-NAME ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/parse-sqlite-type-name-tmpHG4AAN1T.fasl ; compilation finished in 0:00:00.008 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/date-format.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER.PARSE-DATE) ; processing (DEFVAR *CENTURY* ...) ; processing (DEFUN PARSE-DATE-STRING ...) ; processing (DEFVAR *OFFSET* ...) ; processing (DEFUN PARSE-DATE-FORMAT ...) ; processing (DEFRULE FORMAT-STRING ...) ; processing (DEFRULE NOISE ...) ; processing (DEFRULE YEAR ...) ; processing (DEFRULE YEAR4 ...) ; processing (DEFRULE YEAR3 ...) ; processing (DEFRULE YEAR2 ...) ; processing (DEFRULE MONTH ...) ; processing (DEFRULE MM ...) ; processing (DEFRULE DAY ...) ; processing (DEFRULE DD ...) ; processing (DEFRULE HOUR ...) ; processing (DEFRULE HH ...) ; processing (DEFRULE HH12 ...) ; processing (DEFRULE HH24 ...) ; processing (DEFRULE AMPM ...) ; processing (DEFRULE AM ...) ; processing (DEFRULE AM-DOT ...) ; processing (DEFRULE PM ...) ; processing (DEFRULE PM-DOT ...) ; processing (DEFRULE MINUTE ...) ; processing (DEFRULE MI ...) ; processing (DEFRULE SECONDS ...) ; processing (DEFRULE SS ...) ; processing (DEFRULE MILLISECONDS ...) ; processing (DEFRULE MS ...) ; processing (DEFRULE MICROSECONDS ...) ; processing (DEFRULE US ...) ; processing (DEFUN BUILD-FORMAT-SPEC ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/date-format-tmp6TLO0BDD.fasl ; compilation finished in 0:00:00.026 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/api.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER) ; processing (DEFINE-CONDITION SOURCE-DEFINITION-ERROR ...) ; processing (DEFINE-CONDITION CLI-PARSING-ERROR ...) ; processing (DEFINE-CONDITION LOAD-FILES-NOT-FOUND-ERROR ...) ; processing (DEFUN PROCESS-COMMAND-FILE ...) ; processing (DEFUN PROCESS-SOURCE-AND-TARGET ...) ; processing (DEFUN RUN-COMMANDS ...) ; processing (DEFUN LOAD-DATA ...) ; file: /build/pgloader-JXcgv0/pgloader-3.6.3/src/api.lisp ; in: DEFUN LOAD-DATA ; (MEMBER (TYPE-OF PGLOADER::SOURCE) ; '(PGLOADER.SOURCE.SQLITE:SQLITE-CONNECTION ; PGLOADER.SOURCE.MYSQL:MYSQL-CONNECTION ; PGLOADER.SOURCE.MSSQL:MSSQL-CONNECTION)) ; ; note: deleting unreachable code ; processing (DEFVAR *GET-CODE-FOR-SOURCE* ...) ; processing (DEFUN LISP-CODE-FOR-LOADING ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/api-tmpDAM8R5KO.fasl ; compilation finished in 0:00:00.048 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/regress/regress.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER) ; processing (DEFINE-CONDITION REGRESSION-TEST-ERROR ...) ; processing (DEFUN PROCESS-REGRESSION-TEST ...) ; processing (DEFUN LIST-COLUMNS ...) ; processing (DEFUN REGRESSION-TEST-EXPECTED-DATA-SOURCE ...) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/regress/regress-tmp4TY0DSV3.fasl ; compilation finished in 0:00:00.061 ; compiling file "/build/pgloader-JXcgv0/pgloader-3.6.3/src/main.lisp" (written 22 DEC 2021 04:27:14 PM): ; processing (IN-PACKAGE #:PGLOADER) ; processing (DEFUN LOG-THRESHOLD ...) ; processing (DEFPARAMETER *OPT-SPEC* ...) ; processing (DEFUN PRINT-BACKTRACE ...) ; processing (DEFUN MKDIR-OR-DIE ...) ; processing (DEFUN LOG-FILE-NAME ...) ; processing (DEFUN USAGE ...) ; processing (DEFVAR *SELF-UPGRADED-ALREADY* ...) ; processing (DEFUN SELF-UPGRADE ...) ; processing (DEFUN PARSE-SUMMARY-FILENAME ...) ; processing (DEFVAR *--LOAD-LIST-FILE-EXTENSION-WHITELIST* ...) ; processing (DEFUN LOAD-EXTRA-TRANSFORMATION-FUNCTIONS ...) ; processing (DEFUN MAIN ...) ; file: /build/pgloader-JXcgv0/pgloader-3.6.3/src/main.lisp ; in: DEFUN MAIN ; (MEMBER PGLOADER.PARAMS:*CLIENT-MIN-MESSAGES* '(:INFO :DEBUG :DATA)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/build/pgloader-JXcgv0/pgloader-3.6.3/src/main-tmp1EP92JDZ.fasl ; compilation finished in 0:00:00.054 ; file: /usr/share/common-lisp/source/uax-15/src/precomputed-tables.lisp ; in: ; MAPHASH (LAMBDA (UAX-15::SRC-CHAR UAX-15::DECOMPED-CHARS) ; (WHEN ; (AND (= 2 (LENGTH UAX-15::DECOMPED-CHARS)) ; (NOT ; (GETHASH UAX-15::SRC-CHAR ; UAX-15::*COMPOSITION-EXCLUSIONS-DATA*))) ; (SETF (GETHASH # UAX-15::*CANONICAL-COMP-MAP*) UAX-15::SRC-CHAR))) ; (MAPHASH ; (LAMBDA (UAX-15::SRC-CHAR UAX-15::DECOMPED-CHARS) ; (WHEN (AND (= 2 #) (NOT #)) (SETF # UAX-15::SRC-CHAR))) ; UAX-15::*CANONICAL-DECOMP-MAP*) ; --> LET* SB-IMPL::HASH-TABLE-PAIRS ; ==> ; 1 ; ; caught WARNING: ; undefined variable: UAX-15::*CANONICAL-DECOMP-MAP* ; file: /usr/share/common-lisp/source/cl-mustache/mustache.lisp ; in: DEFUN MUSTACHE::%OUTPUT ; (IF (EQ MUSTACHE:*MUSTACHE-OUTPUT* MUSTACHE::*REAL-STANDARD-OUTPUT*) ; MUSTACHE:*OUTPUT-STREAM* ; MUSTACHE:*MUSTACHE-OUTPUT*) ; ; caught WARNING: ; undefined variable: MUSTACHE:*MUSTACHE-OUTPUT* ; (EQ MUSTACHE:*MUSTACHE-OUTPUT* MUSTACHE::*REAL-STANDARD-OUTPUT*) ; ; caught WARNING: ; undefined variable: MUSTACHE:*MUSTACHE-OUTPUT* ; file: /build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/mysql/mysql-cast-rules.lisp ; in: DEFUN PGLOADER.SOURCE.MYSQL::TEST-CASTS ; (PGLOADER.SOURCE.MYSQL::FORMAT-COLUMN PGLOADER.SOURCE.MYSQL::PGCOL) ; ; caught STYLE-WARNING: ; undefined function: PGLOADER.SOURCE.MYSQL::FORMAT-COLUMN ; file: /build/pgloader-JXcgv0/pgloader-3.6.3/src/parsers/parse-ini.lisp ; in: DEFUN PGLOADER.INI::GET-PGSQL-COLUMN-SPECS ; (PGLOADER.INI::LIST-COLUMNS PGLOADER.INI::PGCONN PGLOADER.CATALOG:TABLE-NAME) ; ; caught STYLE-WARNING: ; undefined function: PGLOADER.INI::LIST-COLUMNS ; file: /build/pgloader-JXcgv0/pgloader-3.6.3/src/sources/common/matviews.lisp ; in: ; DEFMETHOD PGLOADER.SOURCES:FORMAT-MATVIEW-NAME (T PGLOADER.SOURCES:DB-COPY) ; (PGLOADER.CATALOG:SCHEMA-SOURCE-NAME PGLOADER.CATALOG:SCHEMA) ; ; caught WARNING: ; undefined variable: PGLOADER.CATALOG:SCHEMA ; file: /usr/share/common-lisp/source/metatilities-base/dev/copy-file.lisp ; in: DEFUN METABANG.UTILITIES:COPY-FILE ; (MAKE-CONDITION 'METABANG.UTILITIES::SOURCE/TARGET-TARGET-ALREADY-EXISTS ; :PATHNAME METABANG.UTILITIES::FROM :TARGET-PATHNAME ; METABANG.UTILITIES::TO) ; ; caught STYLE-WARNING: ; undefined type: METABANG.UTILITIES::SOURCE/TARGET-TARGET-ALREADY-EXISTS ; ; compilation unit finished ; Undefined type: ; METABANG.UTILITIES::SOURCE/TARGET-TARGET-ALREADY-EXISTS ; Undefined functions: ; PGLOADER.SOURCE.MYSQL::FORMAT-COLUMN PGLOADER.INI::LIST-COLUMNS ; Undefined variables: ; UAX-15::*CANONICAL-DECOMP-MAP* MUSTACHE:*MUSTACHE-OUTPUT* PGLOADER.CATALOG:SCHEMA ; caught 4 WARNING conditions ; caught 71 STYLE-WARNING conditions ; printed 4928 notes ; compiling file "/usr/share/common-lisp/source/cl-containers/dev/utilities-integration.lisp" (written 28 MAR 2017 01:15:31 PM): ; processing (IN-PACKAGE #:METATILITIES) ; processing (EVAL-WHEN (:COMPILE-TOPLEVEL) ...) ; processing (MAKE-LOAD-FORM* ABSTRACT-CONTAINER) ; processing (MAKE-LOAD-FORM* CONTAINER-NODE-MIXIN) ; wrote /build/pgloader-JXcgv0/pgloader-3.6.3/debian/home/.cache/common-lisp/sbcl-2.2.3.debian-linux-x64/usr/share/common-lisp/source/cl-containers/dev/utilities-integration-tmpN31RJKRX.fasl ; compilation finished in 0:00:00.005 test ! -f buildapp.fail /usr/bin/make -C docs html make[2]: Entering directory '/build/pgloader-JXcgv0/pgloader-3.6.3/docs' Running Sphinx v4.5.0 making output directory... done WARNING: html_static_path entry '_static' does not exist building [mo]: targets for 0 po files that are out of date building [html]: targets for 26 source files that are out of date updating environment: [new config] 26 added, 0 changed, 0 removed reading sources... [ 3%] bugreport reading sources... [ 7%] index reading sources... [ 11%] intro reading sources... [ 15%] pgloader reading sources... [ 19%] pgloader-usage-examples reading sources... [ 23%] quickstart reading sources... [ 26%] ref/archive reading sources... [ 30%] ref/copy reading sources... [ 34%] ref/csv reading sources... [ 38%] ref/dbf reading sources... [ 42%] ref/fixed reading sources... [ 46%] ref/ixf reading sources... [ 50%] ref/mssql reading sources... [ 53%] ref/mysql reading sources... [ 57%] ref/pgsql reading sources... [ 61%] ref/pgsql-citus-target reading sources... [ 65%] ref/pgsql-redshift reading sources... [ 69%] ref/sqlite reading sources... [ 73%] ref/transforms reading sources... [ 76%] tutorial/csv reading sources... [ 80%] tutorial/dBase reading sources... [ 84%] tutorial/fixed reading sources... [ 88%] tutorial/geolite reading sources... [ 92%] tutorial/mysql reading sources... [ 96%] tutorial/sqlite reading sources... [100%] tutorial/tutorial /build/pgloader-JXcgv0/pgloader-3.6.3/docs/tutorial/tutorial.rst:2: WARNING: Duplicate explicit target name: "postgresql". tutorial/sqlite.rst:4: ERROR: Duplicate target name, cannot be used as a unique reference: "postgresql". looking for now-outdated files... none found pickling environment... done checking consistency... /build/pgloader-JXcgv0/pgloader-3.6.3/docs/pgloader-usage-examples.rst: WARNING: document isn't included in any toctree done preparing documents... WARNING: unsupported theme option 'github_user' given WARNING: unsupported theme option 'github_repo' given WARNING: unsupported theme option 'description' given WARNING: unsupported theme option 'travis_button' given WARNING: unsupported theme option 'show_related' given done writing output... [ 3%] bugreport writing output... [ 7%] index writing output... [ 11%] intro writing output... [ 15%] pgloader writing output... [ 19%] pgloader-usage-examples writing output... [ 23%] quickstart writing output... [ 26%] ref/archive writing output... [ 30%] ref/copy writing output... [ 34%] ref/csv writing output... [ 38%] ref/dbf writing output... [ 42%] ref/fixed writing output... [ 46%] ref/ixf writing output... [ 50%] ref/mssql writing output... [ 53%] ref/mysql writing output... [ 57%] ref/pgsql writing output... [ 61%] ref/pgsql-citus-target writing output... [ 65%] ref/pgsql-redshift writing output... [ 69%] ref/sqlite writing output... [ 73%] ref/transforms writing output... [ 76%] tutorial/csv writing output... [ 80%] tutorial/dBase writing output... [ 84%] tutorial/fixed writing output... [ 88%] tutorial/geolite writing output... [ 92%] tutorial/mysql writing output... [ 96%] tutorial/sqlite writing output... [100%] tutorial/tutorial generating indices... genindex done writing additional pages... search done copying static files... done copying extra files... done dumping search index in English (code: en)... done dumping object inventory... done build succeeded, 9 warnings. The HTML pages are in _build/html. make[2]: Leaving directory '/build/pgloader-JXcgv0/pgloader-3.6.3/docs' make[1]: Leaving directory '/build/pgloader-JXcgv0/pgloader-3.6.3' dh: command-omitted: The call to "debian/rules override_dh_auto_test" was omitted due to "DEB_BUILD_OPTIONS=nocheck" create-stamp debian/debhelper-build-stamp fakeroot debian/rules binary-arch dh binary-arch dh_testroot -a dh_prep -a dh_auto_install --destdir=debian/pgloader/ -a dh_install -a dh_installdocs -a dh_installchangelogs -a debian/rules override_dh_installman-arch make[1]: Entering directory '/build/pgloader-JXcgv0/pgloader-3.6.3' mkdir -p debian/pgloader/usr/share/man/man1/ PATH=debian/pgloader/usr/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/sbin:/usr/bin:/sbin:/bin \ help2man --version-string 3.6.3 \ --no-info \ --name "extract, transform and load data into PostgreSQL" \ pgloader > \ debian/pgloader/usr/share/man/man1/pgloader.1 make[1]: Leaving directory '/build/pgloader-JXcgv0/pgloader-3.6.3' dh_perl -a dh_link -a dh_strip_nondeterminism -a dh_compress -a dh_fixperms -a dh_missing -a debian/rules override_dh_dwz make[1]: Entering directory '/build/pgloader-JXcgv0/pgloader-3.6.3' # do nothing, sbcl doesn't write any debug info make[1]: Leaving directory '/build/pgloader-JXcgv0/pgloader-3.6.3' debian/rules override_dh_strip make[1]: Entering directory '/build/pgloader-JXcgv0/pgloader-3.6.3' # do nothing, sbcl doesn't write any debug info make[1]: Leaving directory '/build/pgloader-JXcgv0/pgloader-3.6.3' dh_makeshlibs -a dh_shlibdeps -a dh_installdeb -a debian/rules override_dh_gencontrol make[1]: Entering directory '/build/pgloader-JXcgv0/pgloader-3.6.3' dh_gencontrol -- -V"ssl:Depends=libssl1.1" make[1]: Leaving directory '/build/pgloader-JXcgv0/pgloader-3.6.3' dh_md5sums -a dh_builddeb -a dpkg-deb: building package 'pgloader' in '../pgloader_3.6.3-1+b1_amd64.deb'. dpkg-genbuildinfo --build=any -O../pgloader_3.6.3-1+b1_amd64.buildinfo dpkg-genchanges --build=any -O../pgloader_3.6.3-1+b1_amd64.changes dpkg-genchanges: info: binary-only arch-specific upload (source code and arch-indep packages not included) dpkg-source --after-build . dpkg-source: info: using options from pgloader-3.6.3/debian/source/options: --extend-diff-ignore=src/params.lisp dpkg-buildpackage: info: binary-only upload (no source included) I: running special hook: sync-out /build/pgloader-JXcgv0 /tmp/pgloader-3.6.3-1+b1pe5fhgiw I: cleaning package lists and apt cache... W: deleting files in /tmp: pgloader I: removing tempdir /tmp/mmdebstrap.yarj3qq8PU... I: success in 502.3712 seconds md5: Value of 'md5' differs for pgloader_3.6.3-1+b1_amd64.deb md5: Size differs for pgloader_3.6.3-1+b1_amd64.deb sha1: Value of 'sha1' differs for pgloader_3.6.3-1+b1_amd64.deb sha1: Size differs for pgloader_3.6.3-1+b1_amd64.deb sha256: Value of 'sha256' differs for pgloader_3.6.3-1+b1_amd64.deb sha256: Size differs for pgloader_3.6.3-1+b1_amd64.deb Checksums: FAIL Cannot generate diffoscope for pgloader_3.6.3-1+b1_amd64.deb: RetryError[]