starting phase `set-SOURCE-DATE-EPOCH'
phase `set-SOURCE-DATE-EPOCH' succeeded after 0.0 seconds
starting phase `set-paths'
environment variable `PATH' set to `/gnu/store/i8wj59i9x3p8k253jmhxn5hi2iw0x4hw-sbcl-2.1.4/bin:/gnu/store/ixm51m1jcfw4rhvwnd690szfv2w3pcsm-openssl-1.1.1j/bin:/gnu/store/v6f44zccwh9z5zk3pjlywjybbi8n2hjh-tar-1.32/bin:/gnu/store/ncydgq2znms5n1d2k5yqshhf58nsixwv-gzip-1.10/bin:/gnu/store/i8h2pcxqdq07ijm3ibkka8f4smn1w48v-bzip2-1.0.8/bin:/gnu/store/9860f1abqj8wjjnwl8a9v54pdcc3bhgf-xz-5.2.4/bin:/gnu/store/60g7r3l01fd7c58yjbm6krgcwj1jkpwg-file-5.38/bin:/gnu/store/n4n560pfvvw50a9369axw5vj5rrqfj1n-diffutils-3.7/bin:/gnu/store/cd5qf3kcnlq35p9k392pjdpdzpsnds70-patch-2.7.6/bin:/gnu/store/hic7snhayfl7m6cpfqqr73nmm19bpqkg-findutils-4.7.0/bin:/gnu/store/swqdvwri9dbv6zssg6v0by7l05hd6wxp-gawk-5.0.1/bin:/gnu/store/ishk7fswcs4gkwcp8mh788z4mvvl9bxh-sed-4.8/bin:/gnu/store/bhs4rj58v8j1narb2454raan2ps38xd8-grep-3.4/bin:/gnu/store/57xj5gcy1jbl9ai2lnrqnpr0dald9i65-coreutils-8.32/bin:/gnu/store/hm40bxnv8jxmbc1lpb7zfimii4xm9m81-make-4.3/bin:/gnu/store/pwcp239kjf7lnj5i4lkdzcfcxwcfyk72-bash-minimal-5.0.16/bin:/gnu/store/mpa04aq8lblbcviyxywxcsb1zbi0mf39-ld-wrapper-0/bin:/gnu/store/m1z7cdbqsqyp9xnjw5cvlb4a7gkcg3m4-binutils-2.34/bin:/gnu/store/rn75fm7adgx3pw5j8pg3bczfqq1y17lk-gcc-7.5.0/bin:/gnu/store/fa6wj5bxkj5ll1d7292a70knmyl7a0cr-glibc-2.31/bin:/gnu/store/fa6wj5bxkj5ll1d7292a70knmyl7a0cr-glibc-2.31/sbin'
environment variable `XDG_DATA_DIRS' set to `/gnu/store/i8wj59i9x3p8k253jmhxn5hi2iw0x4hw-sbcl-2.1.4/share:/gnu/store/ixm51m1jcfw4rhvwnd690szfv2w3pcsm-openssl-1.1.1j/share:/gnu/store/rsp654rxkdx6j4zisynrg15jf0idbs2x-sbcl-cffi-0.23.0/share:/gnu/store/f4in2avmdas4m9fa3mj55xf3wl5k3968-sbcl-trivial-gray-streams-0.0.0-1.ebd59b1/share:/gnu/store/rzkimhcq8jhynhah401s5y7jhp7ag73z-sbcl-flexi-streams-1.0.18/share:/gnu/store/nmh3ijwshnk2gaflyw783fck6avf56h2-sbcl-bordeaux-threads-0.8.8/share:/gnu/store/nbqxn66i7i7jncyhiijzvwlab03mykd4-sbcl-trivial-garbage-0.21/share:/gnu/store/pjwd7vn0a2j10qqna9dhi1115y8pf5qn-sbcl-alexandria-1.2/share:/gnu/store/8c8x4pndbly2qrk1rddwrqs625qvhiq7-sbcl-trivial-features-0.8-1.870d03d/share:/gnu/store/v6f44zccwh9z5zk3pjlywjybbi8n2hjh-tar-1.32/share:/gnu/store/ncydgq2znms5n1d2k5yqshhf58nsixwv-gzip-1.10/share:/gnu/store/i8h2pcxqdq07ijm3ibkka8f4smn1w48v-bzip2-1.0.8/share:/gnu/store/9860f1abqj8wjjnwl8a9v54pdcc3bhgf-xz-5.2.4/share:/gnu/store/60g7r3l01fd7c58yjbm6krgcwj1jkpwg-file-5.38/share:/gnu/store/n4n560pfvvw50a9369axw5vj5rrqfj1n-diffutils-3.7/share:/gnu/store/cd5qf3kcnlq35p9k392pjdpdzpsnds70-patch-2.7.6/share:/gnu/store/hic7snhayfl7m6cpfqqr73nmm19bpqkg-findutils-4.7.0/share:/gnu/store/swqdvwri9dbv6zssg6v0by7l05hd6wxp-gawk-5.0.1/share:/gnu/store/ishk7fswcs4gkwcp8mh788z4mvvl9bxh-sed-4.8/share:/gnu/store/bhs4rj58v8j1narb2454raan2ps38xd8-grep-3.4/share:/gnu/store/57xj5gcy1jbl9ai2lnrqnpr0dald9i65-coreutils-8.32/share:/gnu/store/hm40bxnv8jxmbc1lpb7zfimii4xm9m81-make-4.3/share:/gnu/store/pwcp239kjf7lnj5i4lkdzcfcxwcfyk72-bash-minimal-5.0.16/share:/gnu/store/m1z7cdbqsqyp9xnjw5cvlb4a7gkcg3m4-binutils-2.34/share:/gnu/store/rn75fm7adgx3pw5j8pg3bczfqq1y17lk-gcc-7.5.0/share:/gnu/store/fa6wj5bxkj5ll1d7292a70knmyl7a0cr-glibc-2.31/share:/gnu/store/s3dcqzwqaakv1yx37by9chksdbkgih17-glibc-2.31-static/share:/gnu/store/gfapkk5c6hvl1d94m4sqnhn7f9l5gqyh-linux-libre-headers-5.4.20/share'
environment variable `XDG_CONFIG_DIRS' set to `/gnu/store/rsp654rxkdx6j4zisynrg15jf0idbs2x-sbcl-cffi-0.23.0/etc:/gnu/store/f4in2avmdas4m9fa3mj55xf3wl5k3968-sbcl-trivial-gray-streams-0.0.0-1.ebd59b1/etc:/gnu/store/rzkimhcq8jhynhah401s5y7jhp7ag73z-sbcl-flexi-streams-1.0.18/etc:/gnu/store/nmh3ijwshnk2gaflyw783fck6avf56h2-sbcl-bordeaux-threads-0.8.8/etc:/gnu/store/nbqxn66i7i7jncyhiijzvwlab03mykd4-sbcl-trivial-garbage-0.21/etc:/gnu/store/pjwd7vn0a2j10qqna9dhi1115y8pf5qn-sbcl-alexandria-1.2/etc:/gnu/store/8c8x4pndbly2qrk1rddwrqs625qvhiq7-sbcl-trivial-features-0.8-1.870d03d/etc:/gnu/store/swqdvwri9dbv6zssg6v0by7l05hd6wxp-gawk-5.0.1/etc:/gnu/store/fa6wj5bxkj5ll1d7292a70knmyl7a0cr-glibc-2.31/etc'
environment variable `SSL_CERT_DIR' unset
environment variable `SSL_CERT_FILE' unset
environment variable `BASH_LOADABLES_PATH' unset
environment variable `C_INCLUDE_PATH' set to `/gnu/store/ixm51m1jcfw4rhvwnd690szfv2w3pcsm-openssl-1.1.1j/include:/gnu/store/rsp654rxkdx6j4zisynrg15jf0idbs2x-sbcl-cffi-0.23.0/include:/gnu/store/i8h2pcxqdq07ijm3ibkka8f4smn1w48v-bzip2-1.0.8/include:/gnu/store/9860f1abqj8wjjnwl8a9v54pdcc3bhgf-xz-5.2.4/include:/gnu/store/60g7r3l01fd7c58yjbm6krgcwj1jkpwg-file-5.38/include:/gnu/store/swqdvwri9dbv6zssg6v0by7l05hd6wxp-gawk-5.0.1/include:/gnu/store/hm40bxnv8jxmbc1lpb7zfimii4xm9m81-make-4.3/include:/gnu/store/m1z7cdbqsqyp9xnjw5cvlb4a7gkcg3m4-binutils-2.34/include:/gnu/store/rn75fm7adgx3pw5j8pg3bczfqq1y17lk-gcc-7.5.0/include:/gnu/store/fa6wj5bxkj5ll1d7292a70knmyl7a0cr-glibc-2.31/include:/gnu/store/gfapkk5c6hvl1d94m4sqnhn7f9l5gqyh-linux-libre-headers-5.4.20/include'
environment variable `CPLUS_INCLUDE_PATH' set to `/gnu/store/ixm51m1jcfw4rhvwnd690szfv2w3pcsm-openssl-1.1.1j/include:/gnu/store/rsp654rxkdx6j4zisynrg15jf0idbs2x-sbcl-cffi-0.23.0/include:/gnu/store/i8h2pcxqdq07ijm3ibkka8f4smn1w48v-bzip2-1.0.8/include:/gnu/store/9860f1abqj8wjjnwl8a9v54pdcc3bhgf-xz-5.2.4/include:/gnu/store/60g7r3l01fd7c58yjbm6krgcwj1jkpwg-file-5.38/include:/gnu/store/swqdvwri9dbv6zssg6v0by7l05hd6wxp-gawk-5.0.1/include:/gnu/store/hm40bxnv8jxmbc1lpb7zfimii4xm9m81-make-4.3/include:/gnu/store/m1z7cdbqsqyp9xnjw5cvlb4a7gkcg3m4-binutils-2.34/include:/gnu/store/rn75fm7adgx3pw5j8pg3bczfqq1y17lk-gcc-7.5.0/include/c++:/gnu/store/rn75fm7adgx3pw5j8pg3bczfqq1y17lk-gcc-7.5.0/include:/gnu/store/fa6wj5bxkj5ll1d7292a70knmyl7a0cr-glibc-2.31/include:/gnu/store/gfapkk5c6hvl1d94m4sqnhn7f9l5gqyh-linux-libre-headers-5.4.20/include'
environment variable `LIBRARY_PATH' set to `/gnu/store/i8wj59i9x3p8k253jmhxn5hi2iw0x4hw-sbcl-2.1.4/lib:/gnu/store/ixm51m1jcfw4rhvwnd690szfv2w3pcsm-openssl-1.1.1j/lib:/gnu/store/rsp654rxkdx6j4zisynrg15jf0idbs2x-sbcl-cffi-0.23.0/lib:/gnu/store/f4in2avmdas4m9fa3mj55xf3wl5k3968-sbcl-trivial-gray-streams-0.0.0-1.ebd59b1/lib:/gnu/store/rzkimhcq8jhynhah401s5y7jhp7ag73z-sbcl-flexi-streams-1.0.18/lib:/gnu/store/nmh3ijwshnk2gaflyw783fck6avf56h2-sbcl-bordeaux-threads-0.8.8/lib:/gnu/store/nbqxn66i7i7jncyhiijzvwlab03mykd4-sbcl-trivial-garbage-0.21/lib:/gnu/store/pjwd7vn0a2j10qqna9dhi1115y8pf5qn-sbcl-alexandria-1.2/lib:/gnu/store/8c8x4pndbly2qrk1rddwrqs625qvhiq7-sbcl-trivial-features-0.8-1.870d03d/lib:/gnu/store/i8h2pcxqdq07ijm3ibkka8f4smn1w48v-bzip2-1.0.8/lib:/gnu/store/9860f1abqj8wjjnwl8a9v54pdcc3bhgf-xz-5.2.4/lib:/gnu/store/60g7r3l01fd7c58yjbm6krgcwj1jkpwg-file-5.38/lib:/gnu/store/swqdvwri9dbv6zssg6v0by7l05hd6wxp-gawk-5.0.1/lib:/gnu/store/m1z7cdbqsqyp9xnjw5cvlb4a7gkcg3m4-binutils-2.34/lib:/gnu/store/fa6wj5bxkj5ll1d7292a70knmyl7a0cr-glibc-2.31/lib:/gnu/store/s3dcqzwqaakv1yx37by9chksdbkgih17-glibc-2.31-static/lib:/gnu/store/hwcky7446s952w0mwchhmm211ll07zrq-glibc-utf8-locales-2.31/lib'
environment variable `GUIX_LOCPATH' set to `/gnu/store/hwcky7446s952w0mwchhmm211ll07zrq-glibc-utf8-locales-2.31/lib/locale'
phase `set-paths' succeeded after 0.0 seconds
starting phase `install-locale'
using 'en_US.utf8' locale for category "LC_ALL"
phase `install-locale' succeeded after 0.0 seconds
starting phase `unpack'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/build.xcvb' -> `./build.xcvb'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/cl+ssl.test.asd' -> `./cl+ssl.test.asd'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/index.css' -> `./index.css'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/.gitattributes' -> `./.gitattributes'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/.travis.yml' -> `./.travis.yml'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/todo.txt' -> `./todo.txt'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/LICENSE' -> `./LICENSE'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/ssl-verify-test.lisp' -> `./ssl-verify-test.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/.gitignore' -> `./.gitignore'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/README.md' -> `./README.md'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/index.html' -> `./index.html'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/Makefile' -> `./Makefile'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/example.lisp' -> `./example.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test.lisp' -> `./test.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/cl+ssl.asd' -> `./cl+ssl.asd'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/src/conditions.lisp' -> `./src/conditions.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/src/package.lisp' -> `./src/package.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/src/ffi-buffer.lisp' -> `./src/ffi-buffer.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/src/random.lisp' -> `./src/random.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/src/context.lisp' -> `./src/context.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/src/ffi-buffer-all.lisp' -> `./src/ffi-buffer-all.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/src/reload.lisp' -> `./src/reload.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/src/x509.lisp' -> `./src/x509.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/src/streams.lisp' -> `./src/streams.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/src/ffi-buffer-clisp.lisp' -> `./src/ffi-buffer-clisp.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/src/ffi.lisp' -> `./src/ffi.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/src/bio.lisp' -> `./src/bio.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/src/verify-hostname.lisp' -> `./src/verify-hostname.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test/package.lisp' -> `./test/package.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test/dummy.lisp' -> `./test/dummy.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test/badssl-com.lisp' -> `./test/badssl-com.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test/version.lisp' -> `./test/version.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test/sni.lisp' -> `./test/sni.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test/verify-hostname.lisp' -> `./test/verify-hostname.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test/run-on-many-lisps-and-openssls/run-home.lisp' -> `./test/run-on-many-lisps-and-openssls/run-home.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test/run-on-many-lisps-and-openssls/run-on-server.lisp' -> `./test/run-on-many-lisps-and-openssls/run-on-server.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test/run-on-many-lisps-and-openssls/run-on-server.sh' -> `./test/run-on-many-lisps-and-openssls/run-on-server.sh'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test/run-on-many-lisps-and-openssls/run-home.sh' -> `./test/run-on-many-lisps-and-openssls/run-home.sh'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test/run-on-many-lisps-and-openssls/run-on-many-lisps-and-openssls.lisp' -> `./test/run-on-many-lisps-and-openssls/run-on-many-lisps-and-openssls.lisp'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test/run-on-many-lisps-and-openssls/openssl-releases/fetch.sh' -> `./test/run-on-many-lisps-and-openssls/openssl-releases/fetch.sh'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test/run-on-many-lisps-and-openssls/openssl-releases/build.sh' -> `./test/run-on-many-lisps-and-openssls/openssl-releases/build.sh'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test/certs/google_universal.der' -> `./test/certs/google_universal.der'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test/certs/google_nodns.der' -> `./test/certs/google_nodns.der'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test/certs/google_printable!.der' -> `./test/certs/google_printable!.der'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test/certs/google_printable.der' -> `./test/certs/google_printable.der'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test/certs/google_teletex.der' -> `./test/certs/google_teletex.der'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test/certs/google_wildcard.der' -> `./test/certs/google_wildcard.der'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test/certs/google_bmp.der' -> `./test/certs/google_bmp.der'
`/gnu/store/kh74zhprxpqgnig9capkhnwyj90pklr2-cl+ssl-0.0.0-1.701e645-checkout/test/certs/google.der' -> `./test/certs/google.der'
phase `unpack' succeeded after 0.3 seconds
starting phase `fix-paths'
phase `fix-paths' succeeded after 0.0 seconds
starting phase `patch-usr-bin-file'
phase `patch-usr-bin-file' succeeded after 0.0 seconds
starting phase `patch-source-shebangs'
patch-shebang: ./test/run-on-many-lisps-and-openssls/openssl-releases/build.sh: changing `/bin/sh' to `/gnu/store/pwcp239kjf7lnj5i4lkdzcfcxwcfyk72-bash-minimal-5.0.16/bin/sh'
patch-shebang: ./test/run-on-many-lisps-and-openssls/openssl-releases/fetch.sh: changing `/bin/sh' to `/gnu/store/pwcp239kjf7lnj5i4lkdzcfcxwcfyk72-bash-minimal-5.0.16/bin/sh'
patch-shebang: ./test/run-on-many-lisps-and-openssls/run-home.sh: changing `/bin/sh' to `/gnu/store/pwcp239kjf7lnj5i4lkdzcfcxwcfyk72-bash-minimal-5.0.16/bin/sh'
patch-shebang: ./test/run-on-many-lisps-and-openssls/run-on-server.sh: changing `/bin/sh' to `/gnu/store/pwcp239kjf7lnj5i4lkdzcfcxwcfyk72-bash-minimal-5.0.16/bin/sh'
phase `patch-source-shebangs' succeeded after 0.0 seconds
starting phase `copy-source'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/build.xcvb' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/build.xcvb'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/cl+ssl.test.asd' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/cl+ssl.test.asd'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/index.css' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/index.css'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.gitattributes' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/.gitattributes'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.travis.yml' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/.travis.yml'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/todo.txt' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/todo.txt'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/LICENSE' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/LICENSE'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/ssl-verify-test.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/ssl-verify-test.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.gitignore' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/.gitignore'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/README.md' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/README.md'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/index.html' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/index.html'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/Makefile' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/Makefile'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/example.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/example.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/cl+ssl.asd' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/cl+ssl.asd'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/src/conditions.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/src/conditions.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/src/package.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/src/package.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/src/ffi-buffer.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/src/ffi-buffer.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/src/random.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/src/random.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/src/context.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/src/context.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/src/ffi-buffer-all.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/src/ffi-buffer-all.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/src/reload.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/src/reload.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/src/x509.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/src/x509.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/src/streams.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/src/streams.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/src/ffi-buffer-clisp.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/src/ffi-buffer-clisp.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/src/ffi.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/src/ffi.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/src/bio.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/src/bio.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/src/verify-hostname.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/src/verify-hostname.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test/package.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test/package.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test/dummy.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test/dummy.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test/badssl-com.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test/badssl-com.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test/version.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test/version.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test/sni.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test/sni.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test/verify-hostname.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test/verify-hostname.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test/run-on-many-lisps-and-openssls/run-home.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test/run-on-many-lisps-and-openssls/run-home.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test/run-on-many-lisps-and-openssls/run-on-server.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test/run-on-many-lisps-and-openssls/run-on-server.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test/run-on-many-lisps-and-openssls/run-on-server.sh' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test/run-on-many-lisps-and-openssls/run-on-server.sh'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test/run-on-many-lisps-and-openssls/run-home.sh' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test/run-on-many-lisps-and-openssls/run-home.sh'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test/run-on-many-lisps-and-openssls/run-on-many-lisps-and-openssls.lisp' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test/run-on-many-lisps-and-openssls/run-on-many-lisps-and-openssls.lisp'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test/run-on-many-lisps-and-openssls/openssl-releases/fetch.sh' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test/run-on-many-lisps-and-openssls/openssl-releases/fetch.sh'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test/run-on-many-lisps-and-openssls/openssl-releases/build.sh' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test/run-on-many-lisps-and-openssls/openssl-releases/build.sh'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test/certs/google_universal.der' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test/certs/google_universal.der'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test/certs/google_nodns.der' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test/certs/google_nodns.der'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test/certs/google_printable!.der' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test/certs/google_printable!.der'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test/certs/google_printable.der' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test/certs/google_printable.der'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test/certs/google_teletex.der' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test/certs/google_teletex.der'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test/certs/google_wildcard.der' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test/certs/google_wildcard.der'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test/certs/google_bmp.der' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test/certs/google_bmp.der'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/test/certs/google.der' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/source/cl+ssl/test/certs/google.der'
phase `copy-source' succeeded after 0.0 seconds
starting phase `configure'
warning: collision encountered:
/gnu/store/mpa04aq8lblbcviyxywxcsb1zbi0mf39-ld-wrapper-0/bin/ld
/gnu/store/m1z7cdbqsqyp9xnjw5cvlb4a7gkcg3m4-binutils-2.34/bin/ld
warning: choosing /gnu/store/mpa04aq8lblbcviyxywxcsb1zbi0mf39-ld-wrapper-0/bin/ld
phase `configure' succeeded after 0.7 seconds
starting phase `patch-generated-file-shebangs'
phase `patch-generated-file-shebangs' succeeded after 0.2 seconds
starting phase `build'
Invoking sbcl: "/gnu/store/i8wj59i9x3p8k253jmhxn5hi2iw0x4hw-sbcl-2.1.4/bin/sbcl" "--non-interactive" "--eval" "(require :asdf)" "--eval" "(asdf:load-asd (truename \"/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/cl+ssl.asd\"))" "--eval" "(asdf:load-asd (truename \"/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/cl+ssl.test.asd\"))" "--eval" "(asdf:compile-system \"cl+ssl\")"
This is SBCL 2.1.4, an implementation of ANSI Common Lisp.
More information about SBCL is available at .
SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses. See the CREDITS and COPYING files in the
distribution for more information.
WARNING: System definition file #P"/gnu/store/rzkimhcq8jhynhah401s5y7jhp7ag73z-sbcl-flexi-streams-1.0.18/share/common-lisp/sbcl/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.
WARNING: System definition file #P"/gnu/store/nbqxn66i7i7jncyhiijzvwlab03mykd4-sbcl-trivial-garbage-0.21/share/common-lisp/sbcl/trivial-garbage/trivial-garbage.asd" contains definition for system "trivial-garbage-tests". Please only define "trivial-garbage" and secondary systems with a name starting with "trivial-garbage/" (e.g. "trivial-garbage/test") in that file.
; compiling file "/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/src/package.lisp" (written 01 JAN 1970 12:00:01 AM):
; processing (IN-PACKAGE :CL-USER)
; processing (DEFPACKAGE :CL+SSL ...)
; wrote /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/lib/common-lisp/sbcl/cl+ssl/src/package-tmpGHU3ALSV.fasl
; compilation finished in 0:00:00.004
; compiling file "/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/src/reload.lisp" (written 15 MAY 2021 09:23:30 PM):
; processing (IN-PACKAGE :CL+SSL)
; processing (CFFI:DEFINE-FOREIGN-LIBRARY LIBCRYPTO ...)
; processing (CFFI:DEFINE-FOREIGN-LIBRARY LIBSSL ...)
; processing (UNLESS (MEMBER :CL+SSL-FOREIGN-LIBS-ALREADY-LOADED ...) ...)
; wrote /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/lib/common-lisp/sbcl/cl+ssl/src/reload-tmpAAURSO1.fasl
; compilation finished in 0:00:00.004
; compiling file "/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/src/conditions.lisp" (written 01 JAN 1970 12:00:01 AM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFCONSTANT +SSL-ERROR-NONE+ ...)
; processing (DEFCONSTANT +SSL-ERROR-SSL+ ...)
; processing (DEFCONSTANT +SSL-ERROR-WANT-READ+ ...)
; processing (DEFCONSTANT +SSL-ERROR-WANT-WRITE+ ...)
; processing (DEFCONSTANT +SSL-ERROR-WANT-X509-LOOKUP+ ...)
; processing (DEFCONSTANT +SSL-ERROR-SYSCALL+ ...)
; processing (DEFCONSTANT +SSL-ERROR-ZERO-RETURN+ ...)
; processing (DEFCONSTANT +SSL-ERROR-WANT-CONNECT+ ...)
; processing (DEFUN READ-SSL-ERROR-QUEUE ...)
; processing (DEFUN FORMAT-SSL-ERROR-QUEUE ...)
; 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 /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/lib/common-lisp/sbcl/cl+ssl/src/conditions-tmp5GEXGEG5.fasl
; compilation finished in 0:00:00.052
; compiling file "/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/src/ffi.lisp" (written 01 JAN 1970 12:00:01 AM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFPARAMETER *LATE-BOUND-FOREIGN-FUNCTION-POINTERS* ...)
; processing (DEFMACRO DEFCFUN-LATE-BOUND ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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-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 (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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)
; --> 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-EAY
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-EAY
; (CFFI-SYS:%FOREIGN-FUNCALL "SSLeay" (:LONG) :CONVENTION :CDECL :LIBRARY
; :DEFAULT)))
;
; note: doing signed word to integer coercion (cost 20) to ""
; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)
; --> 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::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 :DEFAULT)))
;
; 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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX 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::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") ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)
; --> 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-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::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)
; --> 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-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::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)
; --> 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-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::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)
; --> 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-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::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)
; --> 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-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::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)
; --> 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-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::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-SSL-FUNCTION ("TLSv1_client_method" SSL-TLSV1-CLIENT-METHOD) ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX 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::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-SSL-FUNCTION ("TLSv1_server_method" SSL-TLSV1-SERVER-METHOD) ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX 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::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-SSL-FUNCTION ("TLSv1_method" SSL-TLSV1-METHOD) ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX 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::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)
; --> 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-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::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)
; --> 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-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::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)
; --> 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-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::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)
; --> 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-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::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)
; --> 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-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::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)
; --> 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-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::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0") ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)
; --> 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::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::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_new" SSL-CTX-NEW) ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX 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::LIBSSL))))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-SSL-FUNCTION ("SSL_new" SSL-NEW) ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX 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::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-CRYPTO-FUNCTION ("BIO_ctrl" BIO-SET-FD) ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX 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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX 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 :DEFAULT)))))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-CRYPTO-FUNCTION ("BIO_new" BIO-NEW) ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX 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 :DEFAULT))))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-CRYPTO-FUNCTION ("ERR_get_error" ERR-GET-ERROR) ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX 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 :DEFAULT)))
;
; note: doing unsigned word to integer coercion (cost 20) to ""
; processing (DEFINE-CRYPTO-FUNCTION ("ERR_error_string" ERR-ERROR-STRING) ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX 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 :DEFAULT)
; #)
;
; note: doing SAP to pointer coercion (cost 20)
; 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 (DEFUN SSL-CTX-SET-OPTIONS ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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 (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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX 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_ctrl" SSL-CTX-CTRL) ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX 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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX 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 (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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX 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::LIBSSL))))
;
; note: doing signed word to integer coercion (cost 20) to ""
; processing (DEFINE-SSL-FUNCTION ("SSL_get_peer_certificate" SSL-GET-PEER-CERTIFICATE) ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_get_peer_certificate" SSL-GET-PEER-CERTIFICATE)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_get_peer_certificate" CL+SSL::SSL-GET-PEER-CERTIFICATE)
; :POINTER
; (CL+SSL::SSL CL+SSL::SSL-POINTER))
; --> CL+SSL::DEFINE-SSL-FUNCTION-EX 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-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::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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX 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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX 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 :DEFAULT)))))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-CRYPTO-FUNCTION ("X509_NAME_ENTRY_get_data" X509-NAME-ENTRY-GET-DATA) ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX 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 :DEFAULT))))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-CRYPTO-FUNCTION ("X509_get_issuer_name" X509-GET-ISSUER-NAME) ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX 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 :DEFAULT))))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-CRYPTO-FUNCTION ("X509_get_subject_name" X509-GET-SUBJECT-NAME) ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX 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 :DEFAULT))))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (DEFINE-CRYPTO-FUNCTION ("X509_get_ext_d2i" X509-GET-EXT-D2I) ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX 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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX 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 (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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> 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::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
; :DEFAULT)))))
;
; 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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> 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::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 :DEFAULT)))))
;
; 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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)))
; --> PROGN 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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)))
; --> PROGN 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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX 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 :DEFAULT))))
;
; 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-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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> CL+SSL::DEFINE-CRYPTO-FUNCTION-EX 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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-SET-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::LIBSSL)))))
;
; note: doing SAP to pointer coercion (cost 20) to ""
; processing (CFFI:DEFCALLBACK TMP-RSA-CALLBACK ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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 OUTPUT-WAIT ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/src/ffi.lisp
; in: DEFUN OUTPUT-WAIT
; (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME))
;
; note: unable to
; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL 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 of second argument in mixed FLOAT-RATIONAL numeric operation
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL 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 (NOT NULL), 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 (NOT NULL), not a (SIGNED-BYTE 64).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64)
; &REST T).
; etc.
; processing (DEFUN INPUT-WAIT ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/src/ffi.lisp
; in: DEFUN INPUT-WAIT
; (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME))
;
; note: unable to
; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL 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 of second argument in mixed FLOAT-RATIONAL numeric operation
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL 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 (NOT NULL), 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 (NOT NULL), not a (SIGNED-BYTE 64).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64)
; &REST T).
; etc.
; processing (DEFVAR *PEM-PASSWORD* ...)
; processing (CFFI:DEFCALLBACK PEM-PASSWORD-CALLBACK ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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 CONS NULL (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 CONS NULL (AND (NOT BASE-STRING) VECTOR)
; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY
; CHARACTER
; (*)).
; processing (DEFMACRO WITH-PEM-PASSWORD ...)
; processing (DEFUN INIT-PRNG ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/src/ffi.lisp
; in: CFFI:DEFCALLBACK THREADID-CALLBACK
; (INCF CL+SSL::*THREAD-COUNTER*)
; --> SETQ THE
; ==>
; (+ 1 CL+SSL::*THREAD-COUNTER*)
;
; note: unable to
; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL 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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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 /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/lib/common-lisp/sbcl/cl+ssl/src/ffi-tmpAR3FSGEY.fasl
; compilation finished in 0:00:00.355
; compiling file "/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/src/x509.lisp" (written 01 JAN 1970 12:00:01 AM):
; 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 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 ...)
; wrote /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/lib/common-lisp/sbcl/cl+ssl/src/x509-tmpJAIDFZTC.fasl
; compilation finished in 0:00:00.064
; compiling file "/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/src/ffi-buffer-all.lisp" (written 01 JAN 1970 12:00:01 AM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFCONSTANT +INITIAL-BUFFER-SIZE+ ...)
; processing (DECLAIM (INLINE MAKE-BUFFER ...))
; wrote /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/lib/common-lisp/sbcl/cl+ssl/src/ffi-buffer-all-tmp8V3J6PE9.fasl
; compilation finished in 0:00:00.000
; compiling file "/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/src/ffi-buffer.lisp" (written 01 JAN 1970 12:00:01 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 /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/lib/common-lisp/sbcl/cl+ssl/src/ffi-buffer-tmp9V47YWQF.fasl
; compilation finished in 0:00:00.016
; compiling file "/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/src/streams.lisp" (written 01 JAN 1970 12:00:01 AM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFVAR *DEFAULT-CIPHER-LIST* ...)
; processing (DEFCLASS SSL-STREAM ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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 BOOLEAN STREAM (VECTOR CHARACTER)
; BASE-STRING), not a STREAM.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER)
; BASE-STRING), not a (MEMBER T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER)
; BASE-STRING), not a NULL.
; processing (DEFCLASS SSL-SERVER-STREAM ...)
; processing (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; processing (DEFMETHOD CLOSE ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/src/streams.lisp
; in: DEFMETHOD STREAM-LISTEN (SSL-STREAM)
; (CL+SSL::BUFFER-ELT CL+SSL::BUF 0)
; --> BLOCK
; ==>
; (ELT CL+SSL::BUF CL+SSL::INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; processing (DEFMETHOD STREAM-READ-BYTE ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/src/streams.lisp
; in: DEFMETHOD STREAM-READ-BYTE (SSL-STREAM)
; (CL+SSL::BUFFER-ELT CL+SSL::BUF 0)
; --> BLOCK
; ==>
; (ELT CL+SSL::BUF CL+SSL::INDEX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; processing (DEFMETHOD STREAM-READ-SEQUENCE ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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 of first argument in mixed RATIONAL-FLOAT 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 of second argument in mixed FLOAT-RATIONAL 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 of first argument in mixed RATIONAL-(COMPLEX FLOAT) 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 of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT 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 of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT 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 of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) 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::READ-BYTES)
;
; note: unable to
; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
; (< CL+SSL::START CL+SSL::END)
;
; note: unable to
; open-code float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT 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 of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT 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))
; ==>
; (SB-KERNEL:%SETELT CL+SSL::SEQ CL+SSL::START
; (CL+SSL::SSL-STREAM-PEEKED-BYTE STREAM))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
; (CL+SSL::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::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-BASE-STRING.
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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-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-ARRAY NIL (*)) 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-ARRAY CHARACTER
; (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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 SINGLE-FLOAT (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; SINGLE-FLOAT (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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 DOUBLE-FLOAT (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; DOUBLE-FLOAT (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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-BIT-VECTOR.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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 (UNSIGNED-BYTE 2)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 2) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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 (UNSIGNED-BYTE 4)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 4) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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 (UNSIGNED-BYTE 7)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 7) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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 (UNSIGNED-BYTE 8)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 8) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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 (UNSIGNED-BYTE 15)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 15) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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 (UNSIGNED-BYTE 16)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 16) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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 (UNSIGNED-BYTE 31)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 31) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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 (UNSIGNED-BYTE 32)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 32) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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 (UNSIGNED-BYTE 62)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 62) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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 (UNSIGNED-BYTE 63)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 63) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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 (UNSIGNED-BYTE 64)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 64) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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 (SIGNED-BYTE 8) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 8) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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 (SIGNED-BYTE 16)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 16) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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 (SIGNED-BYTE 32)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 32) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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 FIXNUM (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY FIXNUM (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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 (SIGNED-BYTE 64)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 64) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT)
; (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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
; (COMPLEX SINGLE-FLOAT) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (COMPLEX SINGLE-FLOAT)
; (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*)).
; The second argument is a (OR (SIMPLE-ARRAY NIL (*)) 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
; (COMPLEX DOUBLE-FLOAT) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (COMPLEX DOUBLE-FLOAT)
; (*))
; &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-ARRAY NIL (*)) 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-ARRAY NIL (*)) 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 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.
;
; 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 float arithmetic (cost 2) because:
; The first argument is a REAL, 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 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)
; ==>
; (SETQ CL+SSL::START (+ CL+SSL::READ-BYTES CL+SSL::START))
;
; note: doing signed word to integer coercion (cost 20) to START
; processing (DEFMETHOD STREAM-WRITE-BYTE ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/src/streams.lisp
; in: DEFMETHOD STREAM-WRITE-BYTE (SSL-STREAM T)
; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
; --> LET*
; ==>
; (+ 1 (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM4))
;
; note: unable to
; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL 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.
; (SETF (CL+SSL::BUFFER-ELT CL+SSL::BUF
; (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
; CL+SSL::B)
; --> CL+SSL::SET-BUFFER-ELT BLOCK SETF
; ==>
; (SB-KERNEL:%SETELT CL+SSL::BUF CL+SSL::INDEX CL+SSL::VAL)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)
; --> BLOCK
; ==>
; (LENGTH CL+SSL::BUF)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
; --> LET*
; ==>
; (+ 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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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 of first argument in mixed RATIONAL-FLOAT 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 of second argument in mixed FLOAT-RATIONAL 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 of first argument in mixed RATIONAL-(COMPLEX FLOAT) 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 of second argument in mixed (COMPLEX FLOAT)-RATIONAL 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 of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT 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 of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT 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 of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) 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 of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT 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 of first argument in mixed RATIONAL-FLOAT 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 of second argument in mixed FLOAT-RATIONAL 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 of first argument in mixed RATIONAL-(COMPLEX FLOAT) 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 of second argument in mixed (COMPLEX FLOAT)-RATIONAL 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 of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT 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 of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT 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 of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) 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 of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT 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 of first argument in mixed RATIONAL-FLOAT 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 of second argument in mixed FLOAT-RATIONAL 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 of first argument in mixed RATIONAL-(COMPLEX FLOAT) 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 of second argument in mixed (COMPLEX FLOAT)-RATIONAL 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 of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT 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 of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT 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 of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) 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 of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT 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)
; --> BLOCK
; ==>
; (LENGTH CL+SSL::BUF)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (> (- CL+SSL::END CL+SSL::START) (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)
; --> BLOCK
; ==>
; (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)
; --> 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-BASE-STRING.
; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; 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-ARRAY CHARACTER (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER
; (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; SINGLE-FLOAT (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; DOUBLE-FLOAT (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The second argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 2) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 4) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 7) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 8) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 15) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 16) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 31) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 32) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 62) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 63) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 64) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 8) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 16) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 32) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY FIXNUM (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 64) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT)
; (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (COMPLEX SINGLE-FLOAT)
; (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (COMPLEX DOUBLE-FLOAT)
; (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-VECTOR.
; The second argument is a SEQUENCE, not a SIMPLE-VECTOR.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-VECTOR
; &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))
; --> LET*
; ==>
; (+ (- CL+SSL::END CL+SSL::START)
; (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM28))
;
; note: unable to
; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation
; due to type uncertainty:
; The second argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code float conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) 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-BASE-STRING.
; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; 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-ARRAY CHARACTER (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER
; (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; SINGLE-FLOAT (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; DOUBLE-FLOAT (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The second argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 2) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 4) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 7) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 8) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 15) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 16) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 31) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 32) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 62) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 63) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (UNSIGNED-BYTE 64) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 8) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 16) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 32) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY FIXNUM (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (SIGNED-BYTE 64) (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT)
; (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (COMPLEX SINGLE-FLOAT)
; (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*)).
; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY
; (COMPLEX DOUBLE-FLOAT)
; (*))
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-VECTOR.
; The second argument is a SEQUENCE, not a SIMPLE-VECTOR.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-VECTOR
; &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 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.
; (+ (- 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 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 &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 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))
; --> LET*
; ==>
; (+ (- 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))
; ==>
; (SETQ CL+SSL::START (+ (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) CL+SSL::START))
;
; note: doing signed word to integer coercion (cost 20) to START
; processing (DEFMETHOD STREAM-FINISH-OUTPUT ...)
; processing (DEFMETHOD STREAM-FORCE-OUTPUT ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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 (DEFUN INSTALL-HANDLE-AND-BIO ...)
; processing (DEFUN INSTALL-KEY-AND-CERT ...)
; processing (DEFUN X509-CERTIFICATE-NAMES ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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)))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET
; ==>
; (SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN
; '#)
;
; 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: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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 ...)
; processing (DEFUN HANDLE-EXTERNAL-FORMAT ...)
; processing (DEFMACRO WITH-NEW-SSL ...)
; processing (DEFVAR *MAKE-SSL-CLIENT-STREAM-VERIFY-DEFAULT* ...)
; processing (DEFUN MAKE-SSL-CLIENT-STREAM ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/src/streams.lisp
; in: DEFUN MAKE-SSL-CLIENT-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 MAKE-SSL-SERVER-STREAM ...)
; file: /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/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 (DEFGENERIC STREAM-FD ...)
; processing (DEFMETHOD STREAM-FD ...)
; processing (DEFMETHOD STREAM-FD ...)
; wrote /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/lib/common-lisp/sbcl/cl+ssl/src/streams-tmp9BN22RMA.fasl
; compilation finished in 0:00:00.208
; compiling file "/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/src/bio.lisp" (written 01 JAN 1970 12:00:01 AM):
; processing (IN-PACKAGE CL+SSL)
; processing (DEFCONSTANT +BIO-TYPE-SOCKET+ ...)
; processing (DEFCONSTANT +BIO_FLAGS_READ+ ...)
; processing (DEFCONSTANT +BIO_FLAGS_WRITE+ ...)
; processing (DEFCONSTANT +BIO_FLAGS_SHOULD_RETRY+ ...)
; processing (DEFCONSTANT +BIO_CTRL_FLUSH+ ...)
; processing (CFFI:DEFCSTRUCT BIO-METHOD ...)
; processing (CFFI:DEFCSTRUCT BIO ...)
; processing (DEFUN MAKE-BIO-LISP-METHOD ...)
; processing (DEFUN BIO-NEW-LISP ...)
; processing (CFFI:DEFCALLBACK LISP-WRITE ...)
; processing (DEFUN CLEAR-RETRY-FLAGS ...)
; processing (DEFUN SET-RETRY-READ ...)
; processing (CFFI:DEFCALLBACK LISP-READ ...)
; processing (CFFI:DEFCALLBACK LISP-PUTS ...)
; processing (CFFI:DEFCALLBACK LISP-CTRL ...)
; processing (CFFI:DEFCALLBACK LISP-CREATE ...)
; processing (CFFI:DEFCALLBACK LISP-DESTROY ...)
; processing (SETF *BIO-LISP-METHOD* ...)
; wrote /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/lib/common-lisp/sbcl/cl+ssl/src/bio-tmp1CXFJSK9.fasl
; compilation finished in 0:00:00.060
; compiling file "/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/src/random.lisp" (written 01 JAN 1970 12:00:01 AM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFUN RANDOM-BYTES ...)
; wrote /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/lib/common-lisp/sbcl/cl+ssl/src/random-tmpX4BRKI0R.fasl
; compilation finished in 0:00:00.016
; compiling file "/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/src/context.lisp" (written 01 JAN 1970 12:00:01 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 /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/lib/common-lisp/sbcl/cl+ssl/src/context-tmpQ371UGST.fasl
; compilation finished in 0:00:00.032
; compiling file "/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/src/verify-hostname.lisp" (written 01 JAN 1970 12:00:01 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 /gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/lib/common-lisp/sbcl/cl+ssl/src/verify-hostname-tmp2OWI3Q7U.fasl
; compilation finished in 0:00:00.016
;
; compilation unit finished
; printed 259 notes
phase `build' succeeded after 1.7 seconds
starting phase `check'
Invoking sbcl: "/gnu/store/i8wj59i9x3p8k253jmhxn5hi2iw0x4hw-sbcl-2.1.4/bin/sbcl" "--non-interactive" "--eval" "(require :asdf)" "--eval" "(asdf:load-asd (truename \"/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/cl+ssl.asd\"))" "--eval" "(asdf:load-asd (truename \"/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/share/common-lisp/sbcl/cl+ssl/cl+ssl.test.asd\"))" "--eval" "(when (uiop:file-exists-p \"cl+ssl-tests.asd\") (asdf:load-asd (truename \"cl+ssl-tests.asd\")))" "--eval" "(when (uiop:file-exists-p \"cl+ssl-test.asd\") (asdf:load-asd (truename \"cl+ssl-test.asd\")))" "--eval" "(when (uiop:file-exists-p \"tests.asd\") (asdf:load-asd (truename \"tests.asd\")))" "--eval" "(when (uiop:file-exists-p \"test.asd\") (asdf:load-asd (truename \"test.asd\")))" "--eval" "(asdf:test-system \"cl+ssl\")"
This is SBCL 2.1.4, an implementation of ANSI Common Lisp.
More information about SBCL is available at .
SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses. See the CREDITS and COPYING files in the
distribution for more information.
WARNING: System definition file #P"/gnu/store/rzkimhcq8jhynhah401s5y7jhp7ag73z-sbcl-flexi-streams-1.0.18/share/common-lisp/sbcl/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.
WARNING: System definition file #P"/gnu/store/nbqxn66i7i7jncyhiijzvwlab03mykd4-sbcl-trivial-garbage-0.21/share/common-lisp/sbcl/trivial-garbage/trivial-garbage.asd" contains definition for system "trivial-garbage-tests". Please only define "trivial-garbage" and secondary systems with a name starting with "trivial-garbage/" (e.g. "trivial-garbage/test") in that file.
phase `check' succeeded after 3.3 seconds
starting phase `create-asdf-configuration'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-trivial-gray-streams.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/source-registry.conf.d/50-trivial-gray-streams.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-hu.dwim.asdf.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/source-registry.conf.d/50-hu.dwim.asdf.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-flexi-streams.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/source-registry.conf.d/50-flexi-streams.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-trivial-backtrace.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/source-registry.conf.d/50-trivial-backtrace.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-alexandria.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/source-registry.conf.d/50-alexandria.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-trivial-features.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/source-registry.conf.d/50-trivial-features.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-hu.dwim.stefil.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/source-registry.conf.d/50-hu.dwim.stefil.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-trivial-garbage.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/source-registry.conf.d/50-trivial-garbage.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-bordeaux-threads.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/source-registry.conf.d/50-bordeaux-threads.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-fiveam.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/source-registry.conf.d/50-fiveam.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-rt.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/source-registry.conf.d/50-rt.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-babel.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/source-registry.conf.d/50-babel.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-lift.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/source-registry.conf.d/50-lift.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-cffi.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/source-registry.conf.d/50-cffi.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-net.didierverna.asdf-flv.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/source-registry.conf.d/50-net.didierverna.asdf-flv.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-trivial-gray-streams.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/asdf-output-translations.conf.d/50-trivial-gray-streams.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-hu.dwim.asdf.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/asdf-output-translations.conf.d/50-hu.dwim.asdf.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-flexi-streams.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/asdf-output-translations.conf.d/50-flexi-streams.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-trivial-backtrace.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/asdf-output-translations.conf.d/50-trivial-backtrace.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-alexandria.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/asdf-output-translations.conf.d/50-alexandria.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-trivial-features.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/asdf-output-translations.conf.d/50-trivial-features.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-hu.dwim.stefil.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/asdf-output-translations.conf.d/50-hu.dwim.stefil.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-trivial-garbage.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/asdf-output-translations.conf.d/50-trivial-garbage.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-bordeaux-threads.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/asdf-output-translations.conf.d/50-bordeaux-threads.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-fiveam.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/asdf-output-translations.conf.d/50-fiveam.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-rt.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/asdf-output-translations.conf.d/50-rt.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-babel.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/asdf-output-translations.conf.d/50-babel.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-lift.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/asdf-output-translations.conf.d/50-lift.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-cffi.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/asdf-output-translations.conf.d/50-cffi.conf'
`/tmp/guix-build-sbcl-cl+ssl-0.0.0-1.701e645.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-net.didierverna.asdf-flv.conf' -> `/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/etc/common-lisp/asdf-output-translations.conf.d/50-net.didierverna.asdf-flv.conf'
phase `create-asdf-configuration' succeeded after 0.0 seconds
starting phase `cleanup'
phase `cleanup' succeeded after 0.0 seconds
starting phase `patch-shebangs'
phase `patch-shebangs' succeeded after 0.0 seconds
starting phase `strip'
phase `strip' succeeded after 0.0 seconds
starting phase `validate-runpath'
validating RUNPATH of 0 binaries in "/gnu/store/hh9z5f88x4v4b16i1sn9smcmw97jf3lc-sbcl-cl+ssl-0.0.0-1.701e645/lib"...
phase `validate-runpath' succeeded after 0.0 seconds
starting phase `validate-documentation-location'
phase `validate-documentation-location' succeeded after 0.0 seconds
starting phase `delete-info-dir-file'
phase `delete-info-dir-file' succeeded after 0.0 seconds
starting phase `patch-dot-desktop-files'
phase `patch-dot-desktop-files' succeeded after 0.0 seconds
starting phase `install-license-files'
installing 1 license files from '.'
phase `install-license-files' succeeded after 0.0 seconds
starting phase `reset-gzip-timestamps'
phase `reset-gzip-timestamps' succeeded after 0.0 seconds
starting phase `compress-documentation'
phase `compress-documentation' succeeded after 0.0 seconds